Make.editval mutable curr_mode : Mode.tmethod keyin : < bindings : Mode.action Mode.KeyTrie.node; getMode : Mode.t; i : Key.t MsgBox.t; keyin : Key.t -> unit Concurrent.Thread.t; o : Key.t MsgBox.t; setMode : Mode.Modes.key -> unit; timeout : float; .. > -> Key.t -> unit Concurrent.Thread.tmethod getMode : 'b -> Mode.tmethod setMode : 'b -> Mode.Modes.key -> unitmethod bindings : 'b -> Mode.action Mode.KeyTrie.node