<> <> <> <> 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.