16 lines
242 B
Standard ML
16 lines
242 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
|