8 lines
218 B
Standard ML
8 lines
218 B
Standard ML
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
|