(FILECREATED "28-Apr-87 18:14:11" ("compiled on " {QV}1.3K>NEXT>RHTPATCH250.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "28-Apr-87 18:13:54" {QV}1.3K>NEXT>RHTPATCH250.;1 2857 changes to: (VARS RHTPATCH250COMS)) (LOAD? (NC.FindFile (QUOTE GRAPHERPATCH))) 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@ IЕzJA LA1MLеОMLе_П@_П@NO OOєГ>@OOBA ПA @ П@OBA O ПHВ@h B@ANO @HА$[A ПJK КIYБџrdKA Еѓ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.") (PRETTYCOMPRINT RHTPATCH250COMS) (RPAQQ RHTPATCH250COMS ((* * Fixes bug reported by Wes whereby MoveNodeAndSubtree breaks for nodes with lots of subnodes.) (DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE GRAPHERPATCH))))) (* * Change to GRAPHERPATCH) (FNS NOT.TRACKCURSOR))) (PUTPROPS RHTPATCH250 COPYRIGHT ("Xerox Corporation" 1987)) NIL