Modifications in italic.
Library Window: val createSimpleTopWin : Display.screen -> { geom : Geometry.win_geom, border : ColorServer.color, backgrnd : ColorServer.color } -> (window * WindowEnv.in_env * WindowEnv.client_msg CML.chan) val setInputFocus : (window * XTime.time) -> unit val setInputFocusNone : Display.display -> unit Library ICCC: val xrdbOfScr : EXB.screen -> string list Library Interact: val lookupString : translation -> (keysym * modkey_state * EXB.XTime.time) -> string datatype kbd_msg = KEY_Press of (keysym * modkey_state * EXB.XTime.time) | KEY_Release of (keysym * modkey_state * EXB.XTime.time) | KEY_ConfigSync datatype cmd_in = CI_Redraw of G.rect list | CI_Resize of G.rect | CI_ChildBirth of EXB.window | CI_ChildDeath of EXB.window | CI_OwnDeath | CI_FocusIn | CI_FocusOut datatype client_msg = CLIENT_TakeFocus of EXB.XTime.time | CLIENT_DeleteWindow of EXB.XTime.time Widget Shell: datatype focusable_msg = FocusIn | FocusOut | Assign of W.EXB.XTime.time | Release | Next of W.EXB.XTime.time | Previous of W.EXB.XTime.time datatype focusable = Focusable of {focusableEvt: focusable_msg CML.event, takefocus: W.EXB.XTime.time -> unit} type fid val addFocusableFirst : shell -> focusable -> fid val addFocusableAfter : shell -> fid * focusable -> fid val deleteFocusable : shell -> fid -> unit val deletionEvent : shell -> unit CML.event Widget WidgetBase: val filterEvt : ('a -> bool) -> 'a CML.event -> 'a CML.event * unit CML.event Widget Root: val mergeStyles : style * style -> style val styleFromXRDB : root -> style type optName type argName type optKind type optSpec type optDb type attr_value val parseCommand : optSpec -> string list -> optDb * string list val findNamedOpt : optDb -> optName -> root -> attr_value list val findNamedOptStrings : optDb -> optName -> string list val styleFromOptDb : root * optDb -> style