(FILECREATED "16-Feb-85 02:50:08" ("compiled on " {PHYLUM}RELEASE1.2>FGHPATCH005.;8) "20-Dec-84 12:07:22" recompiled changes: NC.PushCopyLinkIcon NC.InsertLinkInTextWindow NC.InsertLinkInText in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "16-Feb-85 02:49:40" {PHYLUM}RELEASE1.2>FGHPATCH005.;8 14686 changes to: (FNS NC.InsertLinkInText NC.InsertLinkInTextWindow NC.PushCopyLinkIcon) previous date: "16-Feb-85 02:12:24" {PHYLUM}RELEASE1.2>FGHPATCH005.;7) NC.PushCopyLinkIcon D1 (P 10Q WindowPositionY P 7 WindowPositionX P 6 NewWindow P 5 ScreenPosition P 4 Link P 3 TranslatePositionFn P 2 InsertLinkFn P 1 NoteCardType P 0 ID I 1 Window I 0 LinkIcon) p @ \]d ^d _N _N MN XdE Yd> Z8I [1NLLHLL NLNOOlKlJh(132Q NC.MakeLink 73Q NC.TranslateWindowPositionFn 64Q NC.InsertLinkFn 55Q NC.FetchType 46Q NC.IDFromWindow 40Q WINDOWP 32Q LASTMOUSEY 24Q LASTMOUSEX 17Q WHICHW 12Q GETPOSITION 6 NC.FetchLinkFromLinkIcon) NIL () NC.TranslateWindowPositionToGraphPosition D1 (L (2 WindowPositionY 1 WindowPositionX 0 Window)) ABNIL NIL () NC.TranslateWindowPositionToSketchPosition D1 (L (2 WindowPositionY 1 WindowPositionX 0 Window)) ABNIL NIL () NC.TranslateWindowPositionToTEditPosition D1 (P 0 TextObj I 2 WindowPositionY I 1 WindowPositionX I 0 Window) /@ &@g X`ABHdhd@ (47Q TEDIT.SELECT 17Q GETWINDOWUSERPROP 6 WINDOWP) (52Q SELECTION 36Q TEXTOBJ 24Q TEXTOBJTYPE# 14Q TEXTOBJ) () NC.InsertLinkInGraph D1 (P 1 Node P 0 Graph I 2 Position I 1 Link I 0 GraphWindow) :@g @gA H@ YdBI Io@h@ @g h(66Q PUTWINDOWPROP 57Q PRINTDISPLAYNODE 54Q DSPCLIPPINGREGION 41Q MEASUREGRAPHNODE 26Q GRAPHADDNODE 21Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (63Q NoteCardInsertingLink 15Q NoteCardInsertingLink 3 GRAPH) ( 46Q (0 . 0)) NC.InsertLinkInTextWindow D1 (P 0 TextStream I 2 CharacterPosition I 1 Link I 0 TextWindow) @g HAhddB (23Q NC.InsertLinkInText 6 GETWINDOWUSERPROP) (3 TEXTSTREAM) () NC.LinkIconButtonEventInFnA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 RESETVARSLST F 2 HotRegion F 3 RESETY) 2gP hhQc`ljRP P hci(51Q INSIDEP 46Q LASTMOUSEY 42Q LASTMOUSEX 23Q GETMOUSESTATE 6 INVERTW) (27Q LASTMOUSEBUTTONS 2 INVERTW) () NC.LinkIconButtonEventInFn D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 LeftButtonFlg P 3 HotRegion P 2 ClippingRegion P 1 ID P 0 Link I 1 WINDOW I 0 ImageObject F 10Q NC.SelectedCards F 11Q NC.SelectionInProgress F 12Q LISPXHIST F 13Q RESETVARSLST) #@ AA AA A A A b`ljh\hA ZdJoJJoJ [`ljKA A `ljW!Wog hg_ OKA A [WiHYd\WhUIWc`l@j@A gWgHW h(HWcLH @A JA A h(435Q INSIDEP 432Q LASTMOUSEY 426Q LASTMOUSEX 420Q NC.LinkIconMiddleButtonFn 412Q NC.EditNoteCard 366Q MEMBER 344Q NC.PushCopyLinkIcon 266Q INSIDEP 263Q LASTMOUSEY 257Q LASTMOUSEX 250Q ERROR! 241Q RESETRESTORE 226Q NC.LinkIconButtonEventInFnA0001 170Q GETMOUSESTATE 163Q INSIDEP 160Q LASTMOUSEY 154Q LASTMOUSEX 135Q GETMOUSESTATE 131Q CREATEREGION 70Q DSPCLIPPINGREGION 47Q GETMOUSESTATE 42Q WINDOW.FROM.TEDIT.THING 34Q TEXTSTREAMP 27Q WFROMDS 22Q DISPLAYSTREAMP 12Q WINDOWP 3 NC.FetchLinkFromLinkIcon) (355Q Links 347Q DON'T 327Q \EM.KBDAD2 234Q ERROR 223Q INTERNAL 174Q LASTMOUSEBUTTONS 141Q LASTMOUSEBUTTONS 53Q LASTMOUSEBUTTONS) ( 220Q (NC.LinkIconButtonEventInFnA0001) 120Q .5 103Q .25) NC.GraphAddNodeFn D1 (P 3 NodeID P 2 Link P 1 LinkLabel P 0 GraphID I 1 Window I 0 Graph) lA !Ag Z H @A J lJ J Ahdid Y*AI Z"H [@ KJ hA (151Q NODECREATE 146Q CURSORPOSITION 141Q NC.MakeLinkIcon 131Q FASSOC 123Q GENSYM 115Q NC.MarkCardDirty 106Q NC.MakeLink 76Q NC.AskLinkLabel 63Q NC.IDP 53Q NC.IDP 41Q LENGTH 31Q DEFAULT.ADDNODEFN 24Q NC.MarkCardDirty 15Q PUTWINDOWPROP 3 NC.IDFromWindow) (12Q NoteCardInsertingLink) () NC.GraphCardLeftButtonFn D1 (P 1 ID P 0 LinkIcon I 1 GraphWindow I 0 GraphNode F 2 NC.SelectedCards F 3 NC.SelectionInProgress) N@H 9SH Yd+R&IRc`l@jHA hH  h(112Q NC.EditNoteCard 104Q NC.FetchLinkFromLinkIcon 76Q NC.PushCopyLinkIcon 33Q NC.FetchLinkFromLinkIcon 22Q NC.LinkIconImageObjP) (61Q \EM.KBDAD2) () NC.InsertLinkInText D1 (P 3 Link P 2 Selection P 1 TextObject P 0 Window I 5 CharacterPosition I 4 DisplayMode I 3 SourceID I 2 DestinationID I 1 LinkOrLinkLabel I 0 TextStream) @ @ 2EdEIIZqA/HABCD [d_ I EQJdg'J; lA A AgIkJ kؼdLL Koo h(243Q NC.ReportError 226Q TEDIT.INSERT.OBJECT 161Q NC.IDP 150Q NC.IDP 135Q LENGTH 101Q TEXTSTREAM 75Q NC.MakeLinkIcon 66Q NC.MakeLink 7 TEXTOBJ 3 WINDOW.FROM.TEDIT.THING) (210Q SELECTION 200Q TEXTOBJ 171Q RIGHT 126Q SELECTION 116Q LEFT 110Q SELECTION 45Q SELECTION 37Q TEXTOBJ 27Q TEXTOBJ) ( 240Q "No selection set when inserting link image object." 234Q "NC.InseretLinkInText") NC.AddLinkToSketchCard D1 (P 1 Link P 0 Label I 0 SketchWindow) @hdid H@H Y@I (33Q NC.InsertLinkInSketch 23Q NC.MakeLink 10Q NC.AskLinkLabel) NIL () NC.InsertLinkInSketch D1 (P 5 Position P 4 Region P 3 Size P 2 SketchIcon P 1 Scale P 0 LinkIcon I 2 SketchWindowPosition I 1 Link I 0 SketchWindow) lA @ bH [B KKhd@ ]dMKK \gHL@ IKKh_I`ھI`NhhOhZd@ J(150Q SKETCH.ADD.AND.DISPLAY 70Q UNSCALE.REGION.FROM.SKETCHW 56Q CREATEREGION 41Q GETBOXPOSITION 23Q POSITIONP 16Q IMAGEBOXSIZE 7 SKETCHW.SCALE 3 NC.MakeLinkIcon) (126Q DEFAULT.VISIBLE.SCALE.FACTOR 120Q MINIMUM.VISIBLE.SCALE.FACTOR 62Q SKIMAGEOBJ) () (PRETTYCOMPRINT FGHPATCH005COMS) (RPAQQ FGHPATCH005COMS ((* * This stuff supports the "push-copy" method of copying links in NC) (* * Junk. Just sets up this stuff to work on top of old code) (FILES (FROM {PHYLUM}RELEASE1.2>) FGHPATCH003) (FILES (FROM {PHYLUM}RELEASE1.2>) FGHPATCH004) (* * New stuff to go in NCLINKS) (FNS NC.PushCopyLinkIcon) (* * New stuff to go in various card type/ substance type files) ( FNS NC.TranslateWindowPositionToGraphPosition NC.TranslateWindowPositionToSketchPosition NC.TranslateWindowPositionToTEditPosition NC.InsertLinkInGraph NC.InsertLinkInTextWindow) (* * redefined stuff from NCLINKS) (FNS NC.LinkIconButtonEventInFn) (* * Redefined stuff to go in NCGRAPHSUBSTANCE) (FNS NC.GraphAddNodeFn NC.GraphCardLeftButtonFn) (* * Redefined stuff to go in NCTEXTSUBSTANCE) (FNS NC.InsertLinkInText) (* * Redefined stuff to go in NCSKETCHSUBSTANCE) (FNS NC.AddLinkToSketchCard NC.InsertLinkInSketch))) (FILESLOAD (FROM {PHYLUM}RELEASE1.2>) FGHPATCH003) (FILESLOAD (FROM {PHYLUM}RELEASE1.2>) FGHPATCH004) (PUTPROPS FGHPATCH005 COPYRIGHT ("Xerox Corporation" 1985)) NIL