Files
sml-projects/message-types/input-msg.sml

8 lines
218 B
Standard ML
Raw Normal View History

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