(FILECREATED " 7-Dec-87 10:52:45" ("compiled on " {QV}1.3KNEXT>PMIPATCH069.;14) "12-Nov-85 14:59:23" recompiled changes: nothing in "INTERLISP-D 8-Sep-87 ..." dated " 8-Sep-87 19:13:09") (FILECREATED " 7-Dec-87 10:51:53" {QV}1.3KNEXT>PMIPATCH069.;14 44352 changes to: (VARS PMIPATCH069COMS NC.UnknownLinkIconAttachedBitMap) previous date: " 5-Nov-87 15:22:44" {QV}1.3KNEXT>PMIPATCH069.;11) NC.DrawInnerBox D1 (P 13Q InnerTop P 12Q InnerBottom P 11Q CenterTop P 10Q CenterRight P 7 CenterBottom P 6 CenterLeft P 5 Top P 4 Right P 3 Offset P 2 HalfBorderWidth P 1 TrueHeight P 0 TrueWidth I 13Q ScaledIconHeight I 12Q ScaledIconWidth I 11Q SkipRightEdgeFlg I 10Q SkipLeftEdgeFlg I 7 Dashing I 6 ImageStream I 5 Operation I 4 LineWidth I 3 Height I 2 Width I 1 Bottom I 0 Left) BjCjBkCkDojDkjmj$@H\AI]@JKAJLJMJADMD DkjOk_@OLODEFhG G"G0OOOMGDEFhG LG\OOOMDEFhG G!G-NMGNODEFhG @GbNMNODEFhG @OLODEFhG (341Q DRAWLINE 320Q DRAWLINE 270Q DRAWLINE 235Q DRAWLINE 204Q DRAWLINE 150Q DRAWLINE) NIL ( 34Q .5) NC.FetchLinkIconAttachedBitMap D1 (P 7 FieldValue P 6 CardTypeRecord P 5 CardTypeName P 4 NoteCardType P 0 BitMapVal I 2 Scale I 1 ScaledHeightToMatch I 0 Card) @@@@ L!Mdu ^N0_dgRMNd M ^doM N0_dg!oogoMo  OgMg OX`d`0d-` X$`H@ H` X0XH0AjbBkbhH[BKֺIJdAKKAI(313Q NC.MakeTypeIconBitMapSet 301Q NC.CardTypeRecord 276Q NC.FetchType 252Q NC.MakeTypeIconBitMapSet 216Q NC.GetCardTypeFieldOfSuper 177Q NC.ReportError 174Q CONCAT 123Q NC.ReportError 120Q CONCAT 105Q NC.CardTypeRecord 77Q NC.CardTypeLoader 41Q NC.CardTypeRecord 23Q NC.GetType) (310Q NC.DefaultLinkIconAttachedBitMapHeights 304Q NoteCardType 264Q BITMAPTYPE# 256Q NC.UnknownLinkIconAttachedBitMaps 247Q NC.DefaultLinkIconAttachedBitMapHeights 236Q BITMAPTYPE# 231Q NC.UnknownLinkIconAttachedBitMaps 213Q LinkIconAttachedBitMap 205Q \\FILLME// 157Q LinkIconAttachedBitMap 140Q \\EMPTY// 130Q NoteCardType 72Q NoteCardType 57Q \\EMPTY// 47Q NoteCardType 13Q CardObject) ( 170Q " still \\EMPTY// after autoloading." 163Q " of card type " 154Q "Field name " 150Q "NC.GetCardTypeField" 114Q "Cannot find full definition of card type: ") NC.DrawLinkOrPointerIcon D1 (P 41Q String P 37Q BottomOfLine P 36Q HalfScaledSpaceInterLine P 35Q ScaledSpaceInterLine P 34Q ScaledSpaceOuterY P 33Q ScaledSpaceInnerY P 32Q ScaledSpaceOuterX P 31Q ScaledSpaceInnerX P 30Q ScaledBorderWidth P 27Q ScaledLinkIconMaxWidth P 26Q XPosition P 25Q ScaledIconWidth P 24Q ScaledIconHeight P 23Q BoxHeight P 22Q BoxWidth P 21Q ApproxBoxHeight P 20Q ApproxBoxWidth P 17Q LinkIconStrings P 16Q CrossFileLinkIcon P 15Q SavedIcon P 14Q Icon P 13Q ActualCard P 12Q CrossFileLinkDestCard P 11Q CrossFileLinkFlg P 10Q Top P 7 Bottom P 6 Left P 5 FontDescent P 4 FontAscent P 3 FontHeight P 2 Dashing P 1 Font P 0 Scale I 5 PointerStyleFlg I 4 Card I 3 AttachBitmapFlg I 2 LinkIconString I 1 ImageBox I 0 ImageStream) "h@ h@  H`_.H`_0H`_2H`_4H`_6H`_8H`_:dl_NO2O0_,O)d!O>@ OB@ O>MO:L_>O,@ NOO$O&O0h@JOOO*O( UOO0O6M@ O@ NO*OO$OO*dԁO*O&O0h@JOO (1324Q NC.DrawInnerBox 1261Q PRIN1 1251Q DSPYPOSITION 1227Q NC.DrawInnerBox 1172Q DSPXPOSITION 1147Q PRIN1 1140Q DSPYPOSITION 1071Q FONTASCENT 1061Q LENGTH 1047Q FONTDESCENT 1043Q DSPXPOSITION 1005Q BITBLT 753Q \FZEROP 733Q NCHARS 726Q DSPFONT 720Q BITBLT 644Q DSPXPOSITION 604Q DSPYPOSITION 574Q NC.CreateLinkIconStrings 553Q STREQUAL 443Q NC.FetchCrossFileLinkIconAttachedBitMap 422Q BITMAPWIDTH 410Q BITMAPHEIGHT 375Q NC.FetchLinkIconAttachedBitMap 343Q NC.FetchLinkIconAttachedBitMap 315Q NC.FetchLinkIconAttachedBitMap 211Q STRINGWIDTH 157Q NCP.GetCrossFileLinkDestCard 137Q NCP.CardType 115Q FONTHEIGHT 11Q DSPFONT 4 DSPSCALE) (174Q NC.LinkIconMultiLineMode 142Q CrossFileLink 123Q NC.PointerIconDashingStyle 100Q NC.LinkIconSpaceInterLine 71Q NC.LinkIconSpaceOuterY 62Q NC.LinkIconSpaceInnerY 53Q NC.LinkIconSpaceOuterX 44Q NC.LinkIconSpaceInnerX 35Q NC.LinkIconBorderWidth 26Q NC.LinkIconMaxWidth) ( 560Q "" 550Q "" 537Q "") NC.ComputeLinkOrPointerImageBox D1 (P 35Q PartStringWidth P 34Q String P 31Q TotalEdgeSpaceY P 30Q HalfScaledSpaceInterLine P 27Q ScaledSpaceInterLine P 26Q ScaledSpaceOuterY P 25Q ScaledSpaceInnerY P 24Q ScaledSpaceOuterX P 23Q ScaledSpaceInnerX P 22Q ScaledBorderWidth P 21Q ScaledLinkIconMaxWidth P 20Q YSize P 17Q XSize P 16Q NumberOfLines P 15Q ScaledIconWidth P 14Q ScaledIconHeight P 13Q LinkIconStrings P 12Q ApproxBoxWidth P 11Q FontHeight P 10Q CrossFileLinkIcon P 7 SavedIcon P 6 Icon P 5 ActualCard P 4 CrossFileLinkDestCard P 3 CrossFileLinkFlg P 2 Font P 1 StringWidth P 0 Scale I 4 RightMargin I 3 Card I 2 AttachBitmapFlg I 1 LinkIconString I 0 ImageStream) gh@ jh@ J _H`_"H`_$H`_&H`_(H`_*H`_,H`_.dl_0O$O,O*_2ddO_ BC g iChi \C`O$O&AJ O&O$_O"O$O*OO0mO$O*OO*O$_MOH ^_HN _HN _Ao XOOKdjO"HO$O*OO0_MOH O$O*OO*O$_MOH ^_HN _HN _K CLOH _^_h_j__N O&dOOdO$O"O"O(d_!A _4j-O4"AOO@ _BOO DJ O2Ա NO(dOOdO$_O&dO$dO(d_ _kMOJ OOdjԹO!O6O2dOOOkO._ *_8J _:dIYO6_6OJ OOdjԹIO(dO&dNOjO$O$dO"O(d _6jjh(1130Q MIN 1051Q STRINGWIDTH 1023Q STRINGWIDTH 736Q STRINGWIDTH 721Q LENGTH 644Q \FZEROP 633Q FONTDESCENT 612Q NC.CreateLinkIconStrings 565Q NCHARS 476Q NC.FetchCrossFileLinkIconAttachedBitMap 457Q BITMAPWIDTH 446Q BITMAPHEIGHT 435Q NC.FetchLinkIconAttachedBitMap 402Q NC.FetchLinkIconAttachedBitMap 333Q STREQUAL 317Q BITMAPWIDTH 306Q BITMAPHEIGHT 275Q NC.FetchLinkIconAttachedBitMap 215Q STRINGWIDTH 170Q NCP.GetCrossFileLinkDestCard 152Q NCP.CardType 24Q FONTHEIGHT 12Q DSPFONT 4 DSPSCALE) (200Q NC.LinkIconMultiLineMode 155Q CrossFileLink 104Q NC.LinkIconSpaceInterLine 75Q NC.LinkIconSpaceOuterY 66Q NC.LinkIconSpaceInnerY 57Q NC.LinkIconSpaceOuterX 50Q NC.LinkIconSpaceInnerX 41Q NC.LinkIconBorderWidth 32Q NC.LinkIconMaxWidth) ( 330Q "") NC.CreateLinkIconStrings D1 (P 23Q I P 21Q EndPtr P 20Q CurrentWidth P 17Q CharWidth P 16Q Char P 15Q StringWidth P 14Q String P 13Q StringList P 12Q NumberOfLines P 11Q CharsPtr P 10Q StringLength P 7 LineWidth P 6 ScaledSpaceInnerX P 5 ScaledBorderWidth P 4 Font P 3 RemainingLineWidth P 2 LinkIconLines P 1 ThisString P 0 Scale I 3 ImageStream I 2 CrossFileLinkIcon I 1 Icon I 0 LinkIconString) &hC ohC \H`]H`^H`NdMd_AdA jBA MՇ MհjՁO`@ __j_OOkd o Io O_O_OL _KO%IO KOջO_ JIh _OK2IO JIh oOOk_O_2O_jIo j_ O kO&O$(OO&d _O OL _ KO&kوO&k_&h_"jJohIOkO" JIh OO"k _oOOkرOkd o )JIh oOOk_O_oO_JIh oOOkر@L K@h@ _k_O'@O L _KKOջOkذOko@kOk hZJ(1037Q SUBSTRING 773Q STRINGWIDTH 767Q NTHCHAR 746Q NCHARS 732Q STRINGWIDTH 705Q \NCONC2 636Q \NCONC2 625Q STREQUAL 616Q SUBSTRING 565Q SUBSTRING 553Q \NCONC2 543Q CONCAT 540Q SUBSTRING 457Q STRINGWIDTH 444Q SUBSTRING 421Q NCHARS 404Q STREQUAL 332Q \NCONC2 322Q CONCAT 275Q \NCONC2 251Q CONCAT 232Q STRINGWIDTH 201Q STREQUAL 167Q STREQUAL 160Q SUBSTRING 131Q NC.ParseString 103Q BITMAPWIDTH 75Q BITMAPWIDTH 23Q DSPFONT 4 DSPSCALE) (121Q NC.LinkIconMultiLineMode 44Q NC.LinkIconMaxWidth 36Q NC.LinkIconSpaceInnerX 30Q NC.LinkIconBorderWidth) ( 1025Q "" 712Q "" 643Q "" 622Q " " 574Q "" 524Q "" 401Q "" 337Q "" 176Q "" 164Q " " 10Q "") NC.FetchCrossFileLinkIconAttachedBitMap D1 (P 1 BitMap P 0 AttachedBitMapFn I 3 Scale I 2 ScaledHeightToMatch I 1 CrossFileLinkDestCard I 0 Card) ggH@ABClHY@BC (35Q NC.FetchLinkIconAttachedBitMap) (5 AttachedBitMapFn 2 CrossFileLink) () NC.CrossFileLinkAttachedBitMapFn D1 (P 4 ScaledHeight P 3 BitMap P 2 BitMapList P 1 BitMapSample P 0 NoteFile I 3 Scale I 2 ScaledHeightToMatch I 1 CrossFileLinkDestCard I 0 Card) p`@  X` ld H`ZH@ Y` HJ` BjbCkbJ]CMּKLdBMBMK(100Q PUTHASH 67Q NC.MakeTypeIconBitMapSet 60Q NC.FetchNoteFileAttachedBitmap 55Q NC.CoerceToInterestedWindow 33Q HASHARRAY 25Q HARRAYP 16Q NC.NoteFileFromNoteFileUID 6 NCP.CardSubstance) (75Q NC.AttachedBitMapsHashArray 64Q NC.DefaultLinkIconAttachedBitMapHeights 43Q NC.AttachedBitMapsHashArray 36Q NC.AttachedBitMapsHashArray 22Q NC.AttachedBitMapsHashArray 11Q CrossFileLinkSubstance) () NC.FetchNoteFileAttachedBitmap D1 (P 2 BitMapShade P 1 BitMap P 0 NoteFileName I 1 InterestedWindow I 0 NoteFile) c0@ XAioH ZAi ` ` Y`hdIhdddgg JIhdddg `hdIhdddgg I(137Q BITBLT 113Q BLTSHADE 76Q BITBLT 51Q BITMAPCREATE 46Q BITMAPHEIGHT 40Q BITMAPWIDTH 32Q NCP.ClearMsg 24Q EDITSHADE 21Q NCP.PrintMsg 6 NCP.FileNameFromNoteFile) (133Q ERASE 130Q INPUT 116Q NC.NoteFileAttachedBitMapMask 107Q PAINT 72Q PAINT 67Q INPUT 55Q NC.NoteFileAttachedBitMap 43Q NC.NoteFileAttachedBitMap 35Q NC.NoteFileAttachedBitMap) ( 15Q "Create a shade for notefile ") (PRETTYCOMPRINT PMIPATCH069COMS) (RPAQQ PMIPATCH069COMS ((* * pmi 12/7/87: This patch implements a change to link icon bitmaps for cross-file links. Instead of displaying the arrow cross-file link bitmap on the left side of the link icon, it has been moved to the right side of the link icon. The normal bitmap for the card type is now displayed on the left side, if the card type is known (the card's notefile is open.)) (* * Changed in NCUTILITIES) (FNS NC.DrawInnerBox) (* * Changed in NCCARDS) (FNS NC.FetchLinkIconAttachedBitMap) (* * New in NCCARDS) (GLOBALVARS NC.UnknownLinkIconAttachedBitMap NC.UnknownLinkIconAttachedBitMaps) ( BITMAPS NC.UnknownLinkIconAttachedBitMap) (VARS (NC.UnknownLinkIconAttachedBitMaps NC.UnknownLinkIconAttachedBitMap)) (* * Changed in NCLINKS) (FNS NC.DrawLinkOrPointerIcon NC.ComputeLinkOrPointerImageBox NC.CreateLinkIconStrings) (* * New for NCCROSSFILELINKS) (* * Now a programmer can customize the icon which will appear on the right side of the link icon for cross-file links. The main hook is the property "AttachedBitMapFn" which should be placed on the card type's atom; which in this case is CrossFileLink. This function will be called in the display code by NC.FetchCrossFileLinkIconAttachedBitMap when a cross-file link is encountered.) (FNS NC.FetchCrossFileLinkIconAttachedBitMap) (* * An example is provided here which has a notefile-dependent function for computing the bitmap to be displayed. It stores each notefile with its list of different sized bitmaps in the hash array NC.AttachedBitMapsHashArray. Then function NC.FetchNoteFileAttachedBitmap computes and retrieves these bitmaps.) (GLOBALVARS NC.AttachedBitMapsHashArray NC.NoteFileAttachedBitMap NC.NoteFileAttachedBitMapMask) (VARS ( NC.AttachedBitMapsHashArray)) (BITMAPS NC.NoteFileAttachedBitMap NC.NoteFileAttachedBitMapMask) (FNS NC.CrossFileLinkAttachedBitMapFn NC.FetchNoteFileAttachedBitmap) (* * The following expression establishes NC.CrossFileLinkAttachedBitMapFn as the AttachedBitMapFn for the link type CrossFileLink. NC.CrossFileLinkAttachedBitMapFn shades the cross-file link bitmap according to the notefile it points to.) (* * (P (PUTPROP (QUOTE CrossFileLink) (QUOTE AttachedBitMapFn) (FUNCTION NC.CrossFileLinkAttachedBitMapFn)))))) (RPAQ NC.UnknownLinkIconAttachedBitMap (READBITMAP)) (21 18 "OOOOOH@@" "H@@@@H@@" "H@@@@H@@" "H@OH@H@@" "HAOL@H@@" "HAHL@H@@" "HAHL@H@@" "H@AL@H@@" "H@CH@H@@" "H@G@@H@@" "H@F@@H@@" "H@F@@H@@" "H@@@@H@@" "H@F@@H@@" "H@F@@H@@" "H@@@@H@@" "H@@@@H@@" "OOOOOH@@") (RPAQ NC.UnknownLinkIconAttachedBitMaps NC.UnknownLinkIconAttachedBitMap) (RPAQQ NC.AttachedBitMapsHashArray NIL) (RPAQ NC.NoteFileAttachedBitMap (READBITMAP)) (21 18 "OOO@@@@@" "@@AH@@@@" "@@@L@@@@" "@@@F@@@@" "@@@C@@@@" "@@@AH@@@" "@@@@L@@@" "@@@@F@@@" "@@@@C@@@" "@@@@C@@@" "@@@@F@@@" "@@@@L@@@" "@@@AH@@@" "@@@C@@@@" "@@@F@@@@" "@@@L@@@@" "@@AH@@@@" "OOO@@@@@") (RPAQ NC.NoteFileAttachedBitMapMask (READBITMAP)) (21 18 "@@@OOH@@" "@@@GOH@@" "@@@COH@@" "@@@AOH@@" "@@@@OH@@" "@@@@GH@@" "@@@@CH@@" "@@@@AH@@" "@@@@@H@@" "@@@@@H@@" "@@@@AH@@" "@@@@CH@@" "@@@@GH@@" "@@@@OH@@" "@@@AOH@@" "@@@COH@@" "@@@GOH@@" "@@@OOH@@") (PUTPROPS PMIPATCH069 COPYRIGHT ("Xerox Corporation" 1987)) NIL