
DIRECTORY Cursors, Geom2D, Icons, Imager, ImagerTransformation, Menus, Rope, TIPUser, Vector2, ViewerClasses;

BiScrollers: CEDAR DEFINITIONS =

BEGIN

LORA: TYPE = LIST OF REF ANY;
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;
Vec: TYPE = Vector2.VEC;
VecList: TYPE = Geom2D.VecList;
Transform: TYPE = ImagerTransformation.Transformation;
Rect: TYPE = Geom2D.Rect;

BiScroller: TYPE = REF BiScrollerRep;
BiScrollerRep: TYPE = RECORD [
style: BiScrollerStyle,
class: BiScrollerClass,
rep: REF ANY
];

BiScrollerClass: TYPE = REF BiScrollerClassRep;
BiScrollerClassRep: TYPE = RECORD [
style: BiScrollerStyle,
common: ClassCommon,
rep: REF ANY
];

ClassCommon: TYPE = RECORD [
flavor: ATOM,
extrema: ExtremaProc,
notify: ViewerClasses.NotifyProc м NIL,
bsUserAction: BSUserActionProc м NIL,
paint: ViewerClasses.PaintProc м NIL,
modify: ViewerClasses.ModifyProc м NIL,
destroy: ViewerClasses.DestroyProc м NIL,
copy: ViewerClasses.CopyProc м NIL,
set: ViewerClasses.SetProc м NIL,
get: ViewerClasses.GetProc м NIL,
init: ViewerClasses.InitProc м NIL,
finish: LORA м NIL,
save: ViewerClasses.SaveProc м NIL,
caption: ViewerClasses.CaptionProc м NIL,
adjust: ViewerClasses.AdjustProc м NIL,
menu: Menus.Menu м NIL,
tipTable: TIPUser.TIPTable м NIL,
icon: Icons.IconFlavor м document,
cursor: Cursors.CursorType м textPointer,
mayStretch: BOOLEAN м TRUE,
offsetsMustBeIntegers, preferIntegerCoefficients: BOOL м FALSE,
vanilla: TransformGenerator м NIL --means GenID--,
preserve: PreservationPair м [0.5, 0.5]
];

ExtremaProc: TYPE = PROC [clientData: REF ANY, direction: Vec] RETURNS [min, max: Vec];

ClientCoords: TYPE = REF Vec;

BSUserActionProc: TYPE = PROC [bs: BiScroller, input: LORA, device, user, display: REF ANY м NIL];
DoBSUserAction: BSUserActionProc;

TransformGenerator: TYPE = PROC [BiScroller] RETURNS [Transform];
GenID: TransformGenerator --={RETURN [Geom2D.id]}--;

PreservationPair: TYPE = ARRAY Axis OF Preservation;
Axis: TYPE = Geom2D.Axis;
Preservation: TYPE = REAL--[0.0 .. 1.0]--;

TransformsAge: TYPE = {current, previous};
AgeOp: TYPE = {remember, ignore};

BiScrollerStyle: TYPE = REF BiScrollerStyleRep;
BiScrollerStyleRep: TYPE = RECORD [
NewBiScrollerClass: PROC [ClassCommon] RETURNS [BiScrollerClass],
CreateBiScroller: PROC [class: BiScrollerClass, info: ViewerClasses.ViewerRec м [], paint: BOOLEAN м TRUE] RETURNS [new: BiScroller],
Destroy: PROC [BiScroller] RETURNS [BiScroller --NIL, in fact--],

GetTransforms: PROC [bs: BiScroller, age: TransformsAge м current] RETURNS [clientToViewer, viewerToClient: Transform],
ChangeTransform: PROC [bs: BiScroller, new: Transform, ageOp: AgeOp, paint: BOOL м TRUE],

AddChild: PROC [to: BiScroller, what: Viewer, x, y: REAL м 0, useTheseCoords: BOOLEAN м FALSE, paint: BOOLEAN м TRUE],
DeleteChild: PROC [of: BiScroller, who: Viewer],
SetButtonsCapturedness: PROC [bs: BiScroller, captured: BOOL],

ViewportOf: PROC [bs: BiScroller] RETURNS [VecList],

QuaViewer: PROC [bs: BiScroller, inner: BOOL м FALSE] RETURNS [Viewer],
ClientDataOf: PROC [BiScroller] RETURNS [REF ANY]
];

GetStyle: PROC [name: ROPE м NIL] RETURNS [style: BiScrollerStyle];
RegisterStyle: PROC [name: ROPE, style: BiScrollerStyle];
SetDefaultStyle: PROC [name: ROPE] RETURNS [old: ROPE];

IsBiScroller: PROC [REF ANY] RETURNS [BOOLEAN];
NarrowToBiScroller: PROC [REF ANY] RETURNS [BiScroller];
QuaViewer: PROC [bs: BiScroller, inner: BOOL м FALSE] RETURNS [Viewer];
QuaBiScroller: PROC [Viewer] RETURNS [BiScroller];
ViewerIsABiScroller: PROC [Viewer] RETURNS [BOOLEAN];
ClientDataOf: PROC [BiScroller] RETURNS [REF ANY];
ClientDataOfViewer: PROC [Viewer] RETURNS [REF ANY];

ViewportExtrema: PROC [bs: BiScroller, direction: Vec] RETURNS [min, max: Vec];
ViewportBox: PROC [bs: BiScroller] RETURNS [Rect];
ViewLimitsOfImage: PROC [bs: BiScroller, axis: Axis] RETURNS [vmin, vmax: REAL];

Scale: PROC [bs: BiScroller, op: ScaleOp, paint: BOOL м TRUE];
ScaleOp: TYPE = RECORD [variant: SELECT op: * FROM
reset => [],
byArg => [arg: REAL],
diff => [x, y: REAL],
ENDCASE];

Rotate: PROC [bs: BiScroller, op: RotateOp, paint: BOOL м TRUE];
RotateOp: TYPE = RECORD [variant: SELECT op: * FROM
reset => [],
byArg => [arg: REAL--degrees--],
ENDCASE];

Shift: PROC [bs: BiScroller, dx, dy: REAL, paint: BOOL м TRUE];

Align: PROC [bs: BiScroller, client, viewer: Location, doX, doY, paint: BOOL м TRUE, ageOp: AgeOp м remember];
Location: TYPE = RECORD [variant: SELECT flavor: * FROM
coord => [x, y: REAL --in the appropriate coord sys--],
fraction => [fx, fy: REAL --fraction of X and Y extent, in viewer coords, of either client image or viewport--],
ENDCASE];

BoxScale: PROC [bs: BiScroller, from, to: Rect --both in viewer coords--, paint, uniformly: BOOL м TRUE];


bsMenu: Menus.Menu;

CatenateMenus: PROC [pre, post: Menus.Menu] RETURNS [menu: Menus.Menu];

CreateScale, CreateRotate, CreateFit, CreateReset, CreateEdge, CreatePrev: PROC [viewerInfo: ViewerClasses.ViewerRec, bs: BiScroller, font: Imager.Font м NIL] RETURNS [button: Viewer];


SetViewerPosition: PROC [v: Viewer, x, y, w, h: INTEGER];

SetBS: PROC [v: Viewer, bs: BiScroller];

END.

  Р  
BiScrollers.Mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Mike Spreitzer January 23, 1987 2:48:37 pm PST
Last tweaked by Mike Spreitzer on March 20, 1992 7:32 am PST

A subClass of Viewers for two-dimensional scrolling
Passed to Notify when mouse leaves an Activated BiScroller
OK to scale X and Y differently?
What stays put when viewer grows/shrinks.
What appears in NotifyProc's input for mouse coordinates instead of TIPUser.TIPScreenCoords.
All the user input to a BiScroller goes thru one of two procs in the class: notify or bsUserAction.  Input to the client goes through notify; input concerning the BiScroller goes through bsUserAction.
horizontally (axis X), 0.0 is left and 1.0 is right;
vertically (axis Y), 0.0 is bottom and 1.0 is top.
Change scale and offsets so that client data previously in `from' covers as much as possible of `to'.
A tool built using a BiScroller may provide either a menu of operations, or a set of buttons.
Remember: Viewers requires you to always copy this menu, never use it directly.  CatenateMenus includes copying.
Here are procedures to create the standard buttons:
For implementors of styles:
 Э╩П  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬ1Щ<KЩ.KЩ<KЩ KЩ3ЧKШ Ъ╧k	ЬdШmKШ ЧKЪ╨bxЬЮЬЮЬШ KШ KЪЮШKШ KЪЮЬЮЬЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬШ$KЪЬЮЬЮЬШKЪЬ	ЮЬШKЪЬЮЬ'Ш6KЪЬЮЬШKШ KЪЬЮЬЮЬШ%ЪЬЮЬЮЬШKЪЬШKЪЬШKЪЬЮЬЮШKШЧKШ KЪЬЮЬЮЬШ/ЪЬЮЬЮЬШ#KЪЬШKШKЪЬЮЬЮШKЪЬШЧKШ ЪЬЮЬЮЬШKЪЬЮЬШKШKЪЬ#ЮЬШ'KЪЬ!ЮЬШ%KЪЬ!ЮЬШ%KЪЬ#ЮЬШ'KЪЬ%ЮЬШ)KЪЬЮЬШ#KЪЬЮЬШ!KЪЬЮЬШ!KЪЬЮЬШ#ЪЬЮЬЮЬШJЩ:ЧKЪЬЮЬШ#KЪЬ%ЮЬШ)KЪЬ#ЮЬШ'KЪЬЮЬШKЪЬЮЬШ!KШ"KШ)ЪЬЮЬЮЬШJЪЬ Щ ЧKЪЬ2ЮЬЮЬШ?KЪЬЮЬ╧cЬШ2Ш'KЩ)ЧKШЧKШ KЪ╧nЬЮЬЮЬЮЬЮЬЮЬШWKШ ЪЬЮЬЮЬШKЪЬ\Щ\ЧKШ KЪЬЮЬЮЬЮЬЮЬЮЮЬЮЬШbЪбЬШ!KЪ	ЬLЭЬЭЬ$ЭЬ/ЭЬЩ╚ЧKШ KЪбЬЮЬЮЬЮЬШAKЪЬаЬШ4KШ KЪЬЮЬЮЬЮЬШ4KЪЬЮЬШЪЬЮЬЮаЬШ*KЩ4KЩ2ЧKШ KЪЬЮЬШ*KЪЬЮЬШ!KШ KЪЬЮЬЮЬШ/ЪЬЮЬЮЬШ#KЪбЬЮЬЮЬШAKЪ
бЬЮЬEЮЬЮЬЮЬШЕKЪбЬЮЬЮЬаЬШAKШ KЪбЬЮЬ0ЮЬ-ШwKЪбЬЮЬ7ЮЬЮЬШYKШ KЪбЬЮЬ&ЮЬЮЬЮЬ	ЮЬЮЬШvKЪбЬЮЬШ0KЪбЬЮЬЮЬШ>KШ KЪб
ЬЮЬЮЬШ4KШ KЪ
б	ЬЮЬЮЬЮЬЮЬ
ШGKЪ
бЬЮЬЮЬЮЬЮЬШ1KШЧKШ KЪ
бЬЮЬЮЬЮЬЮЬШCKЪбЬЮЬЮЬШ9KЪ
бЬЮЬЮЬЮЬЮЬШ7KШ KЪбЬЮЬЮЬЮЬЮЬЮЬШ/KЪ
бЬЮЬЮЬЮЬЮЬШ8KЪ
б	ЬЮЬЮЬЮЬЮЬ
ШGKЪбЬЮЬ
ЮЬШ2KЪбЬЮЬ
ЮЬЮЬШ5KЪ
бЬЮЬЮЬЮЬЮЬШ2KЪ
бЬЮЬ
ЮЬЮЬЮЬШ4KШ KЪбЬЮЬ"ЮЬШOKЪбЬЮЬЮЬШ2KЪбЬЮЬЮЬЮЬШPKШ ЪбЬЮЬ&ЮЬЮЬШ>ЪЬ	ЮЬЮЬЮЬЮШ2KЪЬШKЪЬЮЬШKЪЬЮЬШKЪЮЬШ	ЧЧKШ ЪбЬЮЬ'ЮЬЮЬШ@ЪЬ
ЮЬЮЬЮЬЮШ3KЪЬШKЪЬЮаЬШ KЪЮЬШ	ЧЧKШ KЪ
бЬЮЬЮЬ	ЮЬЮЬШ?KШ ЪбЬЮЬ=ЮЬЮЬШnЪЬ
ЮЬЮЬЮЬЮШ7KЪЬЮЬа ЬШ7KЪЬЮЬаTЬШpKЪЮЬШ	ЧЧKШ Ъ
бЬЮЬ!аЬЮЬЮЬШiKЩeЧKШ KЩ]KШ ШKЪЬpЩpЧKШ KЪбЬЮЬЮЬШGKШ Щ3KЪбЬбЬб	ЬбЬб
Ьб
ЬЮЬKЮЬЮЬШ╕ЧKШ ЩKШ KЪбЬЮЬЮЬШ9KШ KЪбЬЮЬШ(ЧKШ KЪЮЬШKШ Ч ЕЧ       !  