[_CDMiwok_01_]<cedarcommon2.0>MatchTool>MatchViewerImpl.mesa!10

MatchViewerImpl.mesa

Contents: Builds the MatchTool viewer and implements the user interface functions for toggling buttons. Maintains the MatchTool user interface state. BuildControlPanel, BuildRightControlPanel, and RegisterMatchActions are interesting places to look.

Kurlander, September 5, 1987 4:36:00 pm PDT

Bier, May 27, 1992 11:24 am PDT

Pier, April 17, 1990 1:17 pm PDT

Spreitze, May 7, 1990 12:01 pm PDT

DIRECTORY

AtomButtons, AtomButtonsTypes, BiScrollers, Buttons, Commander, Containers, Feedback, FeedbackOps, Geom2D, GGAlign, GGBasicTypes, GGBoundBox, GGCaret, GGControlPanelTypes, GGCoreOps, GGDragTypes, GGEmbedTypes, GGInterfaceTypes, GGModelTypes, GGMouseEvent, GGMultiGravity, GGOutline, GGRefresh, GGRefreshTypes, GGScene, GGSessionLog, GGShapes, GGSlice, GGState, GGStateExtras, GGStateTypes, GGUserInput, GGUserProfile, GGWindow, GList, GraphicsButton, Icons, Imager, ImagerTransformation, InputFocus, IO, Labels, Match, MatchGrep, MatchViewer, MJSContainers, Rope, SlackProcess, TIPUser, ViewerClasses, ViewerOps;

MatchViewerImpl: CEDAR PROGRAM

IMPORTS AtomButtons, BiScrollers, Buttons, Commander, Containers, Feedback, FeedbackOps, Geom2D, GGAlign, GGBoundBox, GGCaret, GGCoreOps, GGMouseEvent, GGMultiGravity, GGOutline, GGRefresh, GGScene, GGSessionLog, GGShapes, GGSlice, GGState, GGStateExtras, GGUserInput, GGUserProfile, GGWindow, GList, GraphicsButton, Icons, Imager, ImagerTransformation, InputFocus, IO, Labels, Match, MatchGrep, MJSContainers, Rope, SlackProcess, TIPUser, ViewerOps

EXPORTS MatchViewer, GGInterfaceTypes = BEGIN

ControlsObj: PUBLIC TYPE = GGControlPanelTypes.ControlsObj; -- exported to GGInterfaceTypes

EmbedDataObj: PUBLIC TYPE = GGEmbedTypes.EmbedDataObj; -- exported to GGInterfaceTypes

RefreshDataObj: PUBLIC TYPE = GGRefreshTypes.RefreshDataObj;

StateDataObj: PUBLIC TYPE = GGStateTypes.StateDataObj; -- exported to GGInterfaceTypes

DragDataObj: PUBLIC TYPE = GGDragTypes.DragDataObj;

CameraObj: TYPE = GGModelTypes.CameraObj;

Caret: TYPE = REF CaretObj;

CaretObj: TYPE = GGInterfaceTypes.CaretObj;

ChoiceDataObj: TYPE = MatchViewer.ChoiceDataObj;

Controls: TYPE = GGInterfaceTypes.Controls;

FiltersObj: TYPE = GGInterfaceTypes.FiltersObj;

GGData: TYPE = GGInterfaceTypes.GGData;

GGDataObj: TYPE = GGInterfaceTypes.GGDataObj;

MatchData: TYPE = MatchViewer.MatchData;

MatchDataObj: TYPE = MatchViewer.MatchDataObj;

Point: TYPE = GGBasicTypes.Point;

Sequence: TYPE = GGModelTypes.Sequence;

Scene: TYPE = GGModelTypes.Scene;

SearchState: TYPE = Match.SearchState;

Slice: TYPE = GGModelTypes.Slice;

SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;

SliceDescriptorGenerator: TYPE = GGModelTypes.SliceDescriptorGenerator;

Traj: TYPE = GGModelTypes.Traj;

Viewer: TYPE = ViewerClasses.Viewer;

minMatchTol: REAL ← .02;

initialTolerance: REAL = 0.2;

ToleranceData: TYPE = REF ToleranceDataObj;

ToleranceDataObj: TYPE = RECORD [

current: REAL ← initialTolerance

];

actionAreaHeight: CARDINAL = 200; -- height of action area biscroller viewer

actionAreaMargin: CARDINAL = 3; -- distance between two action areas

actionAreaStartY: CARDINAL = entryHeight;

buttonAlign: CARDINAL = 2; -- vertical alignment differential for the 2 kinds of buttons used

entryHeight: CARDINAL = 15; -- height of a line of items

entryHSpace: CARDINAL = 2; -- space between ButtonLines on same line

entryVSpace: CARDINAL = 2; -- vertical leading between lines

column0: CARD = 0; -- x coordinate of Characteristics column

column1: CARD = 135; -- x coordinate of From column

column2: CARD = 195; -- x coordinate of To column

column3: CARD = 245; -- x coordinate of Search button line

upperMargin: CARD = 8; -- Vertical space between actionAreas and Characteristics line

lowerMargin: CARD = 5; -- Extra space between Characteristics description line and FromTo entries

fromBoxOffset: CARD = 14; -- column1 + fromBoxOffset = x location of From boxes

toBoxOffset: CARD = 4; -- column2 + toBoxOffset = x location of To boxes

actionAreaClass: BiScrollers.BiScrollerClass ← NIL; -- filled in by MatchInit

Global MatchTool Data. At the moment, there is only one MatchTool in the world.

globalTwoState: AtomButtons.TwoState;

matchData: MatchData; -- global one of a kind matchData

matchToolIcon: Icons.IconFlavor; -- MatchTool icon

matchContainerClass: ViewerClasses.ViewerClass;

fromViewer, toViewer: Viewer;

fromLine, toLine: Viewer;

fromData, toData, grepData: GGData;

Building a MatchTool Viewer (like GGWindow)

ErrorFeedback: PUBLIC PROC [message: Rope.ROPE] = {

ggData: GGData ← GetToData[];

Feedback.PutF[ggData.router, oneLiner, $Error, message];

Feedback.Blink[ggData.router, $Error];

};

CreateTool: PROC [] = {

[] ← ViewerOps.CreateViewer [flavor: $MatchContainer,

info: [name: "MatchTool",

menu: NIL,

iconic: TRUE,

column: right,

scrollable: FALSE

paint: TRUE]; -- MatchContainerInit will be called by Viewers as an effect of CreateViewer

};

MatchContainerInit: ViewerClasses.InitProc = {

fromData ← BuildMatchGGData[self]; -- From viewer GG Data

toData ← BuildMatchGGData[self]; -- To viewer GG Data

grepData ← BuildMatchGGData[self]; -- this data is used to search scenes during grep

CreateFeedbackLine[toData, fromData, grepData];

fromViewer ← BuildActionArea[self, fromData]; -- positioned by AdjustProc

toViewer ← BuildActionArea[self, toData]; -- positioned by AdjustProc

fromLine ← BuildActionAreaLine[fromData, 0]; -- positioned by AdjustProc

toLine ← BuildActionAreaLine[toData, 0]; -- positioned by AdjustProc

BuildControlPanel[self, actionAreaStartY + actionAreaHeight + entryHeight + upperMargin];

fromData.embed.beingBorn ← FALSE; -- start input handling

toData.embed.beingBorn ← FALSE;

grepData.embed.beingBorn ← FALSE;

};

NormalPaint: GGRefresh.PaintProc = {

PROC [ggData: GGData, request: REF ← NIL, bounds: BoundBoxObj ← infiniteRect, clientData: REF ← NIL];

GGInMMMImpl.Paint can be used in place of this routine when Gargoyle is embedded in MMM.

ViewerOps.PaintViewer[viewer: ggData.controls.actionArea, hint: client, whatChanged: ggData, clearClient: FALSE];

};

BuildMatchGGData: PROC [outer: Viewer] RETURNS [ggData: GGData] = {

Builds the GGData for the MatchTool From and To viewers. outer is the MatchTool Container.

Also used for MatchTool grepData.

REMOVED IMPLICIT SHARING OF ALL initial ggData via hostData. If you want MatchTool to copy values, they must be explicitly copied to the new ggData HERE.

ggData ← NEW[GGDataObj ← matchData.hostData^]; -- copy hostData values.

SEE GGWindowImpl.CreateGGData for up-to-date initialization of ggData.

Code in BOLDFACE indicates different from corresponding code in GGWindowImpl.CreateGGData.

scene: Scene ← GGScene.CreateScene[];

ggData ← NEW[GGDataObj]; -- removed implicit copying of initial hostData values

ggData.controls ← NEW[ControlsObj];

ggData.controlState ← NEW[StateDataObj];

ggData.controlState.doubleBuffer ← TRUE;

ggData.controlState.clientToViewer ← ImagerTransformation.Scale[1.0];

ggData.controlState.viewerToClient ← ImagerTransformation.Scale[1.0];

ggData.drag ← NEW[DragDataObj];

ggData.embed ← NEW[EmbedDataObj];

ggData.embed.scrollDue ← ImagerTransformation.Scale[1.0];

GGRefresh.RegisterPaintProc[ggData, NormalPaint, NIL];

GGStateExtras.RegisterViewportProc[ggData, GGStateExtras.DefaultViewport, NIL];

ggData.embed.beingBorn ← TRUE;

ggData.controls.bufferButton ← matchData.hostData.controls.bufferButton;

outer.data ← ggData;

ggData.controls.topper.newVersion ← ggData.controls.panel.newVersion ← FALSE;

ggData.controls.topper ← ggData.controls.panel ← outer;

Working Directory

ggData.originalWDir ← matchData.hostData.originalWDir;

GGStateExtras.SetWorkingDirectory[ggData, matchData.hostData.currentWDir];

Scene and Interface Objects

ggData.scene ← scene;

ggData.caret ← NEW[CaretObj];

ggData.drag.savedCaret ← GGCaret.Create[];

ggData.anchor ← GGCaret.Create[];

ggData.camera ← NEW[CameraObj];

Input Handling

ggData.lastEvents ← GGCoreOps.NewEventListt[];

GGMouseEvent.InitializeFSM[ggData];

ggData.history ← [list: LIST[NIL],

maxSize: 1,

currentIndex: 0]; -- no history tool. Only SHIFT-ESC

Selections

ggData.drag.selectState ← none;

ggData.drag.extendMode ← none;

GGState.SetSelectionCycler[ggData, GGMultiGravity.EmptyCycler[[0.0, 0.0]] ];

Hit Testing

ggData.hitTest ← NEW[FiltersObj ← matchData.hostData.hitTest^]; -- copy record containing AtomButtons, then overwrite bags

ggData.hitTest.triggerBag ← GGAlign.CreateTriggerBag[];

ggData.hitTest.oldTriggerBag ← GGAlign.CreateTriggerBag[];

ggData.hitTest.sceneBag ← GGAlign.CreateTriggerBag[];

ggData.hitTest.oldSceneBag ← GGAlign.CreateTriggerBag[];

ggData.hitTest.alignBag ← GGAlign.CreateAlignBag[];

ggData.hitTest.oldAlignBag ← GGAlign.CreateAlignBag[];

ggData.multiGravityPool ← GGMultiGravity.NewMultiGravityPool[];

Refresh

ggData.refresh ← NEW[RefreshDataObj];

GGAlign.CreateLineTable[ggData]; -- part of RefreshData

ggData.refresh.startBoundBox ← GGBoundBox.NullBoundBox[];

ggData.refresh.beforeBox ← GGBoundBox.NullBoundBox[];

ggData.refresh.paintBox ← GGBoundBox.NullBoundBox[];

ggData.refresh.totalBox ← GGBoundBox.NullBoundBox[];

ggData.refresh.sandwich ← GGRefresh.CreateSandwich[];

ggData.refresh.oldTransform ← ImagerTransformation.Scale[1.0];

Behavior

ggData.behavior.activeDoc ← NIL; -- next time this field is needed it will be recomputed

ggData.rootSlice ← GGSlice.MakeCircleSlice[[200.0, 200.0], [300.0, 200.0]].slice;

ggData.measure ← matchData.hostData.measure; -- share record containing Viewers

Debugging

ggData.debug ← NEW[GGInterfaceTypes.DebugDataObj ← matchData.hostData.debug^]; -- share record containing IO.STREAMS

ggData.defaults ← NEW[GGInterfaceTypes.DefaultDataObj ← [

strokeColor: Imager.black,

fillColor: GGOutline.fillColor,

font: GGUserProfile.GetDefaultDefaultFont[],

dropShadowColor: Imager.black

]];

ggData.slackHandle ← matchData.hostData.slackHandle;

ggData.height ← 0;

};

CreateFeedbackLine: PROC [data1, data2, grepData: GGData] = {

Creates a single feedback line for two action areas (represented by data1 and data2) and the grepData

BuildFeedbackLine[data1];

grepData.router ← data2.router ← data1.router;

data2.height ← data2.height + entryHeight; -- data1 was incremented by BuildFeedbackLine

grepData.height ← grepData.height + entryHeight; -- just for consistency. Unused.

};

fullColumn: CARDINAL = 600; -- the width of the standard large left column.

BuildFeedbackLine: PROC [ggData: GGData] = {

nextX: NAT ← AtomButtons.BuildButtonLine[ggData.controls.panel, 0, ggData.height, ggData, GGUserInput.EventNotify, LIST[

[label["Feedback . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Line", FeedbackLineInGGData, fullColumn]]

]];

ggData.height ← ggData.height + entryHeight;

};

FeedbackLineInGGData: AtomButtons.UpdateProc = {

ggData: GGData ← NARROW[clientData];

router: Feedback.MsgRouter ← Feedback.CreateRouter[];

FeedbackOps.SetMultiLabel[router, button, TRUE, LIST[$Error, $Complaint]]; -- blink

FeedbackOps.SetMultiLabel[router, button, FALSE, LIST[$DuringMouse, $Feedback, $Warning, $Confirm, $Show, $Statistics]];

FeedbackOps.SetMultiTypescript[router, $Gargoyle, LIST[$Error, $Warning, $Show, $Typescript, $Complaint, $Statistics]];

ggData.router ← router;

ggData.controls.feedbackLine ← button;

};

BuildActionArea: PROC [outer: Viewer, ggData: GGData] RETURNS [Viewer] = {

Create an action area, complete with handy Viewer-Control line

bs: BiScrollers.BiScroller ← BiScrollers.GetStyle[].CreateBiScroller[

info: [

parent: ggData.controls.topper,

wx: 0, wy: actionAreaStartY,

ww: 700, --ggData.outer.ww,

wh: actionAreaHeight, --ggData.outer.wh,

only initial values for ww and wh. They are constrained below

data: ggData,

border: TRUE,

scrollable: FALSE],

paint: FALSE

];

ggData.controls.actionArea ← bs.QuaViewer[inner: TRUE];

ggData.controls.biScroller ← bs;

GGWindow.SetCursorLooks[ggData.hitTest.gravityType, ggData]; -- assumes gravity is turned ON

ggData.height ← ggData.height + actionAreaHeight;

RETURN[bs.QuaViewer[inner: FALSE]];

};

BuildActionAreaLine: PROC [ggData: GGData, startX: CARD] RETURNS [Viewer] = {

height1: CARDINAL = buttonAlign;

buttonHolder: Viewer ← GetButtonHolder[parent: ggData.controls.topper, wx: startX, wy: ggData.height];

nextX: INTEGER ← AtomButtons.BuildButtonLine [buttonHolder, 0, 0, ggData, GGUserInput.EventNotify, LIST[[button["Fetch", LIST[LIST[$MatchFetch]], -1, FALSE, NIL]]

]];

tV: Viewer ← BiScrollers.CreateFit[ [parent: buttonHolder, wx: nextX+entryHSpace, wy: height1, border: FALSE], ggData.controls.biScroller];

tV ← BiScrollers.CreateReset[ [parent: buttonHolder, wx: tV.wx+tV.ww+entryHSpace, wy: height1, border: FALSE], ggData.controls.biScroller];

tV← Buttons.Create[info: [parent: buttonHolder, name: "CenterSel", wx: tV.wx+tV.ww+entryHSpace, wy: 0, border: FALSE], proc: CenterSel, clientData: ggData, paint: TRUE];

RETURN[buttonHolder];

};

GetButtonHolder: PROC [parent: Viewer, wx, wy, ww: CARD ← 0, wh: CARD ← entryHeight] RETURNS [Viewer] = {

Makes a simple container to hold some buttons

IF ww = 0 THEN ww ← parent.ww;

RETURN[Containers.Create[info: [name: "holder", parent: parent, wx: wx, wy: wy, ww: ww, wh: wh, border: FALSE, scrollable: FALSE], paint: FALSE]];

};

BuildControlPanel: PROC [parent: Viewer, startHeight: CARD] = {

MakeFromToEntry: PROC [string: Rope.ROPE, parent: Viewer, height: CARD, fromAction: LIST OF REF ANY, toAction: LIST OF REF ANY, fromOn: BOOL ← FALSE, toOn: BOOL ← FALSE] RETURNS [fromState, toState: AtomButtons.TwoState, newHeight: CARD] = {

[] ← Labels.Create[[name: string, parent: parent, wx: column0, wy: height, border: FALSE]];

[] ← AtomButtons.BuildButtonLine[container: parent, x: column1 + fromBoxOffset, y: height, clientData: parent.data, handleProc: GGUserInput.EventNotify, entries: LIST [

[twoState[" ", fromAction, fromOn, FillGlobalTwoState]]]];

fromState ← globalTwoState;

[] ← AtomButtons.BuildButtonLine[container: parent, x: column2 + toBoxOffset, y: height, clientData: parent.data, handleProc: GGUserInput.EventNotify, entries: LIST [

[twoState[" ", toAction, toOn, FillGlobalTwoState]]]];

toState ← globalTwoState;

newHeight ← height + entryHeight + entryVSpace;

};

CHARACTERISTICS FROM/TO control section

height: CARD ← startHeight;

[] ← Labels.Create[[name: "CHARACTERISTICS", parent: parent, wx: column0, wy: height, border: FALSE]];

[] ← AtomButtons.BuildButtonLine[container: parent, x: column1, y: height, clientData: parent.data, handleProc: GGUserInput.EventNotify, entries: LIST[

[button["Search", LIST[LIST[$MatchSetFrom, $ClearAll], LIST[$MatchSetFrom, $ClearAll], LIST[$MatchSetFrom, $SetAll]]]]]];

[] ← AtomButtons.BuildButtonLine[container: parent, x: column2-15, y: height, clientData: parent.data, handleProc: GGUserInput.EventNotify, entries: LIST[

[button["Replace", LIST[LIST[$MatchSetTo, $ClearAll], LIST[$MatchSetTo, $ClearAll], LIST[$MatchSetTo, $SetAll]]]]]];

height ← height + entryHeight + lowerMargin;

[matchData.from.shape, matchData.to.shape, height] ← MakeFromToEntry["Shape", parent, height, LIST[$MatchToggle, $FromShape], LIST[$MatchToggle, $ToShape], TRUE, TRUE];

[matchData.from.class, matchData.to.class, height] ← MakeFromToEntry["Object Class", parent, height, LIST[$MatchToggle, $FromClass], LIST[$MatchToggle, $ToClass], TRUE, TRUE];

[matchData.from.type, matchData.to.type, height] ← MakeFromToEntry["Curve Type", parent, height, LIST[$MatchToggle, $FromType], LIST[$MatchToggle, $ToType], TRUE, TRUE];

[matchData.from.fillColor, matchData.to.fillColor, height] ← MakeFromToEntry["Area color", parent, height, LIST[$MatchToggle, $FromFillColor], LIST[$MatchToggle, $ToFillColor], FALSE, TRUE];

[matchData.from.color, matchData.to.color, height] ← MakeFromToEntry["Line color", parent, height, LIST[$MatchToggle, $FromColor], LIST[$MatchToggle, $ToColor], FALSE, TRUE];

[matchData.from.width, matchData.to.width, height] ← MakeFromToEntry["Line width", parent, height, LIST[$MatchToggle, $FromWidth], LIST[$MatchToggle, $ToWidth], FALSE, TRUE];

[matchData.from.dash, matchData.to.dash, height] ← MakeFromToEntry["Line dashes", parent, height, LIST[$MatchToggle, $FromDash], LIST[$MatchToggle, $ToDash], FALSE, TRUE];

[matchData.from.joints, matchData.to.joints, height] ← MakeFromToEntry["Line joints", parent, height, LIST[$MatchToggle, $FromJoints], LIST[$MatchToggle, $ToJoints], FALSE, TRUE];

[matchData.from.ends, matchData.to.ends, height] ← MakeFromToEntry["Line ends", parent, height, LIST[$MatchToggle, $FromEnds], LIST[$MatchToggle, $ToEnds], FALSE, TRUE];

[matchData.from.string, matchData.to.string, height] ← MakeFromToEntry["Text string", parent, height, LIST[$MatchToggle, $FromString], LIST[$MatchToggle, $ToString], FALSE, TRUE];

[matchData.from.font, matchData.to.font, height] ← MakeFromToEntry["Text font", parent, height, LIST[$MatchToggle, $FromFont], LIST[$MatchToggle, $ToFont], FALSE, TRUE];

[matchData.from.fontTform, matchData.to.fontTform, height] ← MakeFromToEntry["Text font & transform", parent, height, LIST[$MatchToggle, $FromFontTform], LIST[$MatchToggle, $ToFontTform], FALSE, TRUE];

BuildRightControlPanel[parent, startHeight];

};

BuildRightControlPanel: PROC [parent: Viewer, startHeight: CARD] = {

FIND/YES/NO/CHANGEALL, etc...

nextX: CARD;

height: CARD ← startHeight - buttonAlign;

Yes and ChangeAll must be unqueued so they don't cause SlackProcess monitor deadlock on doOps playback

[] ← AtomButtons.BuildButtonLine [parent, column3, height, parent.data, GGUserInput.UnQueuedEventNotify, LIST[

[button["Find", LIST[LIST[$MatchSearch, $SearchBelow], LIST[$MatchSearch, $SearchFromTop], LIST[$MatchSearch, $SearchAbove]]]],

[button["Yes", LIST[LIST[$MatchYes, $SearchBelow], LIST[$MatchYes, $SearchFromTop], LIST[$MatchYes, $SearchAbove]]]],

[button["No", LIST[LIST[$MatchSearch, $SearchBelow], LIST[$MatchSearch, $SearchFromTop], LIST[$MatchSearch, $SearchAbove]]]],

[button["ChangeAll", LIST[LIST[$MatchChangeAll, $SearchBelow], LIST[$MatchChangeAll, $SearchFromTop], LIST[$MatchChangeAll, $SearchAbove]]]]]];