(FILECREATED " 5-Apr-85 11:18:43" ("compiled on " {PHYLUM}RELEASE1.2>GRAPHERPATCH.;3) "20-Dec-84 12:07:22" recompiled changes: GRAPHDELETELINK DELETE/AND/DISPLAY/LINK REMOVETONODES in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED " 5-Apr-85 11:18:25" {PHYLUM}RELEASE1.2>GRAPHERPATCH.;3 7752 changes to: (FNS DELETE/AND/DISPLAY/LINK REMOVETONODES GRAPHDELETELINK) (VARS GRAPHERPATCHCOMS) previous date: "13-Mar-85 14:02:08" {PHYLUM}RELEASE1.2>GRAPHERPATCH.;1) DISPLAYLINK D1 (I 6 PARAMS I 5 LINEWIDTH I 4 G I 3 STREAM I 2 TRANS I 1 TOND I 0 FRND) –Dd²T©A @ ñ›B@AEhCF @ A ñ³`@ A ñ›B@AEhCF A @ ñ´JB@AEhCF ³Ú@ A ñ³ÏA @ ñ³ÛA @ ñ³˜@ A ñ´ B@AEhCF (223Q DISPLAYLINK/LR 205Q GN/RIGHT 201Q GN/LEFT 172Q GN/RIGHT 166Q GN/LEFT 157Q GN/TOP 153Q GN/BOTTOM 144Q GN/TOP 140Q GN/BOTTOM 126Q DISPLAYLINK/TB 110Q GN/TOP 104Q GN/BOTTOM 77Q DISPLAYLINK/BT 62Q GN/TOP 56Q GN/BOTTOM 47Q GN/RIGHT 43Q GN/LEFT 36Q DISPLAYLINK/RL 21Q GN/RIGHT 15Q GN/LEFT) NIL () DISPLAYLINK/BT D1 (I 6 PARAMS I 5 STREAM I 4 OPERATION I 3 WIDTH I 2 GNT I 1 GNB I 0 TRANS) TFg µg@AØ@A kÙØ@BØ@B kØØFg µCµkDEFg Fg Fl H(113Q LISTGET 104Q LISTGET 65Q LISTGET 53Q GN/TOP 33Q GN/BOTTOM 6 LISTGET) (110Q DASHING 101Q COLOR 62Q LINEWIDTH 13Q DRAWLINE 3 DRAWLINKFN) () DISPLAYLINK/RL D1 (I 6 PARAMS I 5 STREAM I 4 OPERATION I 3 WIDTH I 2 GNL I 1 GNR I 0 TRANS) TFg µg@A kØØ@AØ@B kÙØ@BØFg µCµkDEFg Fg Fl H(113Q LISTGET 104Q LISTGET 65Q LISTGET 44Q GN/LEFT 24Q GN/RIGHT 6 LISTGET) (110Q DASHING 101Q COLOR 62Q LINEWIDTH 13Q DRAWLINE 3 DRAWLINKFN) () GRAPHDELETELINK D1 (P 0 DELFN I 3 WINDOW I 2 GRAPH I 1 TO I 0 FROM) LBH™@ABClH¿@A@ A@A (107Q REMOVE 56Q REMOVETONODES) NIL () DELETE/AND/DISPLAY/LINK D1 (P 1 LPARAMS I 3 G I 2 WIN I 1 TOND I 0 FROMND) WA@ ³@A ²4C³.@Ab¿Hb@A @ACB ¿@AoBChI ioi i h(123Q TERPRI 117Q PRIN1 105Q DISPLAYLINK 66Q GRAPHDELETELINK 54Q LINKPARAMETERS 23Q MEMBTONODES 20Q TOLINKS 10Q MEMBTONODES 5 TOLINKS) NIL ( 113Q " link does not exist. " 75Q (0 . 0)) REMOVETONODES D1 (L (1 TONODES 0 TOND)) 7AAHµI\@ð³Ldždgð—¿@Lð©L»Jµ KhZ¹HX°ÖK&º°øNIL (30Q Link% Parameters) () (PRETTYCOMPRINT GRAPHERPATCHCOMS) (RPAQQ GRAPHERPATCHCOMS ((* * These fixes to grapher are so that all line drawing will be from the fromnode to the tonode. This is important when user cares about endpoint order in a user-provided Grapher DRAWLINKFN.) (FNS DISPLAYLINK) (* Following are new functions.) (FNS DISPLAYLINK/BT DISPLAYLINK/RL) (* * Fix so that deleting links through editor will work with Danny's paramlist creatures.) (FNS GRAPHDELETELINK DELETE/AND/DISPLAY/LINK) (* Following is a new function.) (FNS REMOVETONODES))) (PUTPROPS GRAPHERPATCH COPYRIGHT ("Xerox Corporation" 1985)) NIL