CDTipEtcImpl.mesa (part of ChipNDale)
Copyright © 1983, 1986 by Xerox Corporation. All rights reserved.
by Christian Jacobi, August 11, 1983 11:32 am
Last Edited by: Christian Jacobi, August 4, 1986 7:58:11 pm PDT
DIRECTORY
CD,
CDEnvironment,
CDTipEtc,
Icons,
Rope,
TIPUser;
CDTipEtcImpl:
CEDAR
PROGRAM
IMPORTS CDEnvironment
EXPORTS CDTipEtc =
BEGIN
SetTipTable:
PUBLIC
PROC [onto:
REF, tipTable: Rope.
ROPE] =
BEGIN
CDEnvironment.SetTipTable[onto, tipTable];
END;
GetTipTable:
PUBLIC
PROC [for:
REF]
RETURNS [TIPUser.TIPTable] =
BEGIN
RETURN [CDEnvironment.GetTipTable[for]];
END;
SetIcon:
PUBLIC
PROC [onto:
REF, file: Rope.
ROPE, n:
NAT] =
BEGIN
CDEnvironment.SetIcon[onto, file, n];
END;
GetIcon:
PUBLIC
PROC [for:
REF]
RETURNS [Icons.IconFlavor] =
BEGIN
RETURN [CDEnvironment.GetIcon[for]];
END;
SetPanelIcon:
PUBLIC
PROC [onto:
REF, file: Rope.
ROPE, n:
NAT] =
BEGIN
CDEnvironment.SetPanelIcon[onto, file, n];
END;
GetPanelIcon:
PUBLIC
PROC [for:
REF]
RETURNS [Icons.IconFlavor] =
BEGIN
RETURN [CDEnvironment.GetPanelIcon[for]];
END;
END.