<<>> <> <> <> <> <<>> DIRECTORY Atom USING [PropList], Xl USING [Event, Geometry, MatchList, Screen, ScreenDepth, TQ], XTk; XTkFriends: CEDAR DEFINITIONS SHARES XTk ~ BEGIN OPEN Xl, XTk; <<>> <> <<>> <> CallNotifiers: PROC [widget: Widget, key--LX--: REF, callData: REF ¬ NIL, event: Event ¬ NIL]; <> <> RemoveNotifiers: PROC [widget: Widget, key: REF]; <> AliasNotifierKey: PROC [key: REF, alias: REF ¬ NIL]; <> <> <> <> <> <> DestroyWidgetLR: PROC [widget: Widget]; <> <> <<>> ConfigureLR: ConfigureProc; <> <> <> <> <<>> DestroyWindowLR: TerminateProc; <> <> <> <> <<>> PreferredSizeLR: PreferredSizeProc; <> <> <> PreStopFastAccess: TerminateProc; <> <> <> FullStopFastAccessLR: PROC [w: Widget, reason: TerminationReason]; <> <> PleaseResizeChild: WidgetNChildProc; <> <> <<>> BindScreenLR: PROC [widget: Widget, rootTQ: TQ, screen: Xl.Screen, screenDepth: Xl.ScreenDepth ¬ NIL]; <> <> <<>> ForgetScreenLR: PROC [widget: Widget]; <> <> <<>> ReconfigureChildrenLR: PROC [widget: Widget]; <> <> <<>> RemoveChildLR: PROC [widget: Widget, child: Widget] RETURNS [done: BOOL]; <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> CreateClass: PROC [basicMethods: BasicMethodsRec ¬ []] RETURNS [ImplementorClass]; <> <<[computes subDataIdx, ...]>> FindClass: PROC [key: ATOM] RETURNS [Class]; <> <> InitClassField: PROC [classField: Class, class: Class] RETURNS [Class]; <> <> <> <> <<>> InstPart: PROC [widget: Widget, superClass: Class, iField: INT ¬ 0] RETURNS [REF] = INLINE { <> <> RETURN [widget.wClassData[superClass.wDataIdx+iField]] }; ClassPart: PROC [widget: Widget, superClass: Class, cField: INT ¬ 0] RETURNS [REF] = INLINE { <> <> RETURN [widget.s.class.cClassData[superClass.cDataIdx+cField]] }; AssignInstPart: PROC [widget: Widget, superClass: Class, val: REF, iField: INT ¬ 0] = INLINE { <> widget.wClassData[superClass.wDataIdx+iField] ¬ val }; <> InheritedConfigureLRProc: PROC [superClass: Class] RETURNS [ConfigureProc]; <> <> <> <> << <>>> << superClass _ superClass.super >> << ENDLOOP;>> <> <> <> SimpleConfigureOneLevelLR: ConfigureProc; <> SimpleDestroyWindowLR: TerminateProc; <> <> IgnorePleaseResizeChild: WidgetNChildProc; <> PropagateUpPleaseResizeChild: WidgetNChildProc; <> SimplePreferredSizeOneLevel: PreferredSizeProc; <> <<>> SimpleClassName: ClassNameProc; <<...simply returns classNameHint field of class>> <> OrphanizeLR: PROC [orphan: Widget, parentState: TerminationReason]; <> <> <> DefaultActualCreateWindowLR: WidgetProc; <> DontMapCreateWindowLR: WidgetProc; <> AssignParentAndCheckScreenLR: PROC [child, parent: Widget]; <> <> <<>> CollectMatchesLR: PROC [widget: Widget] RETURNS [Xl.MatchList]; <> <> <<>> SetupScreenDepth: PROC [widget: Widget]; <> <> <<>> END.