BSTest.Mesa
Last Edited by: Spreitzer, May 4, 1985 3:42:51 pm PDT
DIRECTORY Atom, BiScrollers, Geom2D, Imager, ImagerBackdoor, Rope, TIPUser, ViewerClasses, ViewerOps;
BSTest: CEDAR PROGRAM
IMPORTS Atom, BiScrollers, Geom2D, Imager, ImagerBackdoor, Rope, TIPUser, ViewerOps
= {OPEN BiScrollers;
Data: TYPE = REF DataRep;
DataRep: TYPE = RECORD [
style: BiScrollerStyle,
moving: BOOLFALSE,
x, y: REAL ← 0.0];
Delta: TYPE = REF DeltaRep;
DeltaRep: TYPE = RECORD [
drawOld, drawNew: BOOL,
oldX, oldY: REAL];
className: ROPE ← "BS Test ";
InStyle: PROC [style: BiScrollerStyle, preferIntegers: BOOLFALSE] RETURNS [class: BiScrollerClass] = {
className ← className.Cat["I"];
class ← style.NewBiScrollerClass[[
flavor: Atom.MakeAtom[className],
extrema: Extrema,
paint: Paint,
notify: Notify,
finish: LIST[$Exit],
menu: bsMenu,
icon: fileCabinet,
tipTable: TIPUser.InstantiateNewTIPTable["BSTest.TIP"],
mayStretch: FALSE,
offsetsMustBeIntegers: TRUE,
preferIntegerCoefficients: preferIntegers
]];
};
Extrema: PROC [clientData: REF ANY, direction: Vec] RETURNS [min, max: Vec] --ExtremaProc-- = {
d: Data ← NARROW[clientData];
[min, max] ← Geom2D.ExtremaOfRect[[d.x, d.y, 23, 47], direction];
};
whats: LORANIL;
log: BOOLFALSE;
Paint: PROC [self: Viewer, context: Imager.Context, whatChanged: REF ANY, clear: BOOL] RETURNS [quit: BOOLFALSE] --ViewerClasses.PaintProc-- = {
DrawAt: PROC [x, y: REAL] = {
Imager.MaskRectangle[context: context, r: [x, y + 00, 13, 47]];
Imager.MaskRectangle[context: context, r: [x, y + 45, 23, 01]];
};
d: Data ← NARROW[BiScrollers.ClientDataOfViewer[self]];
IF log THEN whats ← CONS[whatChanged, whats];
IF whatChanged # NIL THEN {
da: Delta ← NARROW[whatChanged];
Imager.SetColor[context, invertingGray];
IF da.drawOld AND NOT clear THEN DrawAt[da.oldX, da.oldY];
IF da.drawNew THEN DrawAt[d.x, d.y]}
ELSE DrawAt[d.x, d.y];
};
invertingGray: Imager.Color ← ImagerBackdoor.MakeStipple[5A5AH, TRUE];
inputs: LIST OF LORANIL;
Notify: PROC [self: Viewer, input: LIST OF REF ANY] --ViewerClases.NotifyProc-- = {
bs: BiScroller ← BiScrollers.QuaBiScroller[self];
d: Data ← NARROW[bs.ClientDataOf[]];
IF log THEN inputs ← CONS[input, inputs];
SELECT input.first FROM
$Track => {
cc: ClientCoords ← NARROW[input.rest.first];
D: Delta ← NEW [DeltaRep ← [d.moving, TRUE, d.x, d.y]];
d.x ← cc.x; d.y ← cc.y; d.moving ← TRUE;
ViewerOps.PaintViewer[self, client, FALSE, D];
d.style.SetButtonsCapturedness[bs, TRUE];
};
$End => {
cc: ClientCoords ← NARROW[input.rest.first];
D: Delta ← NEW [DeltaRep ← [d.moving, FALSE, d.x, d.y]];
d.x ← cc.x; d.y ← cc.y; d.moving ← FALSE;
ViewerOps.PaintViewer[self, client, FALSE, D];
ViewerOps.PaintViewer[self, client, FALSE, NIL];
d.style.SetButtonsCapturedness[bs, FALSE];
};
$Exit => {
D: Delta ← NEW [DeltaRep ← [d.moving, FALSE, d.x, d.y]];
d.moving ← FALSE;
ViewerOps.PaintViewer[self, client, FALSE, D];
d.style.SetButtonsCapturedness[bs, FALSE];
};
ENDCASE => ERROR;
};
Create: PROC [class: BiScrollerClass, info: ViewerClasses.ViewerRec] RETURNS [bs: BiScroller] = {
info.data ← NEW [DataRep ← [style: class.style]];
bs ← class.style.CreateBiScroller[class: class, info: info];
};
}.