add KEY_ESC message type, and refactor app-update.sml to use it (always calls 'clearMode' function which always sets the app to normal mode, and sets the command strnig to empty)

2024-11-08 09:30:57 +00:00
parent ff38e39deb
commit a4dea7626f
3 changed files with 17 additions and 10 deletions
--- a/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -1,13 +1,15 @@
 signature INPUT_MSG =
 sig
  datatype t = 
-    RESIZE_EVENT of int * int 
-  | CHAR_EVENT of char
+    CHAR_EVENT of char
+  | KEY_ESC
+  | RESIZE_EVENT of int * int 
 end

 structure InputMsg :> INPUT_MSG = 
 struct 
  datatype t = 
-    RESIZE_EVENT of int * int 
-  | CHAR_EVENT of char
+    CHAR_EVENT of char
+  | KEY_ESC
+  | RESIZE_EVENT of int * int 
 end