InterminalExtraExtra.mesa
Created Wednesday, June 6, 1984 1:39 pm PDT
Lasted edited by Eric Nickell, June 6, 1984 1:59:59 pm PDT
DIRECTORY
InterminalImpl
USING [DisplayRec, left, right];
InterminalExtraExtra:
CEDAR
PROGRAM
IMPORTS InterminalImpl
SHARES InterminalImpl
~ {
SwitchSideOfColorDisplay:
PUBLIC
PROC ~ {
OPEN InterminalImpl;
temp:
POINTER
TO DisplayRec;
temp ← right; right ← left; left ← temp;
};
ColorDisplayOnLeft:
PUBLIC
PROC
RETURNS [onLeft:
BOOLEAN] ~ {
OPEN InterminalImpl;
TRUSTED {onLeft ← left.color};
};
}.