FEAT: TUI: use ESC key to exit the event loop

red · May 27, 2024 · acbee9a · acbee9a
1 parent 06a5adc
commit acbee9a
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/modules/view/view.red b/modules/view/view.red
@@ -1426,13 +1426,23 @@ insert-event-func 'tab function [face event][
 ]
 
 #if config/GUI-engine = 'terminal [
-	;-- Control-C handler
-	insert-event-func 'ctrl-c function [face event][
+	;-- ESC key handler
+	insert-event-func 'esc function [face event][
 		if all [
 			event/type = 'key
-			event/key = #"^C"
+			event/key = #"^["
 		][
 			system/view/platform/exit-event-loop
 		]
 	]
+	insert-event-func 'space [
+		all [
+			event/type = 'key
+			event/key = #" "
+			switch event/face/type [ 
+				button	  [event/type: 'click]
+			]
+		]
+		event
+	]
 ]