DIRECTORY BiScrollers, Pipal, PipalEdit, PipalReal, ViewerClasses; PipalInteractiveEdit: CEDAR DEFINITIONS = BEGIN 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. عPipalInteractiveEdit.mesa Copyright س 1988 by Xerox Corporation. All rights reserved. Barth, February 3, 1988 5:54:59 pm PST Theory Combines input events with editors and keeps the screen refreshed. Operations ‌ت‏ک– "Cedar" styleڑœ™Jڑœ<™