<> <> <> <> <> <<>> DIRECTORY BasicTime, BiScrollers, Cursors, Geom2D, Imager, ImagerBackdoor, IO, Pipal, PipalInt, PipalInteractiveEdit, PipalEdit, PipalPaint, PipalReal, Process, Real, RefTab, TIPUser, ViewerClasses; PipalInteractiveEditImpl: CEDAR PROGRAM IMPORTS BasicTime, BiScrollers, Geom2D, Imager, ImagerBackdoor, PipalInt, PipalPaint, PipalReal, Process, TIPUser EXPORTS PipalInteractiveEdit = BEGIN OPEN PipalInteractiveEdit; <> lastBiscrollerPaintTime: BasicTime.Pulses; Create: PUBLIC PROC [editor: PipalEdit.Editor, tipTable: Pipal.ROPE, notify: ViewerClasses.NotifyProc] RETURNS [bs: BiScrollers.BiScroller] ~ { viewerData: ViewerData; style: BiScrollers.BiScrollerStyle _ BiScrollers.GetStyle["Buttonned"]; class: BiScrollers.BiScrollerClass _ style.NewBiScrollerClass[[ flavor: $BiPipal, extrema: Extrema, paint: BiscrollerPaint, notify: notify, bsUserAction: ForkAndDo, finish: LIST [$Exit], menu: BiScrollers.bsMenu, icon: fileCabinet, tipTable: TIPUser.InstantiateNewTIPTable[tipTable], cursor: bullseye, -- was textPointer mayStretch: FALSE, offsetsMustBeIntegers: TRUE, preferIntegerCoefficients: FALSE ]]; info: ViewerClasses.ViewerRec _ [name: "Pipal", iconic: FALSE, data: NEW [ViewerDataRec _ [editor: editor]]]; bs _ class.style.CreateBiScroller[class: class, info: info]; viewerData _ NARROW[BiScrollers.ClientDataOf[bs]]; }; Extrema: BiScrollers.ExtremaProc = { viewerData: ViewerData _ NARROW[clientData]; bbox: PipalInt.Rectangle _ PipalInt.AbutBox[viewerData.editor.object]; [min, max] _ Geom2D.ExtremaOfRect[[bbox.base.x, bbox.base.y, bbox.size.x, bbox.size.x], direction]; }; PaintBBox: PROC [context: Imager.Context, object: Pipal.Object, color: Imager.Color _ Imager.black] ~ { PipalPaint.PaintOutline[context, PipalReal.IntToRealRectangle[PipalInt.AbutBox[object]], color]; }; invertingGray: Imager.Color _ ImagerBackdoor.MakeStipple[5A5AH, TRUE]; -- XOR ??? PaintSelected: PROC [context: Imager.Context, object: Pipal.Object, base: PipalReal.Vector, color: Imager.Color _ invertingGray] ~ { size: PipalReal.Vector _ PipalReal.ObjectSize[object]; Imager.SetColor[context, color]; Imager.MaskRectangle[context, [base.x, base.y, size.x, size.y]]; }; <<>> WhatChanged: TYPE = REF WhatChangedRec; WhatChangedRec: TYPE = RECORD [ clipArea: LIST OF PipalReal.Rectangle, -- redisplay the data structure inside these areas outlines: LIST OF PipalReal.Rectangle -- then paint these outlines ]; BiscrollerPaint: ViewerClasses.PaintProc = { clipArea, outlines: LIST OF PipalReal.Rectangle _ NIL; viewerData: ViewerData _ NARROW [BiScrollers.ClientDataOfViewer[self]]; editor: PipalEdit.Editor = viewerData.editor; lastBiscrollerPaintTime _ BasicTime.GetClockPulses[]; <<-- coordinate axis>> Imager.SetColor[context, Imager.black]; Imager.MaskVector[context, [-1000, 0], [1000, 0]]; Imager.MaskVector[context, [0, -1000], [0, 1000]]; <<-- bbox of the editor>> <> <<-- extra things to paint>> IF whatChanged=NIL THEN { <<-- Paint the data structure>> PipalPaint.Paint[editor, context]; viewerData.previousTrackingArea _ NIL; } ELSE { [clipArea, outlines] _ NARROW [whatChanged, WhatChanged]^; WHILE viewerData.previousTrackingArea#NIL DO clipArea _ CONS [viewerData.previousTrackingArea.first, clipArea]; viewerData.previousTrackingArea _ viewerData.previousTrackingArea.rest; ENDLOOP; <<-- Paint the data structure>> PipalPaint.ClipAndPaint[editor, context, clipArea]; }; FOR list: LIST OF PipalReal.Rectangle _ outlines, list.rest WHILE list#NIL DO PipalPaint.PaintOutline[context, list.first]; ENDLOOP; lastBiscrollerPaintTime _ BasicTime.GetClockPulses[]-lastBiscrollerPaintTime; }; ForkAndDo: BiScrollers.BSUserActionProc ~ TRUSTED {Process.Detach[FORK BiScrollers.DoBSUserAction[bs, input]]}; <> BoundingArea: PROC [rects: LIST OF PipalReal.Rectangle, deltaPrevious, deltaNow: PipalReal.Vector] RETURNS [new: LIST OF PipalReal.Rectangle _ NIL] = { WHILE rects#NIL DO new _ CONS [ PipalReal.BoundingBox[ PipalReal.Translate[rects.first, deltaPrevious], PipalReal.Translate[rects.first, deltaNow]], new]; rects _ rects.rest; ENDLOOP; }; TranslateArea: PROC [rects: LIST OF PipalReal.Rectangle, delta: PipalReal.Vector] RETURNS [new: LIST OF PipalReal.Rectangle _ NIL] = { WHILE rects#NIL DO new _ CONS [PipalReal.Translate[rects.first, delta], new]; rects _ rects.rest; ENDLOOP; }; <> <> <> <> <> <> <<$MouseDown => viewerData.mouseDown _ NARROW [input.rest.first, BiScrollers.ClientCoords]^;>> <<$TrackSelected => {>> <> <> <<[resultType, result] _ PipalEdit.ApplyCommand[viewerData.editor, $SelectedOutlines];>> <> <> <> <> <> <> <<]]];>> <> <<};>> <<$Exit => NULL;>> < {>> <> <> <> < {>> <> <> <<};>> < SELECT atom FROM>> <<$DownCoords => arguments _ CONS [NEW [PipalReal.Size _ viewerData.mouseDown], arguments];>> < arguments _ CONS [atom, arguments];>> < arguments _ CONS [atom, arguments]; >> <> <<[resultType, result] _ PipalEdit.ApplyCommand[viewerData.editor, atom, List.Reverse[arguments]];>> <> < ViewerOps.PaintViewer[self, client]; -- until the day we have commands which change menus>> < ViewerOps.PaintViewer[self, client, FALSE, NEW [WhatChangedRec _ [clipArea: NARROW [result]]]];>> < ERROR; -- including object>> <<};>> <<>> <<};>> <<>> END.