DIRECTORY InterminalImpl USING [DisplayRec, left, right]; InterminalExtraExtra: CEDAR PROGRAM IMPORTS InterminalImpl SHARES InterminalImpl ~ { Side: PUBLIC TYPE ~ {left, right}; SetColorDisplaySide: PUBLIC SAFE PROC[side: Side] ~ CHECKED { OPEN InterminalImpl; IF GetColorDisplaySide[]#side THEN { -- swap temp: POINTER TO DisplayRec ~ right; right _ left; left _ temp; }; }; GetColorDisplaySide: PUBLIC SAFE PROC RETURNS[Side] ~ TRUSTED { OPEN InterminalImpl; RETURN[IF left.color THEN left ELSE right]; }; }. ŠInterminalExtraExtra.mesa Created Wednesday, June 6, 1984 1:39 pm PDT Lasted edited by Eric Nickell, April 1, 1985 3:43:48 am PST Κ$˜šœ™Jšœ+™+J™;J™—šΟk ˜ Jšœœ˜/J˜—šœœ˜#Jšœ˜Jšœ˜J˜J˜šœœœ˜"J˜—codeš Οnœœœœœ˜=Jšœ˜šœœΟc˜,Kšœœœ˜$Kšœ˜K˜—Kšœ˜K˜—š žœœœœœ œ˜?Jšœ˜Kšœœ œœ˜+Kšœ˜K˜—J˜——…—΄