DIRECTORY
Buttons,
Containers,
CKViewerButtons,
CKViewerPanel,
Icons,
ViewerOps, ViewerClasses;

CKViewerImpl: PROGRAM
IMPORTS Containers, Buttons, CKViewerPanel, CKViewerButtons, ViewerOps, Icons
EXPORTS CKViewerButtons  =  BEGIN

CKViewer: TYPE = CKViewerButtons.CKViewer;
CKViewerData: TYPE = CKViewerButtons.CKViewerData;

entryHeight: CARDINAL = 14;	-- height of a line of items
entryVSpace: CARDINAL = 6;	-- vertical leading between lines
entryHSpace: CARDINAL = 10; -- horizontal space between items on a line
openHeight: CARDINAL = 200; -- ideal height of viewer when opened
firstTab: CARDINAL = 110; --viewer column first tab
secondTab: CARDINAL = 217;--viewer column second tab

BuildButtons: PUBLIC PROC [ckViewer: CKViewer] = {

quitButton, twentyfourButton, eightButton, fourButton, twoButton, oneButton: Buttons.Button;
aChanButtton, bChanButton, slowButton: Buttons.Button;
freezeButton, scrambleButton, rollButton: Buttons.Button;
randomButton, symmetricButton, diagButton: Buttons.Button;
testButton, cBarsButton, convergeButton: Buttons.Button;

ckViewer.height _ entryVSpace;
quitButton _ Buttons.Create[
info: [name: "QUIT", wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Quit,
clientData: ckViewer
];
twentyfourButton _ Buttons.Create[
info: [name: "24 BPP", 
wx: quitButton.wx + quitButton.ww + 2*entryHSpace,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Bpp24,
clientData: ckViewer
];
eightButton _ Buttons.Create[
info: [name: "8 BPP", 
wx: twentyfourButton.wx + twentyfourButton.ww + entryHSpace,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Bpp8,
clientData: ckViewer
];
fourButton _ Buttons.Create[
info: [name: "4 BPP", 
wx: eightButton.wx + eightButton.ww + entryHSpace,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Bpp4,
clientData: ckViewer
];
twoButton _ Buttons.Create[
info: [name: "2 BPP", 
wx: fourButton.wx + fourButton.ww + entryHSpace,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Bpp2,
clientData: ckViewer
];
oneButton _ Buttons.Create[
info: [name: "1 BPP", 
wx: twoButton.wx + twoButton.ww + entryHSpace,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Bpp1,
clientData: ckViewer
];

ckViewer.height _ ckViewer.height + 2*entryVSpace + entryHeight;

aChanButtton _ Buttons.Create[
info: [name: "A ON/OFF", wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.AChan,
clientData: ckViewer
];
bChanButton _ Buttons.Create[
info: [name: "B ON/OFF", 
wx: firstTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.BChan,
clientData: ckViewer
];
slowButton _ Buttons.Create[
info: [name: "SLOW", 
wx: secondTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Slow,
clientData: ckViewer
];

ckViewer.height _ ckViewer.height + entryVSpace + entryHeight;

freezeButton _ Buttons.Create[
info: [name: "FREEZE", wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Freeze,
clientData: ckViewer
];
scrambleButton _ Buttons.Create[
info: [name: "SCRAMBLE", 
wx: firstTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Scramble,
clientData: ckViewer
];
rollButton _ Buttons.Create[
info: [name: "ROLL", 
wx: secondTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Roll,
clientData: ckViewer
];

ckViewer.height _ ckViewer.height + entryVSpace + entryHeight;

randomButton _ Buttons.Create[
info: [name: "RANDOM", 
wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.CKRandom,
clientData: ckViewer
];
symmetricButton _ Buttons.Create[
info: [name: "SYMMETRIC", 
wx: firstTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Symmetric,
clientData: ckViewer
];

diagButton _ Buttons.Create[
info: [name: "DIAG", 
wx: secondTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Diag,
clientData: ckViewer
];

ckViewer.height _ ckViewer.height + entryVSpace + entryHeight;

testButton _ Buttons.Create[
info: [name: "TEST PAT", 
wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.TestPattern,
clientData: ckViewer
];

cBarsButton _ Buttons.Create[
info: [name: "COLORBARS", 
wx: firstTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.CBars,
clientData: ckViewer
];

convergeButton _ Buttons.Create[
info: [name: "CONVERGE", 
wx: secondTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.Converge,
clientData: ckViewer
];

ckViewer.height _ ckViewer.height + entryVSpace + entryHeight;

ckViewer.buttons _ [quitButton, twentyfourButton, eightButton, fourButton, twoButton, oneButton, aChanButtton, bChanButton, slowButton, freezeButton, scrambleButton, rollButton, randomButton, symmetricButton, diagButton, testButton, cBarsButton, convergeButton];

BuildScreenButtons[ckViewer]; --hack to get small enough to compile
};

BuildScreenButtons: PROCEDURE [ckViewer: CKViewer] = {

bigRedButton, bigGreenButton, bigBlueButton: Buttons.Button;
smallRedButton, smallGreenButton, smallBlueButton: Buttons.Button;

bigRedButton _ Buttons.Create[
info: [name: "BIG RED", 
wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.BigRed,
clientData: ckViewer
];

bigGreenButton _ Buttons.Create[
info: [name: "BIG GREEN", 
wx: firstTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.BigGreen,
clientData: ckViewer
];

bigBlueButton _ Buttons.Create[
info: [name: "BIG BLUE", 
wx: secondTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.BigBlue,
clientData: ckViewer
];

ckViewer.height _ ckViewer.height + entryVSpace + entryHeight;

smallRedButton _ Buttons.Create[
info: [name: "SMALL RED", 
wx: entryHSpace, wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.SmallRed,
clientData: ckViewer
];

smallGreenButton _ Buttons.Create[
info: [name: "SMALL GREEN", 
wx: firstTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.SmallGreen,
clientData: ckViewer
];

smallBlueButton _ Buttons.Create[
info: [name: "SMALL BLUE", 
wx: secondTab,
wy: ckViewer.height, wh: entryHeight,
parent: ckViewer.container, border: TRUE],
proc: CKViewerButtons.SmallBlue,
clientData: ckViewer
];

ckViewer.buttons.bigRedButton _ bigRedButton;
ckViewer.buttons.bigGreenButton _ bigGreenButton;
ckViewer.buttons.bigBlueButton _ bigBlueButton;
ckViewer.buttons.smallRedButton _ smallRedButton;
ckViewer.buttons.smallGreenButton _ smallGreenButton;
ckViewer.buttons.smallBlueButton _ smallBlueButton;

};

CreateCKViewer: PUBLIC PROC RETURNS [ckViewer: CKViewer] = {
ckViewer _ NEW[CKViewerData];
ckViewer.height _ 0;
ckViewer.container _ Containers.Create[[
name: "CKControl",
iconic: TRUE,
icon:  Icons.NewIconFromFile[file: "CK.Icons", n: 0],
scrollable: FALSE,
column: left]];

BuildButtons[ckViewer];  --fills in ckviewer.buttons
CKViewerPanel.BuildPanel[ckViewer]; --build and fill in ckviewer.panel

RestartCKViewer[ckViewer];--fills in ckviewer.state
ViewerOps.PaintViewer[viewer: ckViewer.panel.script, hint: all];
};

RestartCKViewer: PUBLIC PROC [ckViewer: CKViewer] = {
ckViewer.state _ [quit: FALSE, aToggle: FALSE, bToggle: FALSE, slow: FALSE, 
freeze: FALSE, scramble: FALSE, roll: FALSE, 
random: TRUE, symmetric: FALSE, diag: FALSE,
testPattern: FALSE, cbars: FALSE, converge: FALSE, 
bigRed: FALSE, bigGreen: FALSE, bigBlue: FALSE, 
smallRed: FALSE, smallGreen: FALSE, smallBlue: FALSE, testingPanel: FALSE, bpp: 8];

Buttons.SetDisplayStyle[ckViewer.buttons.eightButton, $WhiteOnBlack];
Buttons.SetDisplayStyle[ckViewer.buttons.aChanButtton, $WhiteOnBlack];
Buttons.SetDisplayStyle[ckViewer.buttons.bChanButton, $WhiteOnBlack];
};

END.	


hFile: CKViewerImpl.mesa
Last Edited by Pier on August 11, 1983 6:27 pm
Initialize CKViewer state
�ʬ˜Jš
œ™Jš
œ.™.J˜š
Ïk	˜	J˜J˜J˜Jš
œ˜J˜J˜J˜—šœ�˜Jš�œF˜MJš�œ�˜!—J˜Jšœ
�œ˜*Jšœ�œ ˜2J˜Jšœ
�œÏc˜8Jšœ
�œž!˜<Jšœ
�œž+˜GJšœ�œž%˜AJšœ
�œž˜3Jšœ�œž˜4J˜šÏnœ�œ
�œ˜2J˜J˜\Jš
œ6˜6Jš
œ9˜9Jš
œ:˜:Jš
œ8˜8J˜J˜˜˜KJšœ$�œ˜*—J˜J˜J˜—˜"˜J˜2J˜%Jšœ$�œ˜*—J˜J˜J˜—˜˜J˜<J˜%Jšœ$�œ˜*—J˜J˜J˜—˜˜J˜2J˜%Jšœ$�œ˜*—J˜J˜J˜—˜˜J˜0J˜%Jšœ$�œ˜*—J˜J˜J˜—˜˜J˜.J˜%Jšœ$�œ˜*—J˜J˜J˜J˜—J˜@J˜˜˜OJšœ$�œ˜*—J˜J˜J˜—˜˜J˜
J˜%Jšœ$�œ˜*—J˜J˜J˜—˜˜J˜J˜%Jšœ$�œ˜*—J˜J˜J˜—J˜J˜>J˜˜š
œM˜MJšœ$�œ˜*—J˜J˜J˜—š
œ ˜ ˜J˜
J˜%Jšœ$�œ˜*—J˜J˜J˜—š
œ˜˜Jš
œ˜J˜%Jšœ$�œ˜*—J˜J˜J˜—J˜J˜>J˜š
œ˜˜J˜6Jšœ$�œ˜*—Jš
œ˜J˜J˜—š
œ!˜!˜Jš
œ
˜
J˜%Jšœ$�œ˜*—Jš
œ ˜ J˜J˜—J˜˜˜Jš
œ˜J˜%Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜J˜>J˜˜˜J˜6Jšœ$�œ˜*—Jš
œ"˜"J˜J˜—J˜š
œ˜˜J˜
J˜%Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜˜ ˜Jš
œ˜J˜%Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜J˜>J˜Jš
œ†˜†J˜Jšœž%˜CJš
œ˜—J˜šŸœ�	œ˜6J˜Jš
œ<˜<Jš
œB˜BJ˜š
œ˜˜J˜6Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜š
œ ˜ ˜Jš
œ
˜
J˜%Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜š
œ˜˜Jš
œ˜J˜%Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜J˜>J˜š
œ ˜ ˜J˜6Jšœ$�œ˜*—Jš
œ˜J˜J˜—J˜š
œ"˜"˜Jš
œ
˜
J˜%Jšœ$�œ˜*—Jš
œ!˜!J˜J˜—J˜š
œ!˜!˜Jš
œ˜J˜%Jšœ$�œ˜*—Jš
œ ˜ J˜J˜—J˜Jš
œ-˜-Jš
œ1˜1Jš
œ/˜/Jš
œ1˜1Jš
œ5˜5Jš
œ3˜3J˜Jš
œ˜—J˜šŸœ�œ
�œ
�œ˜<Jšœ�œ˜J˜˜(Jš
œ˜Jšœ�œ
˜
Jš
œ5˜5Jšœ�œ
˜Jš
œ˜—J˜Jšœž˜4Jšœ$ž"˜FJ˜Jš
œ™Jšœž˜3Jš
œ@˜@J˜—J˜šŸœ�œ
�œ˜5Jš	œ�œ�œ�œ�œ˜LJšœ�œ�œ�œ˜-Jšœ�œ
�œ�œ
˜,Jšœ
�œ	�œ�œ˜3Jšœ�œ�œ�œ˜0Jš	œ
�œ�œ
�œ�œ
˜SJ˜Jš
œE˜EJš
œF˜FJš
œE˜EJ˜J˜—Jš�œ˜J˜J˜—…—!¨(¼