SlateControls.mesa
Copyright Ó 1993 by Xerox Corporation. All rights reserved.
Christian Jacobi, March 6, 1993 4:22 pm PST
DIRECTORY
Rope USING [ROPE],
Slate USING [Instance],
XTk USING [Widget];
SlateControls: CEDAR DEFINITIONS ~
BEGIN
RegisterButton:
PROC [row:
REF, name: Rope.
ROPE, event:
REF ¬
NIL, registerData:
REF ¬
NIL];
Draws a button on all future slate instances
When button is invoked, calls the procedures which have been registered with RegisterGlobalEventProc on event. callData is set to the connection.
MakeRowWidget:
PROC [instance: Slate.Instance, row:
REF]
RETURNS [XTk.Widget];
Creates a container widget with buttons registered for this row
LimitLifetime:
PROC [shell: XTk.Widget, instance: Slate.Instance];
Destroys shell when slate instance disappears
END.