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, September 19, 1985 3:59:32 am PDT
DIRECTORY
CD,
Icons USING [IconFlavor],
Rope USING [ROPE],
TIPUser USING [TIPTable];
CDTipEtc: CEDAR DEFINITIONS =
BEGIN
Implementation of Cedar user interface features
-- 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.