add CHAR_EVENT message type (next is to handle hjkl navigation)

2024-10-17 01:38:31 +01:00
parent ce23e50c8d
commit c77777cc09
4 changed files with 16 additions and 4 deletions
--- a/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -2,10 +2,12 @@ signature INPUT_MSG =
 sig
  datatype t = 
    RESIZE_EVENT of int * int 
+  | CHAR_EVENT of char
 end

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