CDTipEtc.mesa (part of Chipndale)
Copyright © 1983, 1984 by Xerox Corporation. All rights reserved.
by Christian Jacobi August 11, 1983 11:32 am
last edited by Christian Jacobi October 24, 1984 3:56:49 pm PDT
DIRECTORY
CD,
Icons USING [IconFlavor],
Rope USING [ROPE],
TIPUser USING [TIPTable];
CDTipEtc: CEDAR DEFINITIONS =
BEGIN
-- tip tables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SetTipTable:
PROC [onto:
REF, tipTable: Rope.
ROPE];
--verbose
--onto: Design, Technology or global
--only new viewers will get the new tiptable
GetTipTable:
PROC [for:
REF]
RETURNS [TIPUser.TIPTable];
--for: Design, Technology or global
--only new viewers will get the new tiptable
-- Icons ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SetIcon:
PROC [onto:
REF, file: Rope.
ROPE, n:
NAT];
--onto: Design, Technology or global
--only new viewers will get the new icon
GetIcon:
PROC [for:
REF]
RETURNS [Icons.IconFlavor];
--for: Design, Technology or global
SetPanelIcon:
PROC [onto:
REF, file: Rope.
ROPE, n:
NAT];
--onto: Design, Technology or global
--only new viewers will get the new icon
GetPanelIcon:
PROC [for:
REF]
RETURNS [Icons.IconFlavor];
--for: Design, Technology or global
END.