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

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