(FILECREATED " 8-Jun-87 18:29:20" ("compiled on " {QV}1.3K>NEXT>GRAPHERPATCH.;2) "12-Nov-85 14:59:23" recompiled changes: NOT.TRACKCURSOR in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 8-Jun-87 18:29:05" {QV}1.3K>NEXT>GRAPHERPATCH.;2 14585 changes to: (FNS NOT.TRACKCURSOR) (VARS GRAPHERPATCHCOMS) previous date: "28-Jan-87 14:07:14" {QV}1.3K>NEXT>GRAPHERPATCH.;1) EDITMOVEREGION D1 (P 15Q OldPos P 14Q SelectedNode P 13Q NewRegionPosition P 11Q Node P 10Q NodeList P 7 Node P 2 Graph P 1 Region P 0 DisplayStream I 0 Window) @ @o o @ @ @g JAKLJ9@o :_IO IO OM Nh]K[N&Oo Od OH O@IH " Oh__OOOOIOI JH H O OH O_(337Q FLIPNODE 330Q EXTENDEXTENT 325Q NODEREGION 320Q WFROMDS 313Q MOVENODE 305Q CREATE.NEW.NODEPOSITION 235Q GETBOXPOSITION.FROMINITIALREGION 220Q FLIPNODE 201Q PROMPTPRINT 140Q SUBREGIONP 135Q NODEREGION 126Q INTERSECTREGIONS 123Q NODEREGION 107Q ERROR 53Q GETWINDOWUSERPROP 41Q GETWREGION 30Q \INSUREWINDOW 24Q PROMPTPRINT 14Q ERROR 3 WINDOWP) (50Q GRAPH) ( 176Q "No nodes in the region selected." 104Q " not a graph window." 21Q " Select the region containing the nodes you wish to move." 11Q " not a window.") EDITMOVESUBTREE D1 (P 6 NODELST P 5 NEAR P 4 NOW P 3 OLDPOS P 2 GRAPH P 1 REG P 0 DS I 0 WINDOW) @ @ @g SJd` o` o` o` o` NhH [ LLH MdH M`l_jXOO LLLH ` o` o` o` LHJ ` o` hLNhHK ]z(336Q NODELST/AS/MENU 333Q CURSORPOSITION 321Q PRIN1 306Q TERPRI 277Q NOT.TRACKCURSOR 270Q PRIN1 255Q PRIN1 242Q PRIN1 227Q TERPRI 220Q FLIPNODE 207Q \FZEROP 160Q GETMOUSESTATE 152Q FLIPNODE 142Q FLIPNODE 132Q NODELST/AS/MENU 126Q CURSORPOSITION 117Q PRIN1 104Q PRIN1 71Q PRIN1 56Q PRIN1 43Q TERPRI 22Q GETWINDOWUSERPROP 11Q \INSUREWINDOW 3 \INSUREWINDOW) (316Q PROMPTWINDOW 303Q PROMPTWINDOW 265Q PROMPTWINDOW 252Q PROMPTWINDOW 237Q PROMPTWINDOW 224Q PROMPTWINDOW 164Q LASTMOUSEBUTTONS 114Q PROMPTWINDOW 101Q PROMPTWINDOW 66Q PROMPTWINDOW 53Q PROMPTWINDOW 40Q PROMPTWINDOW 17Q GRAPH) ( 313Q "Done." 262Q "and release the button." 247Q "move the node to its new position" 234Q "Holding the button down, " 111Q "and press any button." 76Q "the subtree you want to move " 63Q "that is the common root of " 50Q "Move the cursor to the node ") NOT.TRACKCURSOR D1 (P 12Q MovedNodes P 11Q NewPos P 10Q OldPos P 7 deltaY P 6 deltaX P 5 NewRegionPosition P 4 OldRegion P 3 EachNode P 2 TotalRegion P 0 Children I 2 Graph I 1 DisplayStream I 0 Node) @ o B @H@ IzJA LA 1MLվML_@_@NO  OO>@OOBA A @ @OBA O H@h B@ANO @H$[A JK IYrdKA h(267Q FLIPNODE 246Q UNIONREGIONS 243Q NODEREGION 235Q FLIPNODE 221Q MOVEDESCENDENTS 174Q CALL.MOVENODEFN 166Q WFROMDS 155Q EXTENDEXTENT 152Q NODEREGION 146Q WFROMDS 141Q MOVENODE 114Q CREATE.NEW.NODEPOSITION 55Q GETBOXPOSITION.FROMINITIALREGION 50Q WFROMDS 30Q NODEREGION 16Q RECURSIVE.COLLECTDESCENDENTS 11Q PROMPTPRINT) NIL ( 6 "No node selected.") RECURSIVE.COLLECTDESCENDENTS D1 (P 3 Child I 1 Graph I 0 Node) 00@A dKdA XI HZYJ YH(51Q LAST 24Q RECURSIVE.COLLECTDESCENDENTS 7 COLLECT.CHILD.NODES) NIL () MOVEDESCENDENTS D1 (P 3 NewPos P 2 Child P 1 MovedNodes I 4 deltaY I 3 deltaX I 2 DisplayStream I 1 Node I 0 Graph) SA@ Ah"HhZCD JI .JIJdK@B B J JK@B J HX(113Q CALL.MOVENODEFN 104Q WFROMDS 74Q EXTENDEXTENT 71Q NODEREGION 65Q WFROMDS 60Q MOVENODE 36Q MEMBER 27Q CREATE.NEW.NODEPOSITION 4 RECURSIVE.COLLECTDESCENDENTS) NIL () COLLECT.CHILD.NODES D1 (P 5 NodeID P 1 GraphNodes I 1 Graph I 0 Node) .@ABHJ]I K Lh[HXL&(31Q GETNODEFROMID) NIL () CREATE.NEW.NODEPOSITION D1 (L (2 deltaY 1 deltaX 0 Node)) @AHBHNIL NIL () GETBOXPOSITION.FROMINITIALREGION D1 (I 2 DisplayStream I 1 Region I 0 Window) GAAA@ @ ,hB A@ @ ,hB @o (104Q GETBOXPOSITION 70Q DSPCLIPPINGREGION 57Q \INSUREWINDOW 47Q \INSUREWINDOW 36Q DSPCLIPPINGREGION 25Q \INSUREWINDOW 16Q \INSUREWINDOW) NIL ( 100Q "Select new region for nodes.") INIT/NODES/FOR/LAYOUT D1 (P 1 R P 0 GN I 3 FONT I 2 ROOTIDS I 1 FORMAT I 0 NS F 2 NODELST) @?dHHBhhH HHCB)dAgAgAIR IR RdHhH h(177Q SET/LABEL/SIZE 152Q FOREST/BREAK/CYCLES 147Q GETNODEFROMID 141Q LATTICE/BREAK/CYCLES 136Q GETNODEFROMID 42Q IMAGEOBJP) (126Q LATTICE 116Q LATTICE) () NODECREATE D1 (I 7 LABELSHADE I 6 BORDER I 5 FONT I 4 FROMNODEIDS I 3 TONODEIDS I 2 POS I 1 LABEL I 0 ID F 3 DEFAULT.GRAPH.NODEFONT) 70@BhdAEA hS` GhdCDJIHFh(33Q FONTNAMELIST 17Q IMAGEOBJP) (30Q DEFAULTFONT) () (PRETTYCOMPRINT GRAPHERPATCHCOMS) (RPAQQ GRAPHERPATCHCOMS ((* * RG 1/28/87 From Dave Newman's DVNPATCH003 for NoteCards. Adds MoveRegion and MoveSubtree facilities.) (P (if (NOT (OR (MEMBER (QUOTE GRAPHER) SYSFILES) (MEMBER (QUOTE GRAPHER ) FILELST))) then (ERROR "GRAPHER is not loaded. It must be loaded before GRAPHERPATCH."))) (FNS EDITMOVEREGION EDITMOVESUBTREE NOT.TRACKCURSOR RECURSIVE.COLLECTDESCENDENTS MOVEDESCENDENTS COLLECT.CHILD.NODES CREATE.NEW.NODEPOSITION GETBOXPOSITION.FROMINITIALREGION INIT/NODES/FOR/LAYOUT NODECREATE) (P (DREMOVE (SASSOC "Move Node" EDITGRAPHMENUCOMMANDS) EDITGRAPHMENUCOMMANDS) (ADDTOVAR EDITGRAPHMENUCOMMANDS (Move% Node (QUOTE MOVENODE) "Moves a single node in the graph." (SUBITEMS ( Move% Single% Node (QUOTE MOVENODE) "Moves a single node in the graph.") (Move% Node% and% Subtree ( EDITMOVESUBTREE GRAPHWINDOW) "Moves a subtree of nodes relative to the movement of their root.") ( Move% Region (EDITMOVEREGION GRAPHWINDOW) "Moves a group of nodes within a specified region to another region.")))) (SETQ EDITGRAPHMENU NIL)))) (if (NOT (OR (MEMBER (QUOTE GRAPHER) SYSFILES) (MEMBER (QUOTE GRAPHER) FILELST))) then (ERROR "GRAPHER is not loaded. It must be loaded before GRAPHERPATCH.")) (DREMOVE (SASSOC "Move Node" EDITGRAPHMENUCOMMANDS) EDITGRAPHMENUCOMMANDS) (ADDTOVAR EDITGRAPHMENUCOMMANDS (Move% Node (QUOTE MOVENODE) "Moves a single node in the graph." ( SUBITEMS (Move% Single% Node (QUOTE MOVENODE) "Moves a single node in the graph.") ( Move% Node% and% Subtree (EDITMOVESUBTREE GRAPHWINDOW) "Moves a subtree of nodes relative to the movement of their root.") (Move% Region (EDITMOVEREGION GRAPHWINDOW) "Moves a group of nodes within a specified region to another region.")))) (SETQ EDITGRAPHMENU NIL) (PUTPROPS GRAPHERPATCH COPYRIGHT ("Xerox Corporation" 1987)) NIL