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. θCDTipEtcImpl.mesa (part of ChipNDale) Copyright c 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 Κ˜codešœ,™,Kšœ Οmœ7™BKšœ/™/K™?K˜—šΟk ˜ Kšžœ˜Kšœ˜Kšœ ˜ Kšœ˜K˜Kšœ˜—K˜šΠbl œžœžœ˜Kšžœ˜Kšžœ ˜—Kšž˜K˜K™š Οn œžœžœžœžœ˜;Kšžœ˜Kšœ*˜*Kšžœ˜—K˜š   œžœžœžœžœ˜@Kšžœ˜Kšžœ"˜(Kšžœ˜—K˜š  œžœžœžœ žœžœ˜;Kšž˜Kšœ%˜%Kšžœ˜K˜—š  œžœžœžœžœ˜