File: CKViewerButtons.mesa
Last Edited by: Pier on July 21, 1983 11:18 am
DIRECTORY
Buttons,
ViewerClasses;
CKViewerButtons: DEFINITIONS =
BEGIN
CKViewer: TYPE = REF CKViewerData;
CKViewerData:
TYPE =
RECORD [
height: NAT,
container: ViewerClasses.Viewer,
state: CKViewerState,
buttons: CKViewerButtons
];
CKViewerState:
TYPE =
RECORD [
quit, aToggle, bToggle, slow: BOOLEAN,
freeze, scramble, roll: BOOLEAN,
random, symmetric: BOOLEAN,
testPattern, cbars, converge: BOOLEAN,
bigRed, bigGreen, bigBlue: BOOLEAN,
smallRed, smallGreen, smallBlue: BOOLEAN,
bpp: [0..24]
];
CKViewerButtons:
TYPE =
RECORD [
quitButton, twentyfourButton, eightButton, fourButton, twoButton, oneButton: Buttons.Button,
aChanButtton, bChanButton, slowButton: Buttons.Button,
freezeButton, scrambleButton, rollButton: Buttons.Button,
randomButton, symmetricButton: Buttons.Button,
testButton, cBarsButton, convergeButton: Buttons.Button,
bigRedButton, bigGreenButton, bigBlueButton: Buttons.Button,
smallRedButton, smallGreenButton, smallBlueButton: Buttons.Button
];
Quit: Buttons.ButtonProc;
Bpp24: Buttons.ButtonProc;
Bpp8: Buttons.ButtonProc;
Bpp4: Buttons.ButtonProc;
Bpp2: Buttons.ButtonProc;
Bpp1: Buttons.ButtonProc;
AChan: Buttons.ButtonProc;
BChan: Buttons.ButtonProc;
Slow: Buttons.ButtonProc;
Freeze: Buttons.ButtonProc;
Scramble: Buttons.ButtonProc;
Roll: Buttons.ButtonProc;
CKRandom: Buttons.ButtonProc;
Symmetric: Buttons.ButtonProc;
TestPattern: Buttons.ButtonProc;
CBars: Buttons.ButtonProc;
Converge: Buttons.ButtonProc;
BigRed: Buttons.ButtonProc;
BigGreen: Buttons.ButtonProc;
BigBlue: Buttons.ButtonProc;
SmallRed: Buttons.ButtonProc;
SmallGreen: Buttons.ButtonProc;
SmallBlue: Buttons.ButtonProc;
Go: PROC [ckViewer: CKViewer];
CreateCKViewer: PROC RETURNS [CKViewer];
END.