
DIRECTORY
Imager USING [Color, Context, MaskRectangleI, SetColor],
ImagerBackdoor USING [MakeStipple],
InputFocus USING [CaptureButtons, NotifyProc, ReleaseButtons],
MultiCursors,
Rope USING [ROPE],
TIPUser USING [InstantiateNewTIPTable, TIPScreenCoords, TIPScreenCoordsRec, TIPTable],
UserInputInsertActions,
ViewerClasses USING [Viewer],
ViewerOps USING [ComputeColumn, MoveBoundary, PaintViewer],
ViewerPrivate USING [LockViewerTree, PaintScreen, ReleaseViewerTree],
ViewerSpecs USING [bwScreenWidth, captionHeight, iconHeight, iconRows, iconSpacing, openBottomY, openTopY],
ViewersWorld,
ViewersWorldInstance;

ViewerAdjustImpl: CEDAR MONITOR
IMPORTS Imager, ImagerBackdoor, InputFocus, MultiCursors, TIPUser, UserInputInsertActions, ViewerOps, ViewerPrivate, ViewerSpecs, ViewersWorld, ViewersWorldInstance
EXPORTS ViewerOps
= BEGIN

AdjustMode: TYPE = {top, bottom, column, none};
Viewer: TYPE = ViewerClasses.Viewer;
mode: AdjustMode м none;

stickyHeight, adjustBottom: BOOL;
xPos, width, minY, maxY: INTEGER;
lastPos: TIPUser.TIPScreenCoordsRec м [LAST[INTEGER], LAST[INTEGER], FALSE];

Adjust: PUBLIC ENTRY PROC [viewer: Viewer, sticky: BOOL м TRUE] = {
ViewerPrivate.LockViewerTree[];
InputFocus.CaptureButtons[BoundaryAdjustNotify, vaTIP, viewer];
minY м ViewerSpecs.openBottomY;
maxY м ViewerSpecs.openTopY;
xPos м viewer.wx;
width м viewer.ww;
stickyHeight м sticky;
adjustBottom м FALSE;
};

EndAdjust: PROC [device: REF] = {
ChangeMode[none, [0, 0, FALSE], device];
InputFocus.ReleaseButtons[];
ViewerPrivate.ReleaseViewerTree[];
};

BoundaryAdjustNotify: InputFocus.NotifyProc = {
ENABLE UNWIND => EndAdjust[device];
pos: TIPUser.TIPScreenCoordsRec м [-100, -100, FALSE];
cursorName: ATOM м NARROW[device];
FOR list: LIST OF REF ANY м input, list.rest UNTIL list = NIL DO
WITH list.first SELECT FROM
x: ATOM => SELECT x FROM
$Abort => {
EndAdjust[cursorName];
IF self.openHeight = 0 
THEN ViewerOps.PaintViewer[self, caption]
ELSE {self.openHeight м 0; ViewerOps.ComputeColumn[self.column]};
};
$Move => {
SELECT mode FROM
top => IF pos.mouseX NOT IN [self.wx..self.wx+self.ww) THEN
ChangeMode[column, pos, device]
ELSE IF pos.mouseY <= self.wy THEN 
ChangeMode[bottom, pos, device]
ELSE Feedback[pos];
bottom => IF pos.mouseX NOT IN [self.wx..self.wx+self.ww) THEN
ChangeMode[column, pos, device]
ELSE IF pos.mouseY >= self.wy+self.wh THEN 
ChangeMode[top, pos, device]
ELSE Feedback[pos];
column => Feedback[pos];
ENDCASE => {
ViewerOps.PaintViewer[self, caption];
ChangeMode[top, pos, device];
};
};
$End => {
viewerMinHeight: NAT ~ ViewerSpecs.captionHeight;
change: AdjustMode м mode;
EndAdjust[cursorName];
SELECT change FROM
top => {
self.openHeight м MAX[viewerMinHeight, pos.mouseY-self.wy];
ViewerOps.ComputeColumn[self.column];
};
bottom => {
self.openHeight м MAX[viewerMinHeight, self.wy+self.wh-pos.mouseY];
ViewerOps.ComputeColumn[self.column];
};
column => ViewerOps.MoveBoundary[pos.mouseX, pos.mouseY];
ENDCASE;
};
ENDCASE => NULL;
z: TIPUser.TIPScreenCoords => pos м Clip[z];
ENDCASE => ERROR;
ENDLOOP;
};

RestoreCursor: PROC [device: REF] = {
vWorld: ViewersWorld.Ref м ViewersWorldInstance.GetWorld[];
handle: UserInputInsertActions.Handle м ViewersWorld.GetInputHandle[vWorld];
UserInputInsertActions.InsertFakePosition[handle, 0, device];
};

ChangeMode: PROC [newMode: AdjustMode, pos: TIPUser.TIPScreenCoordsRec, device: REF] = {
cursorName: ATOM м NARROW[device];
Feedback[[LAST[INTEGER], LAST[INTEGER], FALSE], TRUE];
SELECT newMode FROM
top => {MultiCursors.SetACursor[pointUp, cursorName]; MultiCursors.AddACursorCorner[upperSide, cursorName]};
bottom => {MultiCursors.SetACursor[pointDown, cursorName]; MultiCursors.AddACursorCorner[lowerSide, cursorName]};
column => {MultiCursors.SetACursor[activate, cursorName]};
ENDCASE => RestoreCursor[device];
mode м newMode;
IF mode#none THEN Feedback[pos];
};

adjustStipple: Imager.Color ~ ImagerBackdoor.MakeStipple[stipple: 0A5A5H, xor: TRUE];

Feedback: PROC [pos: TIPUser.TIPScreenCoordsRec, remove: BOOL м FALSE] = {
action: PROC [context: Imager.Context] ~ {
Show: PROC [x, y: INTEGER] = {
IF mode=column THEN {
Imager.MaskRectangleI[context, x-1, y, 2, ViewerSpecs.openTopY-y];
Imager.MaskRectangleI[context, 0, y-1, ViewerSpecs.bwScreenWidth, 2];
}
ELSE Imager.MaskRectangleI[context, xPos, y-1, width, 2];
};
IF lastPos = pos THEN RETURN; -- no change
Imager.SetColor[context, adjustStipple];
IF lastPos.mouseX#LAST[INTEGER] THEN Show[lastPos.mouseX, lastPos.mouseY];
IF remove
THEN lastPos м [LAST[INTEGER], LAST[INTEGER], FALSE]
ELSE {Show[pos.mouseX, pos.mouseY]; lastPos м pos};
};
IF pos.color # lastPos.color THEN {Feedback[[-100, -100, lastPos.color], TRUE]};
ViewerPrivate.PaintScreen[IF pos.color THEN color ELSE main, action, FALSE];
};

standardLeftWidth: INTEGER ~ 600; -- should be in ViewerSpecs

Clip: PROC [position: TIPUser.TIPScreenCoords] RETURNS [TIPUser.TIPScreenCoordsRec] = {
OPEN ViewerSpecs;
fudge: INTEGER = 15;
screenW: INTEGER ~ ViewerSpecs.bwScreenWidth;
x: INTEGER м position.mouseX; y: INTEGER м position.mouseY;
IF NOT position.color THEN {
IF ABS[x-(screenW/2)] < fudge THEN x м (screenW/2)
ELSE IF ABS[x-standardLeftWidth] < fudge THEN x м standardLeftWidth;
IF mode=column THEN {
IF y<=openBottomY THEN adjustBottom м TRUE; -- must move below column to adjust bottom
IF adjustBottom THEN {
rowHeight: INTEGER = iconHeight+iconSpacing;
IF y>rowHeight THEN {
rows: INTEGER = MIN[(y+iconHeight/2), maxY]/rowHeight;
y м MIN[rows, iconRows]*rowHeight;
};
}
ELSE y м openBottomY; -- pin y if not adjusting bottom
}
ELSE y м MIN[maxY, MAX[minY, y]];
};
RETURN [[x, y, position.color]]
};

vaTIP: TIPUser.TIPTable м TIPUser.InstantiateNewTIPTable["ViewerAdjust.tip"];

END.

  М  
ViewerAdjustImpl.mesa 
Copyright ╙ 1985, 1986, 1987, 1991 by Xerox Corporation.  All rights reserved.
McGregor on January 6, 1983 2:21 pm
Maxwell, May 20, 1983 9:58 am
Russ Atkinson, November 18, 1983 1:31 pm
Doug Wyatt, April 15, 1985 5:51:09 pm PST
Michael Plass, February 24, 1987 11:05:49 pm PST
Bier, March 5, 1991 6:57 pm PST
Willie-s, October 9, 1991 5:35 pm PDT
Christian Jacobi, March 3, 1992 2:39 pm PST
PROC [self: Viewer, input: LIST OF REF ANY, device: REF _ NIL, user: REF _ NIL, display: REF _ NIL];
IF self.position=0 THEN ViewerOps.PaintViewer[self, caption]
ELSE BEGIN
self.position _ 0;
IF stickyHeight THEN self.openHeight _ self.position;
ViewerOps.ComputeColumn[self.column];
END;
self.position _ MAX[viewerMinHeight, mouseY-self.wy];
IF stickyHeight THEN self.openHeight _ self.position;
self.position _ MAX[viewerMinHeight, self.wy+self.wh-mouseY];
IF stickyHeight THEN self.openHeight _ self.position;
Should really pass in user, display, and data as well, but probably not needed.
Addition by Randy Pausch: "snap" to the default setting for the two columns, and to the center
If above first row, then snap to nearest row boundary
 Э╩Я  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬCЩNKЪЬ#Щ#KЪЬЩKЩ(KЩ)KЩ0KЩKЩ%KЩ+ЧKШ Ъ╧k	Ш	KЪЬЮЬ,Ш8KЪЬЮЬШ#KЪЬЮЬ.Ш>KЪЬШKЪЬЮЬЮЬШKЪЬЮЬIШVKШKЪЬЮЬ
ШKЪЬ
ЮЬ,Ш;KЪЬЮЬ2ШEKЪЬЮЬZШkKШKЪЬШЧKШ KЪ╨blЬЮЬЮШKЪЮЬЭШдKЪЮЬ
ШЪЬЮШKШ KЪЬЮЬШ/KЪЬЮЬШ$KШKШ KЪЬЮЬШ!KЪЬЮЬШ!KЪЬ'ЮЬЮЬЮЬЮЬЮЬШLЧKШ Ъ╧nЬЮЬЮЬЮЬЮЬЮЬШCKЪЬШKШ?KЪЬШKЪЬШKШKШKЪЬШKЪЬЮЬШKЪЬШKШ ЧЪа	ЬЮЬ
ЮЬШ!KЪЬЮЬШ(KШKЪЬ"Ш"KЪЬШЧKШ ЪаЬШ/KЪЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЮЬЩdKЪЮЬЮЬШ#KЪЬ/ЮЬШ6KЪЬЮЬЮЬ	Ш"ЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮШ@ЪЮЬЮЬЮШЪЬЮЬЮЬЮШЪЬШKЪЬ<Щ<ЪЬ
Щ
KЪЬЩKЪЬ5Щ5KЪЬ%Щ%KЪЬЩЧKЪЬШЪЮЬШKЪЮЬ%Ш)KЪЮЬ=ШAЧKЪЬШЧЪЬ
Ш
ЪЮЬЮШЪЬЮЬЮЬЮЬЮШ;KЪЬШЪЮЬЮЬЮЬШ#KЪЬШЧKЪЮЬШЧЪЬ
ЮЬЮЬЮЬЮШ>KЪЬШЪЮЬЮЬЮЬШ+KЪЬШЧKЪЮЬШЧKЪЬШЪЮЬШKШ%KЪЬШKЪЬШЧЧKЪЬШЧЪЬ	Ш	KЪЬЮЬШ1KШKЪЬШЪЮЬЮШЪЬШKЪЬ5Щ5KЪЬ5Щ5KЪЬЮЬ&Ш;KШ%KЪЬШЧЪЬШKЪЬ=Щ=KЪЬ5Щ5KЪЬЮЬ.ШCKЪЬ%Ш%KЪЬШЧKШ9KЪЮЬШЧKЪЬШЧKЪЮЬЮЬШЧKЪЬ,Ш,KЪЮЬЮЬШЧKЪЮЬШЧKЪЬШKШ ЧЪаЬЮЬ
ЮЬШ%KЪЬ;Ш;KЪЬLШLЪЬ=Ш=KЩOЧKЪЬШKШ ЧЪа
ЬЮЬ@ЮЬШXKЪЬЮЬЮЬ	Ш"KЪЬ
ЮЬЮЬЮЬЮЬЮЬЮЬШ6ЪЮЬ	ЮШKЪЬlШlKЪЬqШqKЪЬ:Ш:KЪЮЬШ!ЧKШKЪЮЬЮЬШ KЪЬШKШ ЧKЪЬB╧fЬЮЬШUKШ ЪаЬЮЬ+ЮЬЮЬШJЪЬЮЬШ*ЪаЬЮЬЮЬШЪЮЬЮЬШKШBKШEKЪЬШЧKЪЮЬ5Ш9KЪЬШЧKЪЮЬЮЬЮЬ╧cШ*KШ(KЪЮЬЮЬЮЬЮЬ&ШJЪЮЬШ	KЪЮЬЮЬЮЬЮЬЮЬЮЬШ4KЪЮЬ/Ш3ЧKШЧKЪЮЬЮЬ(ЮЬШPKЪ	ЬЮЬЮЬЮЬЮЬШLKЪЬШKШ ЧKЪЬЮЬвШ=KШ ЪаЬЮЬ%ЮЬ!ШWKЪЮЬШKЪЬЮЬШKЪЬ	ЮЬШ-KЪЬЮЬЮЬШ;ЪЮЬЮЬЮЬШKЪЬ^Щ^KЪЮЬЮЬЮЬШ2KЪЮЬЮЬЮЬЮЬШDЪЮЬЮЬШKЪЮЬЮЬЮЬв*ШVЪЮЬЮЬШKЪЬЮЬШ,KЪЬ5Щ5ЪЮЬЮЬШKЪЬЮЬЮЬ#Ш6KЪЬЮЬШ"KШЧKШЧKЪЮЬв Ш6KШЧKЪЮЬЮЬЮЬШ!KЪЬШЧKЪЮЬШKЪЬШKШ ЧKШMKШ KЪЮЬШKШ Ч ЕЧ    H  "s  