PipalInteractiveEdit.mesa 
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Barth, February 3, 1988 5:54:59 pm PST
DIRECTORY BiScrollers, Pipal, PipalEdit, PipalReal, ViewerClasses;
PipalInteractiveEdit: CEDAR DEFINITIONS = BEGIN
Theory
Combines input events with editors and keeps the screen refreshed.
Operations
ViewerData : TYPE = REF ViewerDataRec; -- what gets hung unto the viewer
ViewerDataRec: TYPE = RECORD [
editor: PipalEdit.Editor,
mouseNow: PipalReal.Position ← PipalReal.zeroVector, -- mouse position now
mouseDown: PipalReal.Position ← PipalReal.zeroVector, -- mouse position when a button went down
previousTrackingArea: LIST OF PipalReal.Rectangle ← NIL -- previous area modified by tracking; should be cleaned up at every paint if non nil!
];
Create: PROC [editor: PipalEdit.Editor, tipTable: Pipal.ROPE, notify: ViewerClasses.NotifyProc] RETURNS [bs: BiScrollers.BiScroller];
END.