15 lines
258 B
Standard ML
15 lines
258 B
Standard ML
structure InputMsg =
|
|
struct
|
|
datatype t =
|
|
CHAR_EVENT of char
|
|
| KEY_ESC
|
|
| KEY_ENTER
|
|
| KEY_BACKSPACE
|
|
| RESIZE_EVENT of int * int
|
|
| WITH_SEARCH_LIST of PersistentVector.t * Time.time
|
|
| ARROW_LEFT
|
|
| ARROW_UP
|
|
| ARROW_RIGHT
|
|
| ARROW_DOWN
|
|
end
|