message-types/input-msg.sml

signature INPUT_MSG =
sig
  datatype t = 
    CHAR_EVENT of char
  | KEY_ESC
  | RESIZE_EVENT of int * int 
end

structure InputMsg :> INPUT_MSG = 
struct 
  datatype t = 
    CHAR_EVENT of char
  | KEY_ESC
  | RESIZE_EVENT of int * int 
end
done scaffolding cml and adding resize functionality 2024-10-06 10:23:07 +01:00			`signature INPUT_MSG =`
			`sig`
			`datatype t =`
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			`CHAR_EVENT of char`
			`\| KEY_ESC`
			`\| RESIZE_EVENT of int * int`
done scaffolding cml and adding resize functionality 2024-10-06 10:23:07 +01:00			`end`

			`structure InputMsg :> INPUT_MSG =`
scaffolding for concurrent ml 2024-10-06 09:32:56 +01:00			`struct`
			`datatype t =`
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			`CHAR_EVENT of char`
			`\| KEY_ESC`
			`\| RESIZE_EVENT of int * int`
scaffolding for concurrent ml 2024-10-06 09:32:56 +01:00			`end`