(FILECREATED " 1-Jul-87 19:34:31" ("compiled on " {QV}1.3K>NEXT>RHTPATCH281.;3) "12-Nov-85 14:59:23" recompiled changes: NC.LinkIconCopyFn NC.LinkIconWhenInsertedFn NC.LinkIconWhenCopiedFn NC.LinkIconWhenMovedFn in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED " 1-Jul-87 19:34:21" {QV}1.3K>NEXT>RHTPATCH281.;3 20442 changes to: (VARS RHTPATCH281COMS) (FNS NC.LinkIconWhenCopiedFn NC.LinkIconWhenMovedFn NC.LinkIconCopyFn NC.LinkIconWhenInsertedFn) previous date: "24-Jun-87 17:56:54" {QV}1.3K>NEXT>RHTPATCH281.;1 ) (NC.LoadFileFromDirectories (QUOTE NCSKETCHCARD)) NC.LinkIconCopyFn D1 (P 1 Link P 0 ImageObjectCopy I 0 ImageObject) >`@ HIII @gH Hg@ Hgg H(72Q IMAGEOBJPROP 60Q IMAGEOBJPROP 50Q IMAGEOBJPROP 40Q NC.CoerceToExternalPutLinkIcon 7 NC.FetchLinkFromLinkIcon) (67Q NC.LinkIconWhenInsertedFn 64Q WHENINSERTEDFN 54Q OriginalImageObject 44Q ImageObjectCopy 33Q Link 25Q Link 17Q Link 2 IMAGEOBJTYPE#) () NC.LinkIconWhenInsertedFn D1 (P 3 Link P 2 SourceCard P 1 StackPointer P 0 OriginalImageObj I 1 WindowStream I 0 ImageObj) H@g Hg !Id A @gh  A Zd @ [d K (105Q NC.AddToLink 101Q NC.AddFromLink 74Q NC.FetchLinkFromLinkIcon 66Q NC.CardP 61Q NC.CoerceToCard 55Q RELSTK 51Q IMAGEOBJPROP 41Q NC.LinkIconWhenCopiedFn 34Q RELSTK 22Q STKPOS 6 IMAGEOBJPROP) (45Q OriginalImageObject 17Q TEDIT.UNDO.DELETION 3 OriginalImageObject) () NC.LinkIconWhenCopiedFn D1 (P 16Q Link1 P 14Q ExternalCopyFlg P 13Q IllegalCopyFlg P 12Q InsertPos P 11Q Label P 10Q OldDisplayMode P 7 NewLabel P 6 NewSourceCard P 5 DestinationCard P 4 SourceCard P 3 Window P 2 InTEditCopyFlg P 1 ImageObjectCopy P 0 Link I 3 ToTextStream I 2 FromTextStream I 1 ToWindowStream I 0 ImageObject) @ @g g iAdi  H_H\H]H _C CK K ^C C _Nddool i_o "Khoool i_OgOgN gKhol oHL g-N g#Khol ol i_'OgOg!NdLKhol i_N gRN O&hBKhM oN l i__ MOOiO_Odg/NMMNg KhoHol i_jO`OgOg,M LM M `g`K`FMK ]?NLKhol ol `_OIg` Lgi7Mi_OILMOO !NgIOOMNOOC `  @gh (1176Q IMAGEOBJPROP 1165Q NC.SetUserDataProp 1162Q NC.FillInLinkIcon 1153Q NC.LinkAtCharPos 1124Q NC.CoerceToExternalPutLinkIcon 1065Q IMAGEOBJPROP 1040Q NC.PrintMsg 1035Q CONCAT 1032Q CHARACTER 1021Q CHARACTER 776Q NC.GetCrossFileLinkDestCard 746Q NC.GetNoteCard 741Q NC.ActiveCardP 733Q NC.CrossFileLinkCardP 673Q NC.PrintMsg 670Q CONCAT 665Q CHARACTER 643Q NC.NotDaughterP 563Q NC.ChildLinkP 546Q NC.PrintMsg 543Q CONCAT 540Q CHARACTER 533Q NC.RetrieveTitle 523Q NC.RetrieveTitle 501Q NC.FetchToLinks 467Q NC.RetrieveType 454Q NC.PrintMsg 451Q CONCAT 446Q CHARACTER 376Q NC.PrintMsg 373Q CONCAT 370Q CHARACTER 357Q CHARACTER 336Q NC.RetrieveType 324Q NC.RetrieveType 311Q CHARACTER 270Q NC.RetrieveType 236Q NC.PrintMsg 233Q CONCAT 230Q CHARACTER 203Q NC.LinksSupportedP 164Q NC.PrintMsg 161Q CONCAT 156Q CHARACTER 131Q NC.CharPosFromTextObject 126Q TEXTOBJ 121Q TEXTSTREAMP 114Q NC.CoerceToCard 106Q WINDOWP 77Q TEXTSTREAMP 32Q WFROMDS 20Q STKPOS 12Q IMAGEOBJPROP 3 NC.FetchLinkFromLinkIcon) (1172Q ImageObjectCopy 1156Q NC.CopyCrossFileLinksMode 1132Q LastLinkCopiedOrMoved 1072Q NeedsCleaningFlg 1062Q NC.DELETEMEImageObjDatum 1057Q OBJECTDATUM 1044Q NC.UnspecifiedLinkLabel 767Q NC.NewCrossFileLinksTwoWayFlg 762Q NC.CopyCrossFileLinksMode 755Q TWOWAY 752Q NC.CopyCrossFileLinksMode 724Q SubBox 715Q FiledCard 706Q NC.SystemLinkLabels 640Q NC.ChildLinkP 623Q SubBox 573Q Link 472Q FileBox 421Q SubBox 412Q FiledCard 341Q FileBox 327Q FileBox 273Q FileBox 261Q SubBox 252Q FiledCard 67Q Link 60Q Link 51Q Link 41Q Link 15Q TEDIT.COPY 7 ImageObjectCopy) ( 1025Q "Link type of copy set to 'Unspecified'." 1014Q "Tried to copy system link." 660Q " because of subbox cycle." 653Q "Couldn't copy " 527Q " not copied: already appears as a child of " 441Q "Can't copy links within a FileBox. Try move instead." 363Q "Try using 'PutCardsHere'." 352Q "Can't copy links from non-filebox to filebox." 315Q "Link type of copy set to 'Unspecified'." 304Q "Tried to copy filedcard or subbox link to a non-filebox." 223Q " does not support links!!." 217Q " to a NoteCard that" 213Q "Tried to copy a NoteCards link icon" 200Q (Local) 151Q " to a non-NoteCards stream." 145Q "Tried to copy a NoteCards link icon") NC.LinkIconWhenMovedFn D1 (P 12Q Link1 P 10Q InsertPos P 7 OldDisplayMode P 6 NewLabel P 5 NewSourceCard P 4 DestinationCard P 3 SourceCard P 2 Label P 1 Window P 0 Link I 3 ToTextStream I 2 FromTextStream I 1 ToWindowStream I 0 ImageObject) * @ Adi rHZC CI I ]H[H\H _MBCK]C C _M#Ihool ghi oMo 'Ihoool ghi @JgJgM gIhol oK g2M g(Ihol ol ghi M g\MKWM  O+hGIhL oM l ghi _ LOOiO_Jdg8MK1MLLMg #IhoHol ghi ;J`5Jg.Jg'MK"Ihol ol `^KMK @gH HOC i @gH Mg@NJLMOOC  (1047Q NC.SetUserDataProp 1044Q NC.FillInLinkIcon 1040Q NC.LinkAtCharPos 1015Q IMAGEOBJPROP 1004Q NC.AddToLink 1000Q NC.LinkAtCharPos 770Q IMAGEOBJPROP 757Q NC.TEditBasedP 740Q NC.PrintMsg 735Q CONCAT 732Q CHARACTER 721Q CHARACTER 652Q RETFROM 641Q NC.PrintMsg 636Q CONCAT 633Q CHARACTER 611Q NC.NotDaughterP 525Q NC.ChildLinkP 514Q RETFROM 503Q NC.PrintMsg 500Q CONCAT 475Q CHARACTER 470Q NC.RetrieveTitle 460Q NC.RetrieveTitle 436Q NC.FetchToLinks 417Q NC.RetrieveType 410Q RETFROM 377Q NC.PrintMsg 374Q CONCAT 371Q CHARACTER 360Q CHARACTER 337Q NC.RetrieveType 325Q NC.RetrieveType 312Q CHARACTER 271Q NC.RetrieveType 245Q RETFROM 234Q NC.PrintMsg 231Q CONCAT 226Q CHARACTER 201Q NC.LinksSupportedP 166Q RETFROM 155Q NC.PrintMsg 152Q CONCAT 147Q CHARACTER 122Q NC.CharPosFromTextObject 117Q TEXTOBJ 112Q TEXTSTREAMP 45Q NC.CoerceToCard 37Q WINDOWP 30Q TEXTSTREAMP 12Q WFROMDS 3 NC.FetchLinkFromLinkIcon) (1021Q LastLinkCopiedOrMoved 1011Q LinkBeingMoved 764Q LinkBeingMovedWithinCard 744Q NC.UnspecifiedLinkLabel 676Q SubBox 667Q FiledCard 660Q NC.SystemLinkLabels 645Q TEDIT.MOVE 606Q NC.ChildLinkP 564Q SubBox 535Q Link 507Q TEDIT.MOVE 422Q FileBox 403Q TEDIT.MOVE 342Q FileBox 330Q FileBox 274Q FileBox 262Q SubBox 254Q FiledCard 240Q TEDIT.MOVE 161Q TEDIT.MOVE 70Q Link 61Q Link 52Q Link 21Q Link) ( 725Q "Link type of copy set to 'Unspecified'." 714Q "Tried to copy system link." 626Q " because of subbox cycle." 621Q "Couldn't move " 464Q " not moved: already appears as a child of " 364Q "Try using PutCardsHere." 353Q "Can't move links from non-filebox to filebox." 316Q "Link type of copy set to 'Unspecified'." 305Q "Tried to move filedcard or subbox link to a non-filebox." 221Q " does not support links!!." 215Q " to a NoteCard that" 211Q "Tried to move a NoteCards link icon" 176Q (Local) 142Q " to a non-NoteCards stream!!." 136Q "Tried to move a NoteCards link icon") (PRETTYCOMPRINT RHTPATCH281COMS) (RPAQQ RHTPATCH281COMS ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCSKETCHCARD)))) (* * Fixes to make copying links between sketch cards and between sketch and tedit cards possible. Relies on Richard's recent sketch patch. Also copying or moving a link with system link label may still change link type to Unspecified, but no longer changes link display mode.) (* * Changes to NCLINKS) ( FNS NC.LinkIconCopyFn NC.LinkIconWhenInsertedFn NC.LinkIconWhenCopiedFn NC.LinkIconWhenMovedFn) (* * Following should be added to coms of KOTOSKETCHPATCHES) (FILES (FROM {phylum}) SKETCHWHENCOPIEDPATCH))) (FILESLOAD (FROM {phylum}) SKETCHWHENCOPIEDPATCH) (PUTPROPS RHTPATCH281 COPYRIGHT ("Xerox Corporation" 1987)) NIL