Mew.Makemodule Concurrent : Concurrent.Smodule Key = Modal.Keymodule Mode = Modal.Modemodule MsgBox = Concurrent.MsgBoxmodule Thread = Concurrent.Threadclass edit : < default_mode : 'a * Mode.t; modes : Mode.t Mode.Modes.t; timeout : float; .. > -> object ... endclass state : Mode.t Modal.Mode.Modes.t -> object ... end