DIRECTORY
AtomButtons, IO, Menus, MessageWindow, PopUpSelection, SVPredefSweeps, Rope, ViewerTools, SVEditToolMenus, SVEditUser, SVInterfaceTypes, SVSceneTypes, SVUserInput, SVViewersOnScene, VFonts, ViewerClasses;

SVEditToolMenusImplC: CEDAR PROGRAM
IMPORTS AtomButtons, MessageWindow, PopUpSelection, SVEditUser, SVUserInput, SVViewersOnScene, VFonts, ViewerTools
EXPORTS SVEditToolMenus =
BEGIN

EditToolData: TYPE = SVInterfaceTypes.EditToolData;
MasterObject: TYPE = SVSceneTypes.MasterObject;
MasterObjectList: TYPE = SVSceneTypes.MasterObjectList;
Scene: TYPE = SVSceneTypes.Scene;
SVData: TYPE = SVInterfaceTypes.SVData;
entryHeight: CARDINAL = SVEditToolMenus.entryHeight;
entryVSpace: CARDINAL = SVEditToolMenus.entryVSpace;
entryHSpace: CARDINAL = SVEditToolMenus.entryHSpace;
column0: CARDINAL = SVEditToolMenus.column0;
column1: CARDINAL = SVEditToolMenus.column1;
column2: CARDINAL = SVEditToolMenus.column2;
column2Quarter: CARDINAL = 190;
column2Half: CARDINAL = 225;
column3: CARDINAL = SVEditToolMenus.column3;
nameSize: CARDINAL = 140;
numberSize: CARDINAL = 80;
numberSize3: CARDINAL = 160;
boldFont: VFonts.Font; -- initialized in Init below;


BuildCurrentSceneSection: PUBLIC PROC [editToolData: EditToolData] = {

nextX: INTEGER;

editToolData.height _ editToolData.height + entryVSpace; -- space down from the top of the viewer


nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[button["Scene:", LIST[LIST[$ScenePrompt]] ]],
[text["DefaultScene", SceneNameInData, nameSize]]
]];

nextX _ AtomButtons.BuildUnQueuedButtonLine [editToolData.outer, nextX, editToolData.height, editToolData, LIST[
["New Viewer", button, NewViewerButton],
["New Typescript", button, NewTypescriptButton]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[button["Help!", LIST[LIST[$Help]] ]],
[button["Revive!", LIST[LIST[$Revive]] ]]
]];

nextX _ AtomButtons.BuildUnQueuedButtonLine [editToolData.outer, nextX, editToolData.height, editToolData, LIST[
["DestroyAll", button, DestroyAllButton, NIL, 0, -1, TRUE, ConfirmDestroyAll],
["Extra Stuff", button, ExtrasMenu, NIL, 0, -1, TRUE]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

};

PopUpMenuEntry: TYPE = RECORD [
name: Rope.ROPE,
input: LIST OF REF ANY];

ExtractChoiceList: PROC [menu: LIST OF PopUpMenuEntry] RETURNS [choices: LIST OF Rope.ROPE] = {
pos: LIST OF Rope.ROPE;
newCell: LIST OF Rope.ROPE;
IF menu = NIL THEN ERROR;
choices _ CONS[menu.first.name, NIL];
pos _ choices;
FOR l: LIST OF PopUpMenuEntry _ menu.rest, l.rest UNTIL l = NIL DO
newCell _ CONS[l.first.name, NIL];
pos.rest _ newCell;
pos _ newCell;
ENDLOOP;
};

ExtrasMenu: Menus.ClickProc = {
editToolData: EditToolData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["LinesOfLongitude", LIST[$LinesOfLongitude]],
["LinesOfLatitude", LIST[$LinesOfLatitude]]
];
QueuePopUpMenuAction["Extras", menu, editToolData, mouseButton#blue];
};


QueuePopUpMenuAction: PROC [label: Rope.ROPE, menu: LIST OF PopUpMenuEntry, editToolData: EditToolData, onceOnly: BOOL _ TRUE] = {
index: NAT;
choices: LIST OF Rope.ROPE _ ExtractChoiceList[menu];
DO
index _ PopUpSelection.Request[header: label, choice: choices];
IF index < 0 THEN ERROR;
IF index = 0 THEN RETURN;
FOR entries: LIST OF PopUpMenuEntry _ menu, entries.rest UNTIL entries = NIL DO
IF index = 1 THEN {
SVUserInput.EventNotify[editToolData, entries.first.input];
EXIT;
};
index _ index - 1;
REPEAT
FINISHED => ERROR;
ENDLOOP;
IF onceOnly THEN RETURN;
ENDLOOP;
};

BuildTextInputSection: PUBLIC PROC [editToolData: EditToolData] = {

nextX: INTEGER;


nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[button["Skitter:", LIST[LIST[$CurrentAssemblyPrompt]] ]],
[text["", CurrentSceneInData, nameSize]]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;


nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[button["Text1:", LIST[LIST[$Text1PromptButton]] ]],
[text["sceneAssembly", Text1InData, nameSize]]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;
nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[label["Selected Text:"]],
[button["Plane!", LIST[LIST[$SelectedTextPlaneButton]], column2, TRUE]],
[button["Source!", LIST[LIST[$SelectedTextSourceButton]], column2Half, TRUE]],
[button["Target!", LIST[LIST[$SelectedTextTargetButton]], -1, TRUE]],
[button["Parent!", LIST[LIST[$SelectedTextParentButton]], -1, TRUE]]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;
};

BuildDerivedTextSection: PUBLIC PROC [editToolData: EditToolData] = {
nextX: INTEGER;

nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[button["New:", LIST[LIST[$NewPrompt]] ]],
[text["Charlie", NewNameInData, nameSize]],
[button["Parent:", LIST[LIST[$ParentPrompt]], column2Quarter ]],
[text["sceneAssembly", ParentNameInData, nameSize]]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[label["Source:"]],
[text["", SourceNameInData, nameSize, -1, TRUE]],
[label["Target:", NIL, 0, column2Quarter]],
[text["", TargetNameInData, nameSize, -1, TRUE]]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

nextX _ AtomButtons.BuildButtonLine[editToolData.outer, 0, editToolData.height, editToolData, SVUserInput.EventNotify, LIST[
[label["Plane:"]],
[text["", PlaneNameInData, nameSize, -1, TRUE]]
]];

editToolData.height _ editToolData.height + entryVSpace + entryHeight;

};

SceneNameInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.sceneName _ button;
};
ConfirmDestroyAll: PROC [clientData: REF ANY] = {
editToolData: EditToolData _ NARROW[clientData];
MessageWindow.Append["Will Close Down Solidviews"];
};
CurrentSceneInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.current _ button;
};
Text1InData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.text1 _ button;
};
NewNameInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.new _ button;
};
ParentNameInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.parent _ button;
};
SourceNameInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.source _ button;
ViewerTools.InhibitUserEdits[editToolData.sceneSection.source];
};
TargetNameInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.target _ button;
ViewerTools.InhibitUserEdits[editToolData.sceneSection.target];
};
PlaneNameInData: AtomButtons.InitButtonProc = {
editToolData: EditToolData _ NARROW[clientData];
editToolData.sceneSection.plane _ button;
ViewerTools.InhibitUserEdits[editToolData.sceneSection.plane];
};
NewViewerButton: PROC [parent: ViewerClasses.Viewer, clientData: REF ANY _ NIL, 
mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE] = {
editToolData: EditToolData _ NARROW[clientData];
SVViewersOnScene.NewViewer[editToolData];
};
NewTypescriptButton: PROC [parent: ViewerClasses.Viewer, clientData: REF ANY _ NIL, 
mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE] = {
editToolData: EditToolData _ NARROW[clientData];
SVEditUser.NewOutput[editToolData];
};
DestroyAllButton: PROC [parent: ViewerClasses.Viewer, clientData: REF ANY _ NIL, 
mouseButton: Menus.MouseButton _ red, shift, control: BOOL _ FALSE] = {
editToolData: EditToolData _ NARROW[clientData];
SVViewersOnScene.DestroyAllSolidviewsWindows[editToolData];
};


Init: PROC = {
boldFont _ VFonts.EstablishFont[family: "Helvetica", size: 10, bold: TRUE,
italic: FALSE, defaultOnFailure: TRUE];
};

Init[];

END.


าFile: SVEditToolMenusImplC.mesa
Last edited by Bier on August 7, 1987 1:30:51 pm PDT
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Created August 9, 1984 10:47:05 pm PDT
Contents: Procedures which build sections of the EditTool

Declare the standard distances between menu lines.
This section implements a set of buttons, text windows, and options listers in this format:
Scene: <SCENENAME>  NEW VIEWER  NEW OUTPUT
Help! ColorMap!  BWMap!  ReStart!  DestroyAll!
Scene: <SCENENAME>  New Viewer  	New Output
Restart! DestroyAll! Extra Stuff

Non-destructive (copies the menu names).
SkitterAssembly: <name>
Text1: <name>
Selected Text		Plane! Source! Target! Parent!

New: <name>		Parent: <name>
TopSource: <obname>	TopTarget: <obname>


SkitterAssembly: <name>	Source! Target! Parent!
Text1: <name>	Source! Target! Parent!

Selected Text		Plane! Source! Target! Parent!


New: <Text>		Parent: <Text>
Source: <obname>  Target: <coordsystem>
Plane: <obname>

ส	6˜Iheadš
œ™Iprocš
œ4™4Jšœ
ฯm
œ1™<J™&Lš
œ9™9L˜š
ฯk	˜	Lš
œฬ
˜ฬ
—L˜šœžœ
ž˜#Lšžœk˜rLšžœ˜—Lš
ž˜˜Lšœžœ!˜3Lšœžœ˜/Lšœžœ!˜7Lšœžœ˜!šœžœ˜'L™Lš
œ2™2—Lšœ
žœ˜4Lšœ
žœ˜4Lšœ
žœ˜4Lšœ	žœ˜,Lšœ	žœ˜,Lšœ	žœ˜,Lšœžœ˜Lšœ
žœ˜Lšœ	žœ˜,Lšœ
žœ˜Lšœžœ˜Lšœ
žœ˜Icodešœฯc˜4—˜L˜—šฯnœžœ
žœ!˜FLš
œ[™[Lš
œ*™*Lš
œ.™.L˜Mšœžœ
˜L˜Lš
œa˜aL˜Lš
œ+™+L˜šœwžœ
˜|Jšœžœ
žœ˜.Mš
œ1˜1Jš
œ˜J˜—šœkžœ
˜pMš
œ(˜(Mš
œ/˜/M˜M˜—Lš
œF˜FL˜Lš
œ ™ L™šœwžœ
˜|Jšœžœ
žœ˜&Jšœžœ
žœ
˜)Jš
œ˜J˜—šœkžœ
˜pMšœ)žœ	žœ˜NMšœ$žœ	žœ
˜5M˜M˜—Lš
œF˜FL˜L˜L˜—šœžœžœ˜Mšœžœ
˜Mš	œžœ
žœ
žœ
žœ˜M˜—š œžœžœ
žœžœžœ
žœžœ˜_Mšœžœ
žœžœ
˜Mšœ	žœ
žœžœ
˜Mš
œ(™(Mšžœžœ
žœ
žœ
˜Mšœ
žœžœ˜%Mš
œ˜šžœžœ
žœ$žœžœ
ž˜BMšœ
žœžœ˜"Mš
œ˜Mš
œ˜—Mšžœ
˜M˜M˜—š 
œ˜Jšœžœ
˜0Mšœžœ
žœ˜šœžœ˜
Mšœžœ˜.Mšœžœ˜+M˜—Mš
œE˜EM˜M˜J˜—š œžœžœžœ
žœ7žœžœ˜‚
Mšœžœ
˜Mšœ	žœ
žœžœ˜5š
ž˜Mš
œ?˜?Mšžœžœ
žœ
˜Mšžœžœ
žœ
˜šžœ
žœ
žœ%žœžœ
ž˜Ošžœžœ˜Mš
œ;˜;Mšžœ
˜M˜—M˜š
ž˜Mšžœžœ
˜—Mšžœ
˜—Mšžœ
žœ
žœ
˜Mšžœ
˜—M˜M˜—š œžœ
žœ!˜CL˜Mšœžœ
˜L˜L™L™
Lšœฯb™-L™L™Lš
œ'™'L™L™L™/L˜šœwžœ
˜|Jšœžœ
žœ˜:Mš
œ(˜(Jš
œ˜J˜—Lš
œF˜FL˜Lš
ก%™%L˜šœwžœ
˜|Jšœžœ
žœ˜4Mš
œ.˜.Jš
œ˜J˜—Lš
œF˜FL™Lš
ก-™-L™šœwžœ
˜|Jš
œ˜Jšœžœ
žœ&žœ˜HJšœžœ
žœ+žœ˜NJšœžœ
žœ"žœ˜EJšœžœ
žœ"žœ˜DJš
œ˜J˜—Lš
œF˜FL™L˜L˜—š œžœ
žœ!˜EMšœžœ
˜L˜L™Lš
œ'™'L™L™šœwžœ
˜|Jšœžœ
žœ˜*Mš
œ+˜+Jšœžœ
žœ$˜@Mš
œ3˜3Jš
œ˜J˜—Lš
œF˜FL˜šœwžœ
˜|Jš
œ˜Mšœ*žœ˜1Jšœžœ˜+Mšœ*žœ˜0Jš
œ˜J˜—Lš
œF˜FL˜šœwžœ
˜|Jš
œ˜Mšœ)žœ˜/Jš
œ˜J˜—Lš
œF˜FL˜L˜L˜—š œ ˜/Mšœžœ
˜0Mš
œ-˜-M˜—š œžœžœ
žœ˜1Mšœžœ
˜0Mš
œ3˜3Mš
œ˜—š œ ˜2Mšœžœ
˜0Mš
œ+˜+M˜—š œ ˜+Mšœžœ
˜0Mš
œ)˜)M˜—š 
œ ˜-Mšœžœ
˜0Mš
œ'˜'M˜—š œ ˜0Mšœžœ
˜0Mš
œ*˜*M˜—š œ ˜0Mšœžœ
˜0Mš
œ*˜*Lš
œ?˜?M˜—š œ ˜0Mšœžœ
˜0Mš
œ*˜*Lš
œ?˜?M˜—š œ ˜/Mšœžœ
˜0Mš
œ)˜)Lš
œ>˜>M˜—š œžœ,žœ
žœžœ9žœžœ˜˜
Lšœžœ
˜0Lš
œ)˜)L˜—š œžœ,žœ
žœžœ9žœžœ˜œ
Lšœžœ
˜0Lš
œ#˜#L˜—š œžœ,žœ
žœžœ9žœžœ˜™
Lšœžœ
˜0Lš
œ;˜;L˜M˜M˜—š œžœ˜MšœEžœ
žœžœ˜rM˜M˜—Mš
œ˜L˜Lšžœ
˜L˜J˜—…—!.