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