(FILECREATED " 8-Jun-87 18:05:38" ("compiled on " {QV}1.3K>NEXT>NCCARDS.;93) "12-Nov-85 14:59:23" recompiled changes: NC.DeleteNoteCardInternal NC.RetrieveFromLinks NC.RetrieveToLinks NC.RetrieveGlobalLinks NC.LinksCachedP NC.SeverExternalLinks NC.EditNoteCard NC.QuitCard NC.CheckTitle NC.CardSaveFn NC.DetermineDisplayRegion NC.AbortCard NC.ClosePropListEditor in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 8-Jun-87 18:02:18" {QV}1.3K>NEXT>NCCARDS.;93 179905 changes to: (FNS NC.QuitCard NC.ClosePropListEditor NC.CheckTitle NC.EditNoteCard NC.LinksCachedP NC.AbortCard NC.DetermineDisplayRegion NC.CardSaveFn NC.RetrieveFromLinks NC.RetrieveToLinks NC.RetrieveGlobalLinks NC.SeverExternalLinks NC.DeleteNoteCardInternal) (VARS NCCARDSCOMS) previous date: "22-Apr-87 12:10:20" {QV}1.3K>NEXT>NCCARDS.;92) NC.CardOrCardHolderFromUID D1 (P 0 NoteFile I 1 NoteFileUID I 0 CardUID) ' A X@H `Yd@IA(15Q NC.CardFromUID 6 NC.NoteFileFromNoteFileUID) (40Q CardObject 30Q CardObject 22Q CardObjectTYPE#) () NC.CardP D1 (L (0 Card)) @`NIL (4 CardObjectTYPE#) () NC.DeleteNoteCardA0001 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 Card F 6 InterestedWindow F 7 RESETVARSLST F 10Q QuietFlg F 11Q NoConfirmFlg F 12Q DontClearFlg F 13Q RESETY) ` U 1HgUgUg hUg` hWcgUgUg hUgo hWcgULd`UL YIhULd`UL ZJg`ULd`UL [Kg  hWco``hWc` HHgU Viol n Vi hilUVo aWoooWhV Vi @Ugi UhWV UWV WVi VU oH gci(627Q NC.PrintOperationInProgressMsg 617Q NC.CoerceToInterestedWindow 605Q NC.ClearMsg 574Q NC.DeleteNoteCardInternal 564Q NC.SeverExternalLinks 552Q NC.UIDPutProp 532Q NC.ClearMsg 525Q NC.AskYesOrNo 472Q NC.CheckForNotReadOnly 453Q NC.ClearMsg 445Q DISMISS 436Q NC.PrintMsg 433Q CHARACTER 416Q NC.TopLevelCardP 376Q RELEASE.MONITORLOCK 330Q NC.NoteFileProp 324Q NC.NoteFileProp 310Q NC.NoteFileFromNoteFileUID 241Q NC.NoteFileFromNoteFileUID 175Q NC.NoteFileFromNoteFileUID 126Q NC.SetUserDataProp 106Q NC.FetchUserDataProp 57Q NC.SetUserDataProp 40Q NC.FetchUserDataProp 12Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (633Q DON'T 546Q AboutToBeDeletedFlg 541Q CardObject 405Q US 373Q NC.LockLock 357Q NC.CardBusyList 353Q NC.CardBusyList 350Q \RUNNING.PROCESS 321Q CardProcessInProgressList 304Q CardObject 274Q NoteFileTYPE# 261Q CardObject 255Q \RUNNING.PROCESS 252Q CardProcessInProgressList 235Q CardObject 225Q NoteFileTYPE# 212Q CardObject 171Q CardObject 161Q NoteFileTYPE# 146Q CardObject 142Q NC.ResetCardProcessInProgress 117Q OperationInProgress 103Q OperationInProgress 77Q OperationInProgress 73Q NC.SetUserDataProp 54Q \RUNNING.PROCESS 51Q ProcessInProgress 35Q ProcessInProgress 31Q ProcessInProgress 25Q NC.SetUserDataProp 2 NC.LockLock) ( 623Q "Delete Note Card" 514Q "Yes" 510Q " -- " 504Q "Are you sure you want to delete this?" 467Q "Can't delete cards from a " 426Q "You cannot delete this FileBox." 345Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 123Q "Delete Note Card") NC.DeleteNoteCard D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 Card I 4 InterestedWindow I 3 QuietFlg I 2 NoConfirmFlg I 1 DontClearFlg I 0 CardIdentifier F 4 LISPXHIST F 5 RESETVARSLST) 8@ H +DH bT!Uog hg[ KJ(63Q ERROR! 56Q RESETRESTORE 44Q NC.DeleteNoteCardA0001 22Q NC.CoerceToInterestedWindow 12Q NC.ValidCardP 3 NC.CoerceToCard) (52Q ERROR 41Q INTERNAL) ( 36Q (NC.DeleteNoteCardA0001)) NC.DeleteNoteCardInternalA0001A0002 D1 (NAME ERRORSET P 36Q FromLink P 34Q ToLink P 32Q CardPart P 31Q WLCardPart P 30Q WLCard P 27Q WriteLock P 25Q FromLink P 24Q ToLink P 10Q BusyPart P 7 FromLinks P 6 ToLinks P 5 WriteLocks P 0 \NF F 37Q Card F 40Q InterestedWindow F 41Q RESETVARSLST F 42Q QuietFlg F 43Q IgnoreLinksFlg F 44Q RESETY) aW>Hd`W>H YI hi W@ W> c@@odW>LJIh[I&KW>i W> WFW> W> _N7dM0od_O(OJIh[I&K O7dM0od_O*OJIh[I&K WDW@io M1O,i?gW>oo_._0 O._2O0Hd`O0H _O*_O0O2lOJgO0Hd`O0H _O*O0O2hhhWBcBiO._hhGO,_,;dW>Hd`W>H _O*_W>O4lOhhWBcBW>Hd`W>H _ O *_"W>kO"W> W> WF3WDW@ho NO6LOO:cWDW@ho W> W> W> W>id W>Hd`Vf_8 O8 O8O8 O6_6_< "O< O<W> O<O< O:_:oW>H _$O$*_&W>kO&W> OOW@ cHi(1532Q NC.CardPartBusy 1516Q NC.SetNewCardFlg 1454Q NC.NoteFileFromNoteFileUID 1430Q NC.DelReferencesToCardFromShowLinks 1413Q NC.DelReferencesToCard 1376Q NC.DelToLink 1367Q NC.ValidLinkP 1351Q NC.DelReferencesToCardFromShowLinks 1334Q NC.DelFromLink 1325Q NC.ValidLinkP 1271Q NC.QuitCard 1261Q NC.CloseAllPropListEditors 1253Q NC.TurnOffDirtyFlgs 1244Q NC.ActiveCardP 1236Q NC.PrintMsg 1173Q NC.PrintMsg 1151Q NC.SetFromLinks 1143Q NC.SetToLinks 1101Q NC.NoteFileFromNoteFileUID 765Q NC.NoteFileFromNoteFileUID 630Q NC.NoteFileFromNoteFileUID 526Q NC.NoteFileFromNoteFileUID 456Q NC.ValidCardP 403Q NC.PrintMsg 361Q \NCONC2 265Q \NCONC2 174Q NC.RetrieveFromLinks 166Q NC.RetrieveToLinks 152Q NC.GreyCard 144Q NC.SetBeingDeletedFlg 66Q NC.CoerceToInterestedWindow 60Q OPENWP 52Q OBTAIN.MONITORLOCK 45Q NC.FetchMonitor 34Q NC.NoteFileFromNoteFileUID) (1474Q NoteFileDevice 1467Q NoteFile 1450Q CardObject 1421Q Link 1404Q Link 1342Q Link 1312Q NoteFileTYPE# 1277Q CardObject 1121Q NoteFileDevice 1114Q NoteFile 1075Q CardObject 1063Q NoteFileTYPE# 1050Q CardObject 1005Q NoteFileDevice 1000Q NoteFile 761Q CardObject 747Q NoteFileTYPE# 734Q CardObject 650Q NoteFileDevice 643Q NoteFile 624Q CardObject 612Q NoteFileTYPE# 577Q CardObject 572Q APPLY* 546Q NoteFileDevice 541Q NoteFile 522Q CardObject 510Q NoteFileTYPE# 475Q CardObject 426Q NC.DeactivateCard 327Q Link 233Q Link 30Q CardObject 17Q NoteFileTYPE# 4 CardObject) ( 1233Q "..done." 1170Q "Removing links to and from other cards..." 442Q (SUBSTANCE TOLINKS GLOBALTOLINKS PROPLIST) 434Q (T) 400Q "Collecting write locks..." 313Q (SUBSTANCE TOLINKS FROMLINKS GLOBALTOLINKS) 217Q (TOLINKS FROMLINKS GLOBALTOLINKS) 100Q (SUBSTANCE TITLE TOLINKS FROMLINKS GLOBALTOLINKS PROPLIST)) NC.DeleteNoteCardInternalA0001 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 RESETVARSLST F 4 Card F 5 LISPXHIST F 6 RESETY) Mg` hhScgTohhScU!Sog hgZ JIc i(104Q ERROR! 76Q RESETRESTORE 64Q NC.DeleteNoteCardInternalA0001A0002 10Q CURSOR) (72Q ERROR 61Q INTERNAL 25Q NC.SetBeingDeletedFlg 5 WAITINGCURSOR 2 CURSOR) ( 56Q (NC.DeleteNoteCardInternalA0001A0002) 32Q (NIL)) NC.DeleteNoteCardInternal D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 IgnoreLinksFlg I 2 InterestedWindow I 1 QuietFlg I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.DeleteNoteCardInternalA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.DeleteNoteCardInternalA0001)) NC.SameCardP D1 (L (1 Card2 0 Card1)) @ANIL NIL () NC.FetchStatus D1 (L (0 Card)) @NIL (3 CardObject) () NC.SetNewCardFlg D1 (P 0 \Cache I 1 Value I 0 Card) 8@H@`dAkAkjY@Ijhj@ANIL (35Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.FetchNewCardFlg D1 (L (0 Card)) @d@jhNIL (12Q CardCache 3 CardObject) () NC.ActivateCard D1 (L (0 Card)) @kkjhNIL (3 CardObject) () NC.ActiveCardP D1 (I 0 Card) @djh@ (22Q NC.FetchType) (5 CardObject) () NC.DeactivateCard D1 (P 5 \NF P 0 CardPart I 1 DeleteTypeAndTitleFlg I 0 Card) @jjdh@hopdA@Md`@M YI*@HlJ@Md`@M [K*@HlLAG@h@h@Md`@M ^N*@glI(267Q NC.NoteFileFromNoteFileUID 156Q NC.NoteFileFromNoteFileUID 72Q NC.NoteFileFromNoteFileUID) (316Q TITLE 305Q NoteFileDevice 300Q NoteFile 263Q CardObject 253Q NoteFileTYPE# 240Q CardObject 231Q CardObject 222Q CardObject 174Q NoteFileDevice 167Q NoteFile 152Q CardObject 142Q NoteFileTYPE# 127Q CardObject 110Q NoteFileDevice 103Q NoteFile 66Q CardObject 56Q NoteFileTYPE# 43Q CardObject 21Q CardObject 3 CardObject) ( 30Q (SUBSTANCE TOLINKS GLOBALTOLINKS PROPLIST)) NC.FetchFromLinks D1 (L (0 Card)) @ddNIL (21Q LinksCache 12Q CardCache 3 CardObject) () NC.FetchGlobalLinks D1 (L (0 Card)) @ddNIL (21Q LinksCache 12Q CardCache 3 CardObject) () NC.FetchLinksDirtyFlg D1 (L (0 Card)) @djhNIL (12Q CardCache 3 CardObject) () NC.FetchPropList D1 (L (0 Card)) @dNIL (12Q CardCache 3 CardObject) () NC.FetchRegion D1 (L (0 Card)) @dNIL (12Q CardCache 3 CardObject) () NC.FetchSavedRegion D1 (L (0 Card)) @dNIL (12Q CardCache 3 CardObject) () NC.FetchRegionViewed D1 (I 0 Card) @g'NIL (10Q RegionViewed 3 CardObject) () NC.FetchScale D1 (I 0 Card) @g (6 NC.FetchUserDataProp) (3 Scale) () NC.FetchSlotNum D1 (L (0 Card)) @llkNIL (3 CardObject) () NC.FetchSubstance D1 (L (0 Card)) @dNIL (12Q CardCache 3 CardObject) () NC.FetchTitle D1 (L (0 Card)) @NIL (3 CardObject) () NC.FetchToLinks D1 (L (0 Card)) @ddNIL (21Q LinksCache 12Q CardCache 3 CardObject) () NC.FetchType D1 (I 0 Card) @@ (13Q NC.GetType) (3 CardObject) () NC.FetchWindow D1 (P 2 UnshrunkenWin P 1 Window I 0 Card) <@ !Hh@I IIg Z @J JHX(62Q NC.SameCardP 57Q NC.CoerceToCard 51Q WINDOWP 45Q GETWINDOWUSERPROP 33Q NC.SameCardP 30Q NC.CoerceToCard 10Q OPENWINDOWS 3 NC.ActiveCardP) (42Q ICONFOR) () NC.IDP D1 (L (0 CardID)) @`NIL (4 UIDTYPE#) () NC.MarkCardDirty D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 1 ResetFlg I 0 Card) @@ H!Idq ZJ[dgPIJd I ZdoI J[dg oogoIo  KgIg K@AlL@Ah (231Q NC.SetSubstanceDirtyFlg 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (200Q MarkDirtyFn 172Q \\FILLME// 145Q MarkDirtyFn 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.CardDirtyP D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 0 Card) @@ H!Idq ZJ[dgPIJd I ZdoI J[dg oogoIo  KgIg K@kL@ (226Q NC.FetchSubstanceDirtyFlg 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (200Q DirtyPFn 172Q \\FILLME// 145Q DirtyPFn 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.SetFromLinks D1 (P 3 \Links P 2 \Cache I 1 Links I 0 Card) A@@`HIIJ[ddAAJ`dAANIL (65Q LinksCacheTYPE# 62Q CardCache 51Q LinksCache 40Q CardCache 16Q CardCacheTYPE# 13Q CardObject 3 CardObject) () NC.SetGlobalLinks D1 (P 3 \Links P 2 \Cache I 1 GlobalLinks I 0 Card) A@@`HIIJ[ddAAJ`dAANIL (65Q LinksCacheTYPE# 62Q CardCache 51Q LinksCache 40Q CardCache 16Q CardCacheTYPE# 13Q CardObject 3 CardObject) () NC.SetLinksDirtyFlg D1 (P 0 \Cache I 1 Value I 0 Card) 8@H@`dAkAkjYIjhjANIL (35Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.SetPropList D1 (P 0 \Cache I 1 PropList I 0 Card) &@H@`dAAAANIL (37Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.SetRegion D1 (P 0 \Cache I 1 Region I 0 Card) &@H@`dAAAANIL (37Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.SetSavedRegion D1 (P 1 \Cache I 1 Region I 0 Card) LA A A A A @Y@`dHHHH(45Q MAKEWITHINREGION 31Q COPYALL 21Q COPYALL 12Q COPYALL 4 COPYALL) (105Q CardCache 70Q CardCacheTYPE# 65Q CardObject 54Q CardObject) () NC.SetRegionViewed D1 (I 1 RegionValue I 0 Card) @gA (7 NC.SetUserDataProp) (3 RegionViewed) () NC.SetScale D1 (I 1 ScaleValue I 0 Card) @gA (7 NC.SetUserDataProp) (3 Scale) () NC.SetSubstance D1 (P 0 \Cache I 1 Substance I 0 Card) &@H@`dAAAANIL (37Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.SetTitle D1 (L (1 Title 0 Card)) @AANIL (3 CardObject) () NC.SetToLinks D1 (P 3 \Links P 2 \Cache I 1 Links I 0 Card) A@@`HIIJ[ddAAJ`dAANIL (65Q LinksCacheTYPE# 62Q CardCache 51Q LinksCache 40Q CardCache 16Q CardCacheTYPE# 13Q CardObject 3 CardObject) () NC.SetType D1 (L (1 NoteCardType 0 Card)) @AANIL (3 CardObject) () NC.FetchTitleDirtyFlg D1 (L (0 Card)) @jhNIL (3 CardObject) () NC.SetTitleDirtyFlg D1 (L (1 Value 0 Card)) @AkjHIIjhNIL (3 CardObject) () NC.FetchPropListDirtyFlg D1 (L (0 Card)) @d jhNIL (12Q CardCache 3 CardObject) () NC.SetPropListDirtyFlg D1 (P 0 \Cache I 1 Value I 0 Card) 8@H@`dAkAkjY Ijhj ANIL (35Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.SetSubstanceDirtyFlg D1 (P 0 \Cache I 1 Value I 0 Card) 8@H@`dAkAkjY0Ijhj0ANIL (35Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.FetchSubstanceDirtyFlg D1 (L (0 Card)) @d0jhNIL (12Q CardCache 3 CardObject) () NC.TurnOffDirtyFlgs D1 (I 0 Card) @g @ @ @ (22Q NC.SetPropListDirtyFlg 16Q NC.SetTitleDirtyFlg 12Q NC.SetLinksDirtyFlg 6 NC.MarkCardDirty) (3 RESET) () NC.FetchUserDataProp D1 (I 1 Prop I 0 Card) @ @A'NIL (13Q CardObject 3 CardObject) () NC.SetUserDataProp D1 (P 0 UserDataPropList I 2 Value I 1 Prop I 0 Card) "@H@ABhYIAB (37Q LISTPUT) (20Q CardObject 3 CardObject) () NC.SetUserDataPropList D1 (L (1 PropList 0 Card)) @AANIL (3 CardObject) () NC.MakeTypeIconBitMapSet D1 (P 4 Height P 0 OriginalHeight I 1 Heights I 0 Bitmap) ;@ 0AdL@LH hYJI[ZK@ ZI(64Q LAST 31Q SCALEBITMAP 3 BITMAPHEIGHT) NIL () NC.MakeNewCardWindow D1 (P 0 Window I 4 Region/Position I 3 NoOpenFlg I 2 BorderWidth I 1 Title I 0 Card) @D AoBC Hg@ H(33Q PUTWINDOWPROP 20Q CREATEW 4 NC.DetermineDisplayRegion) (27Q NoteCardObject) ( 13Q "Untitled") NC.ObtainEditPermission D1 (P 3 WRITERELEASEFN P 2 WRITEPERMISSIONFN P 0 \NF I 0 Card) @Hd`@H YI*@Hd`@H YI*@ V@glJK@glJ6@glJ@glJi@glK@glK@glKh@glKh(134Q NC.FetchWindow 105Q NC.NoteFileFromNoteFileUID 32Q NC.NoteFileFromNoteFileUID) (254Q SUBSTANCE 241Q TOLINKS 230Q SUBSTANCE 217Q GLOBALTOLINKS 203Q PROPLIST 170Q GLOBALTOLINKS 155Q TOLINKS 142Q SUBSTANCE 123Q NoteFileDevice 116Q NoteFile 101Q CardObject 71Q NoteFileTYPE# 56Q CardObject 50Q NoteFileDevice 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.CardPartBusy D1 (I 2 InterestedWindow I 1 Part I 0 Card) o@ oA B` (30Q PRIN1 17Q CONCAT 7 NC.FetchTitle) (25Q PROMPTWINDOW) ( 13Q "%": " 3 "Card part(s) busy for card %"") NC.ReadOnlyCardP D1 (P 0 \NF I 0 Card) &@Hd`@H YI (43Q NC.ReadOnlyNoteFileP 32Q NC.NoteFileFromNoteFileUID) (26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.CardSomehowDirtyP D1 (I 0 Card) @ @ @ @ @ (33Q NC.FetchLinksDirtyFlg 25Q NC.FetchPropListDirtyFlg 17Q NC.FetchTitleDirtyFlg 11Q NC.CardDirtyP 3 NC.FetchNewCardFlg) NIL () NC.RetrieveFromLinks D1 (P 0 LinksWereCachedFlg I 1 LeaveCachedFlg I 0 Card) @ H@ @ HA@ (31Q NC.UncacheLinks 21Q NC.FetchFromLinks 14Q NC.GetLinks 3 NC.LinksCachedP) NIL () NC.RetrieveLinkLabels D1 (P 5 Label P 0 LinkLabelsCard I 1 SystemLinksFlg I 0 NoteFile) I@A`H H H AIJ AM MK Lh[IYL&(62Q NC.SystemLinkLabelP 51Q UNION 35Q NC.FetchSubstance 30Q NC.GetNoteCard 22Q NC.FetchSubstance) (16Q NC.SystemLinkLabels 3 NoteFile) () NC.StoreLinkLabels D1 (P 0 LinkLabelsCard I 1 LinkLabels I 0 NoteFile) @HA H H H (33Q NC.MarkCardDirty 26Q NC.GetType 21Q NC.FetchType 15Q NC.SetSubstance) (3 NoteFile) () NC.RetrievePropList D1 (I 0 Card) @ @ (11Q NC.GetPropList 3 NC.FetchPropList) NIL () NC.RetrieveTitle D1 (I 0 Card) @ @ (11Q NC.GetTitle 3 NC.FetchTitle) NIL () NC.RetrieveToLinks D1 (P 0 LinksWereCachedFlg I 1 LeaveCachedFlg I 0 Card) @ H@ @ HA@ (31Q NC.UncacheLinks 21Q NC.FetchToLinks 14Q NC.GetLinks 3 NC.LinksCachedP) NIL () NC.RetrieveGlobalLinks D1 (P 0 LinksWereCachedFlg I 1 LeaveCachedFlg I 0 Card) @ H@ @ HA@ (31Q NC.UncacheLinks 21Q NC.FetchGlobalLinks 14Q NC.GetLinks 3 NC.LinksCachedP) NIL () NC.RetrieveType D1 (I 0 Card) @ @ (11Q NC.GetType 3 NC.FetchType) NIL () NC.RetrieveTypeAndTitle D1 (P 5 \NF P 2 Info P 1 Title P 0 Type I 0 Card) P@ gz@ X@ Yi@d Y ]@ Y@d L@Md`@M [K*@olL@gJY @gJX HI(200Q NC.SetType 164Q NC.SetTitle 115Q NC.NoteFileFromNoteFileUID 60Q NC.GetType 51Q NC.FetchTitle 43Q NC.SetTitle 37Q NC.GetTitle 27Q NC.FetchTitle 20Q NC.FetchType 6 NC.FetchStatus) (171Q TYPE 155Q TITLE 133Q NoteFileDevice 126Q NoteFile 111Q CardObject 101Q NoteFileTYPE# 66Q CardObject 11Q ACTIVE) ( 143Q (TYPE TITLE)) NC.LinksCachedP D1 (I 0 Card) @d @ @ (30Q NC.FetchNewCardFlg 22Q NC.ActiveCardP) (12Q CardCache 3 CardObject) () NC.ShowInfo D1 (P 7 Win P 4 InfoWindow P 3 AttributesAndValues P 2 Region P 1 Attributes P 0 Card I 0 Window) &@ gggggg`o B@ @ Z@ NgH gH gH gH gH gH g'` gHh [dIghohdoh``Jl2 \dd ]MML i M L@ggg @ L Lgg Lggi _g O N^(435Q CLOSEW 427Q GETWINDOWUSERPROP 415Q WINDOWADDPROP 402Q PUTWINDOWPROP 370Q REDISPLAYW 364Q NC.MoveWindowOntoScreen 360Q ATTACHWINDOW 341Q SHAPEW 325Q HEIGHTIFWINDOW 313Q \INSUREWINDOW 274Q \INSUREWINDOW 266Q INSPECTW.CREATE 262Q CREATEW 257Q CREATEREGION 200Q \APPEND2 155Q NC.FetchPropList 146Q NC.FetchPropListDate 137Q NC.FetchLinksDate 130Q NC.FetchTitleDate 121Q NC.FetchItemDate 112Q NC.FetchType 67Q ATTACHEDWINDOWS 62Q WINDOWREGION 56Q NC.AttachNoteFileName 41Q \APPEND2 3 NC.CoerceToCard) (424Q ShowInfo 411Q FREEATTACHEDWINDOW 406Q CLOSEFN 377Q Showing 374Q ShowInfo 354Q LOCALCLOSE 351Q JUSTIFY 346Q TOP 245Q NC.OffScreenPosition 241Q NC.OffScreenPosition 222Q LISTGET 171Q CardObject 164Q NC.IncludeCardObjectInShowInfo 160Q Updates 151Q Updates 142Q PropsDate 133Q LinksDate 124Q TitleDate 115Q ItemDate 106Q Type 30Q NC.IncludeCardObjectInShowInfo 25Q Updates 22Q PropsDate 17Q LinksDate 14Q TitleDate 11Q ItemDate 6 Type) ( 235Q "Card attributes" 227Q "Can't set values of these attributes." 36Q (CardObject)) NC.AddParentsA0001A0002 D1 (NAME ERRORSET P 10Q WasActiveFlg P 7 OneHook P 6 ParentCard P 4 \NF P 0 OpInProgress F 11Q Card F 12Q RESETVARSLST F 13Q Window F 14Q NewParents F 15Q RESETY)  ` W 1HgWgWg hWg` hWcgWgWg hWgo hWcgWLd`WL YIhWLd`WL ZJg`WLd`WL [Kg  hWco``hWc` HHghWWo lhg`Wo cWWSW!MOE^ ON WNW ONhddddi i_M]W oH gci(610Q NC.PrintOperationInProgressMsg 600Q NC.CoerceToInterestedWindow 557Q NC.QuitCard 541Q NC.MakeChildLink 530Q NC.GetNoteCard 516Q NC.ActiveCardP 463Q NC.SelectNoteCards 440Q NC.CheckForNotReadOnly 413Q RELEASE.MONITORLOCK 345Q NC.NoteFileProp 341Q NC.NoteFileProp 325Q NC.NoteFileFromNoteFileUID 254Q NC.NoteFileFromNoteFileUID 206Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (614Q DON'T 451Q NC.SelectingParentsMenu 446Q NC.FileBoxP 422Q US 410Q NC.LockLock 374Q NC.CardBusyList 370Q NC.CardBusyList 365Q \RUNNING.PROCESS 336Q CardProcessInProgressList 321Q CardObject 310Q NoteFileTYPE# 275Q CardObject 270Q \RUNNING.PROCESS 265Q CardProcessInProgressList 250Q CardObject 237Q NoteFileTYPE# 224Q CardObject 202Q CardObject 171Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 60Q \RUNNING.PROCESS 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 604Q "Designate FileBoxes" 457Q " Please shift-select the new parent FileBox(es)." 435Q "Can't do filing in " 362Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Designate FileBoxes") NC.AddParentsA0001 D1 (NAME ERRORSET P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 NewParents P 1 Card P 0 Window F 6 WindowOrTextStream F 7 LISPXHIST F 10Q RESETVARSLST F 11Q RESETY) 6V !H W!Wog hg] MLci(54Q ERROR! 46Q RESETRESTORE 34Q NC.AddParentsA0001A0002 12Q NC.CoerceToCard 3 WINDOW.FROM.TEDIT.THING) (42Q ERROR 31Q INTERNAL) ( 26Q (NC.AddParentsA0001A0002)) NC.AddParents D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 CardListResetVar I 0 WindowOrTextStream F 4 LISPXHIST) 'T!gog hg[ KJ(42Q ERROR! 35Q NAMED-RESETRESTORE 23Q NC.AddParentsA0001) (31Q ERROR 20Q INTERNAL 11Q CardListResetVar) ( 15Q (NC.AddParentsA0001)) NC.SeverExternalLinksA0001 D1 (P 4 Link1SourceIsExtFlg P 3 ExtCard2 P 2 ExtCard1 P 1 DestCard2 P 0 DestCard1 I 1 Link2 I 0 Link1) UP@Xg i@HZAYg AI[JK LJK(101Q NC.SameCardP 62Q NC.UIDGetProp 24Q NC.UIDGetProp) (116Q CardObject 110Q CardObject 67Q Link 57Q AboutToBeDeletedFlg 52Q CardObject 44Q Link 33Q Link 21Q AboutToBeDeletedFlg 14Q CardObject 6 Link) () NC.SeverExternalLinks D1 (P 23Q ExtCardIsSourceFlg P 22Q ExtCard P 21Q PreviousExtCardIsSourceFlg P 20Q WasNotActiveFlg P 17Q PreviousExtCard P 16Q Link P 15Q i P 13Q Link P 6 Card P 1 NumLinksToSever P 0 LinksToSever I 2 InterestedWindow I 1 QuietFlg I 0 ListOfCards) L0ABio@ o 0@(dN Ni A O$O[LK]\M0@e \K_g O_OOh__O_O&_dNi A OO[LyK]\M XABioH Yo Hg ABioIo HkBOpO OO DO"8Oi Ohihddi ' \K_g O_OOh__O_DO&__O A.Ol ZjJJ BioOoIo  Og i_&OO_$O =O O"Oi Ohihddi O O$ h_ O&O$ O$ O&O O OmO$_O&_"O_Ok_O h(1110Q NC.PutLinks 1036Q NC.DeleteFromLink 1030Q NC.DeleteToLink 1017Q NC.GetLinks 1011Q NC.GetNoteCard 774Q NC.ActiveCardP 766Q NC.PutLinks 760Q NC.QuitCard 743Q NC.CardSaveFn 723Q NC.SameCardP 670Q NC.UIDGetProp 642Q NC.PrintMsg 613Q \FZEROP 576Q REMAINDER 560Q NC.ValidLinkP 552Q BLOCK 477Q NC.UIDGetProp 447Q LAST 441Q NC.QuitCard 424Q NC.CardSaveFn 402Q NC.ValidCardP 352Q NC.PrintMsg 331Q SORT 321Q NC.PrintMsg 310Q LENGTH 272Q NC.UnionListsOfLinks 227Q NC.RetrieveFromLinks 152Q NC.UIDGetProp 122Q LAST 55Q NC.RetrieveToLinks 47Q NC.GreyCard 27Q NC.PrintMsg 17Q LENGTH) (1044Q Link 712Q Link 702Q Link 665Q AboutToBeDeletedFlg 660Q CardObject 653Q Link 474Q AboutToBeDeletedFlg 467Q CardObject 462Q Link 326Q NC.SeverExternalLinksA0001 147Q AboutToBeDeletedFlg 142Q CardObject 135Q Link) ( 636Q " ..." 631Q " out of " 623Q "Severing links: " 346Q " ..." 341Q "Severing links: 1 out of " 315Q " links prior to severing." 304Q "Sorting " 23Q " cards." 13Q "Gathering external links of ") NC.AssignTitleA0001A0011 D1 (NAME ERRORSET P 2 FromLink P 0 \NF F 3 Card F 4 NewTitle F 5 InterestedWindow F 6 ContainingCard F 7 RESETVARSLST F 10Q OldTitle F 11Q Window F 12Q NoClearMsgFlg F 13Q RESETY)  gSHd`SH YI*SohhWcUS c SUo TDTTdl3T 2ol oS co S hWWhU cjST Sd@jhSi S S S c WgT S #dJc V VS ici(403Q NC.UpdateLinkImages 375Q WINDOWP 372Q NC.FetchWindow 365Q NC.ActiveCardP 343Q NC.RetrieveFromLinks 336Q PUTWINDOWPROP 324Q WINDOWP 317Q NC.FetchWindow 312Q NC.SetTitleDirtyFlg 305Q NC.PutTitle 300Q NC.SetTitleDirtyFlg 247Q NC.SetTitle 236Q NC.AskUser 220Q NC.FetchNewCardFlg 213Q STREQUAL 202Q NC.RetrieveTitle 172Q CONCAT 167Q CHARACTER 154Q MKSTRING 121Q NC.CheckForNotReadOnly 105Q NC.CoerceToInterestedWindow 35Q NC.NoteFileFromNoteFileUID) (356Q Link 332Q TITLE 263Q CardCache 254Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 210Q "Untitled" 176Q "--> " 162Q "Enter the title for this card" 116Q "Can't change titles for cards in " 62Q (TITLE)) NC.AssignTitleA0001 D1 (NAME ERRORSET P 11Q RESETZ P 10Q RESETY P 7 LISPXHIST P 6 \NF P 0 OpInProgress F 12Q Card F 13Q RESETVARSLST F 14Q LISPXHIST F 15Q RESETY)  ` W QHgWgWg hWg` hWcgWgWg hWgo hWcgWNd`WN YIhWNd`WN ZJg`WNd`WN [Kg  hWco``hWc` HHgpWNd`WN \L*WglMWg hW0Q OOc2W,W0W2 W,W2W< W2W, W0O%hPNW@!W.og "h"_ON OiO_g_$ O$M]`_O_ 'O gW,O O_OOh__O_(O&_W,g W, W, W8!O&W, W,i c_(O(_* O* O*W, O&_&W4iol ol W,i W, oH gc>i(1433Q NC.PrintOperationInProgressMsg 1423Q NC.CoerceToInterestedWindow 1414Q NC.DeleteNoteCard 1405Q NC.PrintMsg 1401Q CHARACTER 1370Q CHARACTER 1344Q NC.UpdateLinkImages 1334Q WINDOWP 1331Q NC.FetchWindow 1322Q NC.ActiveCardP 1305Q BLOCK 1274Q NC.QuitCard 1265Q NC.SetTitleDirtyFlg 1243Q NC.FetchTitleDirtyFlg 1235Q NC.SetPropListDirtyFlg 1227Q NC.MarkCardDirty 1154Q NC.DelReferencesToCard 1137Q NC.FetchStatus 1130Q NC.ActiveCardP 1113Q BLOCK 1073Q ERROR! 1064Q RESETRESTORE 1035Q NC.SameLinkP 1026Q BLOCK 1012Q NC.QuitWithoutSavingA0001A0008 735Q NC.MarkCardDirty 721Q NC.SetLinksDirtyFlg 705Q NC.SetToLinks 702Q LDIFFERENCE 630Q NC.FetchToLinks 616Q NC.SetFromLinks 606Q NC.SameLinksP 574Q NC.FetchFromLinks 566Q NC.GetNoteCard 534Q NC.AskYesOrNo 507Q NC.FetchPropListDirtyFlg 501Q NC.FetchTitleDirtyFlg 473Q NC.FetchLinksDirtyFlg 464Q NC.CardDirtyP 454Q NC.FetchFromLinks 444Q NC.FetchToLinks 434Q NC.FetchWindow 413Q RELEASE.MONITORLOCK 345Q NC.NoteFileProp 341Q NC.NoteFileProp 325Q NC.NoteFileFromNoteFileUID 254Q NC.NoteFileFromNoteFileUID 206Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (1437Q DON'T 1313Q Link 1224Q RESET 1142Q DELETED 1121Q Link 1057Q ERROR 1007Q INTERNAL 764Q Link 554Q ACTIVE 547Q CardObject 422Q US 410Q NC.LockLock 374Q NC.CardBusyList 370Q NC.CardBusyList 365Q \RUNNING.PROCESS 336Q CardProcessInProgressList 321Q CardObject 310Q NoteFileTYPE# 275Q CardObject 270Q \RUNNING.PROCESS 265Q CardProcessInProgressList 250Q CardObject 237Q NoteFileTYPE# 224Q CardObject 202Q CardObject 171Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 60Q \RUNNING.PROCESS 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 1427Q "Close w/o Saving" 1374Q "It will be deleted from the database." 1363Q "This card has never been saved." 1004Q (NC.QuitWithoutSavingA0001A0008) 525Q "Yes" 521Q " -- " 515Q "Are you sure you want to flush your changes?" 362Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Close w/o Saving") NC.QuitWithoutSaving D1 (P 15Q RESETZ P 14Q RESETY P 13Q LISPXHIST P 12Q OldToLinks P 11Q OldFromLinks P 10Q ChangedFromLinksP P 7 MadeNewLinksP P 6 TextObj P 5 Process P 4 DeletedLinks P 3 ToLinks P 2 NewFromLinks P 1 Card P 0 Window I 0 CardIdentifier F 16Q LISPXHIST F 17Q RESETVARSLST) / @ YW! Wog hg_ OO(51Q ERROR! 43Q RESETRESTORE 30Q NC.QuitWithoutSavingA0001 6 NC.CoerceToCard) (36Q ERROR 25Q INTERNAL) ( 22Q (NC.QuitWithoutSavingA0001)) NC.UnfileNoteCardA0001A0002A0009 D1 (I 0 Box F 0 Parents) @ @P(3 NC.FileBoxP) NIL () NC.UnfileNoteCardA0001A0002 D1 (NAME ERRORSET P 16Q FromLink P 14Q Box P 6 Parents P 5 FromLinks P 4 \NF P 0 OpInProgress F 17Q Card F 20Q RESETVARSLST F 21Q RESETY) ` W 1HgWgWg hWg` hW c gWgWg hWgo hW c gWLd`WL YIhWLd`WL ZJg`WLd`WL [Kg  hW c o``hW c ` HHgW MA OOhg`Wo T_dgdgihO_OOh__O_O&_d MO h2_OO Oi O_W oH gc"i(704Q NC.PrintOperationInProgressMsg 674Q NC.CoerceToInterestedWindow 657Q NC.DeleteLink 650Q NC.SameCardP 475Q NC.SelectNoteCards 434Q NC.FetchFromLinks 413Q RELEASE.MONITORLOCK 345Q NC.NoteFileProp 341Q NC.NoteFileProp 325Q NC.NoteFileFromNoteFileUID 254Q NC.NoteFileFromNoteFileUID 206Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (710Q DON'T 643Q Link 537Q Link 521Q SubBox 513Q FiledCard 505Q Link 463Q NC.SelectingParentsMenu 460Q NC.UnfileNoteCardA0001A0002A0009 422Q US 410Q NC.LockLock 374Q NC.CardBusyList 370Q NC.CardBusyList 365Q \RUNNING.PROCESS 336Q CardProcessInProgressList 321Q CardObject 310Q NoteFileTYPE# 275Q CardObject 270Q \RUNNING.PROCESS 265Q CardProcessInProgressList 250Q CardObject 237Q NoteFileTYPE# 224Q CardObject 202Q CardObject 171Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 60Q \RUNNING.PROCESS 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 700Q "Unfile" 471Q "Please shift-select the file box(es) from which to remove this card. " 362Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Unfile") NC.UnfileNoteCardA0001 D1 (NAME ERRORSET P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 Card F 4 WindowOrTextStream F 5 LISPXHIST F 6 RESETVARSLST F 7 RESETY) /T U!Vog hg[ KJci(45Q ERROR! 37Q RESETRESTORE 25Q NC.UnfileNoteCardA0001A0002 3 NC.CoerceToCard) (33Q ERROR 22Q INTERNAL) ( 17Q (NC.UnfileNoteCardA0001A0002)) NC.UnfileNoteCard D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 CardListResetVar I 0 WindowOrTextStream F 4 LISPXHIST) 'T!gog hg[ KJ(42Q ERROR! 35Q NAMED-RESETRESTORE 23Q NC.UnfileNoteCardA0001) (31Q ERROR 20Q INTERNAL 11Q CardListResetVar) ( 15Q (NC.UnfileNoteCardA0001)) NC.UpdateUpdateList D1 (I 0 Card) W@ B@ @g`hhh @ g`h@ g' @i o@o (124Q NC.ReportError 121Q CONCAT 104Q NC.SetPropListDirtyFlg 76Q LISTPUT 66Q NC.FetchPropList 57Q DATE 46Q NC.FetchPropList 40Q NC.SetPropList 25Q DATE 11Q NC.FetchPropList 3 NC.ActiveCardP) (71Q Updates 54Q USERNAME 51Q Updates 22Q USERNAME 17Q Updates) ( 116Q ": Card not active on screen" 111Q "NC.UpdateUpdateList") NC.CollectReferences D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 3 ReturnLocationsFlg I 2 ReturnLinkIconsFlg I 1 CheckAndDeleteFlg I 0 Card) @ @@ H!Idq ZJ[dgPIJd I ZdoI J[dg oogoIo  KgIg K@ABClLoo@ (253Q NC.ReportError 250Q CONCAT 213Q NC.GetCardTypeFieldOfSuper 175Q NC.ReportError 172Q CONCAT 122Q NC.ReportError 117Q CONCAT 104Q NC.CardTypeRecord 76Q NC.CardTypeLoader 41Q NC.CardTypeRecord 23Q NC.GetType 3 NC.ActiveCardP) (210Q CollectLinksFn 202Q \\FILLME// 155Q CollectLinksFn 136Q \\EMPTY// 127Q NoteCardType 71Q NoteCardType 56Q \\EMPTY// 47Q NoteCardType 13Q CardObject) ( 244Q "Attempt to call with inactive card: " 240Q "NC.CollectReferences" 166Q " still \\EMPTY// after autoloading." 161Q " of card type " 152Q "Field name " 146Q "NC.GetCardTypeField" 113Q "Cannot find full definition of card type: ") NC.CardSaveFnA0001A0008 D1 (NAME ERRORSET P 0 \NF F 2 Card F 3 RESETVARSLST F 4 InterestedWindow F 5 RESETY F 6 DoneAPutP) RHd`RH YI*RglITho gRHd`RH YI*RohhScR ic c (213Q NC.PutLinks 146Q NC.NoteFileFromNoteFileUID 105Q NC.PrintMsg 73Q BLOCK 32Q NC.NoteFileFromNoteFileUID) (164Q NoteFileDevice 157Q NoteFile 142Q CardObject 132Q NoteFileTYPE# 117Q CardObject 113Q APPLY* 61Q FROMLINKS 50Q NoteFileDevice 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 173Q (FROMLINKS) 102Q "waiting for FROMLINKS write permission....") NC.CardSaveFnA0001 D1 (NAME ERRORSET P 15Q RESETZ P 14Q RESETY P 13Q LISPXHIST P 12Q WhenSavedFn P 11Q \NF P 0 OpInProgress F 16Q Card F 17Q InterestedWindow F 20Q QuietFlg F 21Q RESETVARSLST F 22Q DoneAPutP F 23Q OperationMsg F 24Q Window F 25Q OldRegion F 26Q NewRegion F 27Q RESETY F 30Q LISPXHIST)  ` W HgWgWg hWg` hW"c"gWgWg hWgo hW"c"gW Od`WO YIhW Od`WO ZJg`W Od`WO [Kg  hW"c"o``hW"c"` HHgW g OWkOW c(WW cWWo W W BW )WiW&oW o W Who Wi ic$Wg lW fW(bW c*W( c,W*W,;W$W )WiW&oW o W Who W ic$W ;W$W )WiW&oW o W Who W ic$W ;W$W )WiW&oW o W Who W ic$W VW$W )WiW&oW o W Who W0! W"og hg_ OW Od`WO \Li W W Od`WO ]M*WglNW Od`WO _O*_WglOW W 3W$/Whol Wi WW oH gc.i(1734Q NC.PrintOperationInProgressMsg 1724Q NC.CoerceToInterestedWindow 1711Q NC.ClearMsg 1702Q NC.PrintMsg 1677Q CHARACTER 1652Q NC.SetNewCardFlg 1604Q NC.NoteFileFromNoteFileUID 1510Q NC.NoteFileFromNoteFileUID 1444Q NC.FetchNewCardFlg 1436Q FORCEOUTPUT 1417Q NC.NoteFileFromNoteFileUID 1355Q ERROR! 1346Q RESETRESTORE 1333Q NC.CardSaveFnA0001A0008 1311Q NC.PrintMsg 1273Q NC.PrintMsg 1263Q NC.FetchTitle 1231Q NC.FetchLinksDirtyFlg 1217Q NC.PutPropList 1211Q NC.PrintMsg 1173Q NC.PrintMsg 1163Q NC.FetchTitle 1131Q NC.FetchPropListDirtyFlg 1117Q NC.PutTitle 1111Q NC.PrintMsg 1073Q NC.PrintMsg 1063Q NC.FetchTitle 1031Q NC.FetchTitleDirtyFlg 1017Q NC.PutRegion 1011Q NC.PrintMsg 773Q NC.PrintMsg 763Q NC.FetchTitle 703Q \INSUREWINDOW 671Q NC.FetchRegion 656Q NC.FetchBeingDeletedFlg 647Q NC.MarkCardDirty 632Q NC.PutMainCardData 623Q NC.PrintMsg 605Q NC.PrintMsg 575Q NC.FetchTitle 547Q NC.FetchNewCardFlg 541Q NC.CardDirtyP 526Q NC.CheckForNotReadOnly 510Q NC.CoerceToInterestedWindow 475Q NC.FetchWindow 445Q NC.FetchType 424Q RELEASE.MONITORLOCK 356Q NC.NoteFileProp 352Q NC.NoteFileProp 336Q NC.NoteFileFromNoteFileUID 262Q NC.NoteFileFromNoteFileUID 211Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (1740Q DON'T 1636Q TITLE 1624Q NoteFileDevice 1617Q NoteFile 1577Q CardObject 1565Q NoteFileTYPE# 1551Q CardObject 1536Q FROMLINKS 1526Q NoteFileDevice 1521Q NoteFile 1503Q CardObject 1471Q NoteFileTYPE# 1455Q CardObject 1430Q NoteFile 1412Q CardObject 1400Q NoteFileTYPE# 1364Q CardObject 1341Q ERROR 1330Q INTERNAL 644Q RESET 450Q WhenSavedFn 433Q US 421Q NC.LockLock 405Q NC.CardBusyList 401Q NC.CardBusyList 376Q \RUNNING.PROCESS 347Q CardProcessInProgressList 331Q CardObject 317Q NoteFileTYPE# 303Q CardObject 276Q \RUNNING.PROCESS 273Q CardProcessInProgressList 255Q CardObject 243Q NoteFileTYPE# 227Q CardObject 204Q CardObject 172Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 60Q \RUNNING.PROCESS 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 1730Q "Save Card" 1672Q "Done." 1325Q (NC.CardSaveFnA0001A0008) 1306Q "links, " 1267Q ": Saving ... " 1256Q "" 1206Q "proplist, " 1167Q ": Saving ... " 1156Q "" 1106Q "title, " 1067Q ": Saving ... " 1056Q "" 1006Q "region, " 767Q ": Saving ... " 756Q "" 620Q "substance, " 601Q ": Saving ... " 570Q "" 523Q "Can't save cards in " 373Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Save Card") NC.CardSaveFn D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 DoneAPutP P 3 NewRegion P 2 OldRegion P 1 Window P 0 Card I 3 OperationMsg I 2 InterestedWindow I 1 QuietFlg I 0 WindowOrID F 10Q LISPXHIST F 11Q RESETVARSLST) -@ AW!Wog hg_ ON(50Q ERROR! 42Q RESETRESTORE 27Q NC.CardSaveFnA0001 3 NC.CoerceToCard) (35Q ERROR 24Q INTERNAL) ( 21Q (NC.CardSaveFnA0001)) NC.DetermineDisplayRegion D1 (P 10Q NewRegion P 7 CardTitle P 6 TotalHeight P 5 Height P 4 Width P 3 Region P 2 TotalWinRegion P 1 CardWinRegion P 0 Window I 1 RegionOrPosition I 0 Card) @ 1H H H A -J@ [AAKK AA@ @ A `@ [5H0KKJKIJKIKKHJP@ [@ @ `MԋKM^@ _LNNhOo@ o@ o _MO(360Q GETBOXREGION 354Q CONCAT 345Q NC.RetrieveType 334Q CONCAT 331Q NC.FetchTitle 313Q GETMOUSEY 310Q GETMOUSEX 301Q NC.FetchTitle 256Q NC.NoteFileIndicatorWinHeight 244Q NC.FetchDefaultHeight 237Q NC.FetchDefaultWidth 230Q NC.FetchRegion 127Q NC.FetchRegion 114Q REGIONP 107Q CREATEREGION 104Q NC.FetchDefaultHeight 100Q NC.FetchDefaultWidth 67Q CREATEREGION 44Q NC.FetchRegion 33Q POSITIONP 26Q WINDOWREGION 17Q \INSUREWINDOW 12Q WINDOWP 3 NC.FetchWindow) (250Q NC.ShowNoteFileOnCards 121Q NC.BringUpCardAtOldPosFlg) ( 351Q " Card" 341Q "Please specify location for new " 325Q "Please specify location for Note Card ") NC.AbortCard D1 (I 1 QuietFlg I 0 Card) @iddhdA (12Q NC.QuitCard) NIL () NC.CardNeedsFilingP D1 (P 4 Link P 2 NoteFile P 0 \NF I 0 Card) @Hd`@H YI@ h"@ @g h@ Ki\dgdgihLgL hK[(171Q NC.CrossFileLinkCardP 103Q NC.FetchFromLinks 73Q NCP.CardProp 62Q NC.ForceFilingForCardTypeP 57Q NC.FetchType 47Q NC.TopLevelCardP 32Q NC.NoteFileFromNoteFileUID) (164Q Link 156Q FilingLinkTypeFlg 151Q Link 135Q SubBox 127Q FiledCard 121Q Link 70Q Don'tRequireFilingFlg 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.TopLevelCardP D1 (P 2 TopLevelCard P 0 \NF I 0 Card) @@Hd`@H YI Ih@J JiIY(63Q NC.SameCardP 43Q NC.FetchSpecialCards 32Q NC.NoteFileFromNoteFileUID) (26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.MakeDummyRegion D1 (I 0 Card) ld@ @ (15Q CREATEREGION 12Q NC.FetchDefaultHeight 6 NC.FetchDefaultWidth) NIL () NC.ValidCardP D1 (I 0 Card) @ @ g@ (23Q NC.FetchNewCardFlg 11Q NC.FetchStatus 3 NC.CardP) (14Q ACTIVE) () NC.TitleBarButtonEventFn D1 (P 1 LeftButtonMenu P 0 MiddleButtonMenu I 0 Window) wPh@ @ @ @g @kJ`dkj$@g X`H g@kK`lj!@g Y`I g@kLh(147Q MENU 133Q GETWINDOWUSERPROP 76Q MENU 63Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 22Q INSIDEP 17Q LASTMOUSEY 13Q LASTMOUSEX 7 DSPCLIPPINGREGION) (154Q NILL 140Q MENUTYPE# 130Q TitleBarLeftButtonMenu 115Q LASTMOUSEBUTTONS 103Q NILL 70Q MENUTYPE# 60Q TitleBarMiddleButtonMenu 44Q LASTMOUSEBUTTONS 27Q OLDBUTTONEVENTFN) () NC.InstallTitleBarMiddleMenu D1 (P 2 FieldValue P 1 CardTypeRecord P 0 CardTypeName I 1 CardType I 0 Window) @g`A!Hdq YI0ZdgPHId H YdoH I0Zdg oogoHo  JgHg JKdLdi d`dg dgjdndhKdL d `k (320Q PUTWINDOWPROP 174Q NC.GetCardTypeFieldOfSuper 156Q NC.ReportError 153Q CONCAT 103Q NC.ReportError 100Q CONCAT 65Q NC.CardTypeRecord 57Q NC.CardTypeLoader 22Q NC.CardTypeRecord) (307Q FONTDESCRIPTOR 304Q NC.MenuFont 274Q MENU 240Q DEFAULTMENUHELDFN 231Q CLRPROMPT 222Q NC.MenuFont 171Q MiddleButtonMenuItems 163Q \\FILLME// 136Q MiddleButtonMenuItems 117Q \\EMPTY// 110Q NoteCardType 52Q NoteCardType 37Q \\EMPTY// 30Q NoteCardType 6 MENUTYPE# 3 TitleBarMiddleButtonMenu) ( 147Q " still \\EMPTY// after autoloading." 142Q " of card type " 133Q "Field name " 127Q "NC.GetCardTypeField" 74Q "Cannot find full definition of card type: ") NC.AddPropToPropList D1 (P 11Q beginPtr P 10Q insertChars P 7 insertPtr P 6 propValue P 5 propName P 4 selectedObject P 3 PropNames P 2 tobj P 1 stream P 0 promptWindow I 0 editW) _ @l @g @g @g d ohdiH  ]ddKHioMol h`HioMol hoMo hdiH ^K)Hiol @ Hi LJL k__Mggl g IO Ok_Il O I oOk Ok_Iol O I oOl I oOlk IN Ol I oOlN ON _dl_@gM h(533Q WINDOWADDPROP 512Q NCHARS 507Q MKSTRING 501Q TEDIT.LOOKS 476Q NCHARS 473Q MKSTRING 456Q TEXTOBJ 452Q TEDIT.INSERT 442Q MKSTRING 435Q TEDIT.LOOKS 420Q TEXTOBJ 414Q TEDIT.LOOKS 401Q TEXTOBJ 375Q TEDIT.INSERT 370Q CONCAT 365Q CHARACTER 345Q TEDIT.LOOKS 333Q TEXTOBJ 327Q TEDIT.INSERT 322Q CHARACTER 306Q TEDIT.INSERT.OBJECT 300Q MBUTTON.CREATE 275Q FONTCREATE 250Q TEDIT.FIND.OBJECT 233Q NC.ClearMsg 225Q NC.SelectProperty 220Q NC.PrintMsg 215Q CHARACTER 176Q NC.AskUser 166Q CONCAT 150Q NC.PrintMsg 145Q CONCAT 142Q CHARACTER 112Q NC.PrintMsg 107Q CONCAT 104Q CHARACTER 54Q MKATOM 51Q NC.AskUser 32Q GETWINDOWUSERPROP 23Q GETWINDOWUSERPROP 14Q GETWINDOWUSERPROP 5 GETPROMPTWINDOW) (527Q PROPERTYLIST.PROPNAMES 272Q BOLD 265Q HELVETICA 262Q NC.EditPropButtonFN 117Q NC.SystemCardPropNames 27Q PROPERTYLIST.PROPNAMES 20Q TEXTOBJ 11Q TEXTSTREAM) ( 462Q (PROTECTED OFF SELECTPOINT OFF) 424Q (PROTECTED ON SELECTPOINT ON) 405Q (PROTECTED ON) 360Q " {}" 337Q (PROTECTED ON) 210Q "Please select a property before which to insert this new property." 163Q " property = " 156Q "Value for " 135Q "' is a system-reserved property name." 130Q "'" 77Q "' property already exists." 72Q "'" 41Q "New Property Name is = ") NC.CloseAllPropListEditors D1 (P 1 AttachedWindow I 0 Card) 7@ HhIg Ig I I HX(57Q CLOSEW 52Q OPENWP 45Q NC.ClosePropListEditor 34Q GETWINDOWUSERPROP 24Q BLOCK 6 ALLATTACHEDWINDOWS 3 NC.FetchWindow) (42Q NoSave 31Q PropListEditor) () NC.ClosePropListEditorA0001 D1 (NAME ERRORSET F 0 Window) P h(3 TEXTOBJ) NIL () NC.ClosePropListEditor D1 (P 10Q \NF P 5 Card P 4 MainWindow P 3 NewPropList P 2 OldPropList P 1 Answered P 0 TextObj I 1 SaveFlg I 0 Window) > @g ]@ \@ o X@g ZH,Ag%@g gAgH @ [JM @g @g @g @g @g @g @gg @g KM EMOd`MO ^N*_MglO@g H+gggg@hhogLhh h,jHd, Hj,Hddh H0(472Q BLOCK 456Q \TEDIT.QUIT 426Q \TEDIT.WINDOW.TITLE 423Q \TEDIT.ORIGINAL.WINDOW.TITLE 401Q ADD.PROCESS 326Q PUTWINDOWPROP 261Q NC.NoteFileFromNoteFileUID 222Q NC.ActiveCardP 214Q GETWINDOWUSERPROP 205Q WINDOWDELPROP 173Q PUTWINDOWPROP 164Q PUTWINDOWPROP 155Q PUTWINDOWPROP 146Q PUTWINDOWPROP 137Q PUTWINDOWPROP 130Q PUTWINDOWPROP 120Q NC.ProcessEditedPropList 112Q NC.ExtractPropList 105Q TEDIT.STREAMCHANGEDP 65Q GETWINDOWUSERPROP 43Q GETWINDOWUSERPROP 32Q NC.ClosePropListEditorA0001 23Q DETACHWINDOW 16Q MAINWINDOW 11Q GETWINDOWUSERPROP) (463Q TEXTOBJ 441Q TEXTOBJ 406Q TEXTOBJ 366Q REPOSITIONATTACHEDWINDOWS 346Q OPENWP 343Q NULL 340Q until 335Q PROGN 323Q ReleaseWritePermissionP 310Q PROPLIST 277Q NoteFileDevice 272Q NoteFile 254Q CardObject 244Q NoteFileTYPE# 230Q CardObject 211Q ReleaseWritePermissionP 202Q NC.ClosePropListEditor 177Q CLOSEFN 170Q PROPERTYLIST.PROPNAMES 161Q PROPERTYLIST.BEING.EDITED 152Q SavedCardObject 143Q PropListEditor 134Q TEDIT.PROPS 125Q TEDIT.MENU 77Q Save 70Q ShowOnly 62Q PropListEditor 53Q NoSave 40Q PROPERTYLIST.BEING.EDITED 6 SavedCardObject) ( 361Q (do (BLOCK)) 27Q (NC.ClosePropListEditorA0001)) NC.DelPropFromList D1 (P 4 CH# P 3 selectedObject P 2 stream P 1 tobj P 0 promptWindow I 0 editW) @l @g @g #@g Hio hHio @ [Hi Kg Hiol YIK IL IoLI Ll JLI Ll Jd jg @gKg h(253Q WINDOWDELPROP 250Q IMAGEOBJPROP 234Q TEDIT.SETSEL 225Q GETEOFPTR 217Q TEDIT.DELETE 171Q TEDIT.LOOKS 137Q MBUTTON.FIND.NEXT.FIELD 131Q TEDIT.FIND.OBJECT 122Q NC.PrintMsg 117Q CHARACTER 103Q IMAGEOBJPROP 74Q NC.ClearMsg 66Q NC.SelectProperty 62Q NC.PrintMsg 47Q NC.PrintMsg 35Q GETWINDOWUSERPROP 23Q GETWINDOWUSERPROP 14Q GETWINDOWUSERPROP 5 GETPROMPTWINDOW) (245Q MBTEXT 241Q PROPERTYLIST.PROPNAMES 231Q RIGHT 205Q SELECTION 200Q TEXTOBJ 157Q SELECTION 152Q TEXTOBJ 100Q EditPropListNoDelete 32Q PROPERTYLIST.PROPNAMES 20Q TEXTSTREAM 11Q TEXTOBJ) ( 145Q (PROTECTED OFF) 112Q "Selected property:value pair cannot be deleted." 57Q "Please select property to be deleted." 44Q "No properties to delete.") NC.EditPropButtonFN D1 (I 2 window I 1 sel I 0 imageObject) Bg@ (7 PUTWINDOWPROP) (3 SelectedObject) () NC.EditPropertiesA0001 D1 (NAME ERRORSET P 11Q SubList P 6 \NF P 0 OpInProgress F 12Q Card F 13Q RESETVARSLST F 14Q PropList F 15Q PropEditorWindow F 16Q TextStream F 17Q RESETY)  ` W QHgWgWg hWg` hWcgWgWg hWgo hWcgWNd`WN YIhWNd`WN ZJg`WNd`WN [Kg  hWco``hWc` HHgW cWNd`WN \L*WglMGWW! O_Oo cgi W<`OOOh _OWg W oH gci(665Q NC.PrintOperationInProgressMsg 655Q NC.CoerceToInterestedWindow 646Q NC.CardPartBusy 625Q \NCONC2 572Q PUTWINDOWPROP 561Q NC.OpenPropListEditor 474Q NC.NoteFileFromNoteFileUID 434Q NC.FetchPropList 413Q RELEASE.MONITORLOCK 345Q NC.NoteFileProp 341Q NC.NoteFileProp 325Q NC.NoteFileFromNoteFileUID 254Q NC.NoteFileFromNoteFileUID 206Q NC.NoteFileFromNoteFileUID 135Q NC.SetUserDataProp 114Q NC.FetchUserDataProp 63Q NC.SetUserDataProp 43Q NC.FetchUserDataProp 13Q NC.CardCheckOpInProgress 5 OBTAIN.MONITORLOCK) (671Q DON'T 643Q PROPLIST 603Q NC.SystemCardPropNames 566Q ReleaseWritePermissionP 522Q PROPLIST 512Q NoteFileDevice 505Q NoteFile 470Q CardObject 457Q NoteFileTYPE# 444Q CardObject 422Q US 410Q NC.LockLock 374Q NC.CardBusyList 370Q NC.CardBusyList 365Q \RUNNING.PROCESS 336Q CardProcessInProgressList 321Q CardObject 310Q NoteFileTYPE# 275Q CardObject 270Q \RUNNING.PROCESS 265Q CardProcessInProgressList 250Q CardObject 237Q NoteFileTYPE# 224Q CardObject 202Q CardObject 171Q NoteFileTYPE# 156Q CardObject 151Q NC.ResetCardProcessInProgress 126Q OperationInProgress 111Q OperationInProgress 104Q OperationInProgress 77Q NC.SetUserDataProp 60Q \RUNNING.PROCESS 55Q ProcessInProgress 40Q ProcessInProgress 33Q ProcessInProgress 26Q NC.SetUserDataProp 2 NC.LockLock) ( 661Q "Edit Properties" 556Q "Edit Property List" 362Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 132Q "Edit Properties") NC.EditProperties D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 PropEditorWindow P 1 PropList P 0 Card I 0 TextStream F 6 LISPXHIST F 7 RESETVARSLST) -@ !V!Wog hg] ML(50Q ERROR! 43Q RESETRESTORE 31Q NC.EditPropertiesA0001 6 NC.CoerceToCard 3 WINDOW.FROM.TEDIT.THING) (37Q ERROR 26Q INTERNAL) ( 23Q (NC.EditPropertiesA0001)) NC.EditPropList D1 (P 16Q prop P 14Q X P 6 button P 5 editW P 4 textObj P 3 menuStream P 2 ENDCH# P 1 CH# P 0 font I 2 showOnlyFlg I 1 window I 0 propList) .gl kdc0 @d gO OghhO OO+gl oO ol HhhAgl HhgO hgl Hhghgl Hhh _O.O__NO [d \jY@OjY@n _O_ O)LIkY LO OKI O_dLIk ^ONgi A o ]dg@ Mg0 @d_O Oh_O&_O LokKg LjjdhKMhg`Boo_dOd`di dg dgjdndh_dO d `kh Mggi h(1052Q WINDOWADDPROP 1037Q TEDIT 645Q TEDIT.PARALOOKS 642Q GETFILEINFO 625Q PUTWINDOWPROP 552Q PUTWINDOWPROP 541Q CREATEW 532Q GETREGION 516Q IMAGEOBJPROP 472Q MBUTTON.FIND.NEXT.BUTTON 446Q TEDIT.INSERT.OBJECT 434Q IMAGEOBJP 410Q MBUTTON.FIND.NEXT.FIELD 367Q IMAGEOBJP 350Q LAST 323Q TEXTOBJ 316Q \TEXTMENU.DOC.CREATE 260Q \NCONC2 244Q CHARACTER 222Q CHARACTER 205Q MKSTRING 166Q CHARACTER 145Q CONCAT 141Q CHARACTER 130Q MKSTRING 115Q CHARACTER 73Q IMAGEOBJP 41Q MKSTRING 7 FONTCREATE) (1046Q NC.ClosePropListEditor 1043Q CLOSEFN 1023Q FONTDESCRIPTOR 1020Q NC.MenuFont 1010Q MENU 755Q DEFAULTMENUHELDFN 746Q CLRPROMPT 732Q NC.MenuFont 701Q MENUTYPE# 676Q MENU 656Q SELECTION 651Q TEXTOBJ 637Q LENGTH 556Q PROPERTYLIST.PROPNAMES 546Q PROPERTYLIST.BEING.EDITED 512Q EditPropListNoDelete 422Q SELECTION 415Q TEXTOBJ 237Q MB.TEXT 232Q MB.INSERT 215Q MB.TEXT 176Q MB.INSERT 161Q MB.TEXT 110Q MB.TEXT 56Q NC.EditPropButtonFN 33Q MB.BUTTON 2 HELVETICA) ( 715Q (("Add New Property" (NC.AddPropToPropList W) "Add a new property to this card's property list.") ("Delete Selected Property" (NC.DelPropFromList W) "Delete selected property from this card's property list.") ("Quit w/o Saving Changes" (NC.ClosePropListEditor W (QUOTE NoSave)) "Quit from property list edit. Changes are not saved.") ("Quit - Saving Changes" (NC.ClosePropListEditor W (QUOTE Save)) "Quit from property list editor. Save changes.")) 710Q (("Quit" (NC.ClosePropListEditor W (QUOTE NoSave)) "Quit from pointer list display.")) 632Q (RIGHTMARGIN 1750Q TABS (62Q (120Q . LEFT))) 536Q "Edit Property List" 134Q "]" 121Q " [") NC.ExtractPropList D1 (P 7 EOL P 6 propName P 5 button P 4 menuStream P 3 propList P 2 CH# P 1 propValue P 0 tobj I 0 editW) @g ik@g DH.\Hk0 HJ ]HoMlk HMl _AHl M k_HoMlOMl Mg HM YNKl Ij I I MkغNIh_OOh__hO&__O(247Q MKATOM 242Q READ 235Q NC.StringIsListP 227Q IMAGEOBJP 205Q MBUTTON.NEXT.FIELD.AS.TEXT.OR.IMAGEOBJ 176Q IMAGEOBJPROP 165Q TEDIT.LOOKS 133Q TEDIT.FIND 126Q CHARACTER 114Q MBUTTON.FIND.NEXT.BUTTON 102Q TEDIT.LOOKS 57Q MBUTTON.FIND.NEXT.BUTTON 17Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (173Q MBTEXT 35Q TEXTOBJ 26Q TEXTOBJ 14Q PROPERTYLIST.BEING.EDITED 3 TEXTOBJ) ( 145Q (PROTECTED OFF) 71Q (PROTECTED ON SELECTPOINT ON)) NC.OpenPropListEditor D1 (P 17Q LinkIcon P 16Q Item P 4 Card P 3 CardUID P 2 EditWindow P 1 SystemProperties P 0 Window I 5 ShowLinksFlg I 4 MakeImageObjFlg I 3 ShowOnlyFlg I 2 Title I 1 PropList I 0 WindowOrTextStream) o@ obHE hH \[0 And^dDd`90 N(dNMihddh_O Oh_O&_ONhdddhh_O"O__ObDd!OAv _O_d`O _dgi O_d_IOiOi&COhOiOhOhnnldd Bohi ZHggg Jggi JgCgi JgL AJC J(553Q NC.EditPropList 545Q PUTWINDOWPROP 535Q PUTWINDOWPROP 517Q WINDOWADDPROP 504Q ATTACHWINDOW 465Q CREATEW 451Q CREATEREGION 317Q IMAGEOBJPROP 305Q NC.MakeLinkIcon 251Q LAST 26Q NC.CoerceToCard 17Q NC.PropListEditorOpenP 3 WINDOW.FROM.TEDIT.THING) (541Q SavedCardObject 530Q ShowOnly 523Q PropListEditor 513Q FREEATTACHEDWINDOW 510Q CLOSEFN 500Q LOCALCLOSE 475Q JUSTIFY 472Q TOP 313Q InsidePropListEditor 272Q LinkTYPE# 63Q LinkTYPE# 32Q CardObject) ( 460Q "Edit Property List" 7 (ID Updates ItemDate LinksDate PropsDate TitleDate)) NC.ProcessEditedPropList D1 (P 10Q NewValue P 7 Prop P 6 Item P 5 PropName P 0 CurPropList I 2 Card I 1 OldPropList I 0 EditedPropList) B B0`dMHM'hZKJ\[L0@R [JdN_N Yj INOdAOh hOhZKJ\[L Bi  [J(226Q LAST 222Q NC.SetPropListDirtyFlg 215Q NC.SetPropList 212Q \NCONC2 153Q \FZEROP 112Q NCHARS 65Q LAST 3 NC.FetchPropList) (15Q NC.SystemCardPropNames) () NC.PropListEditorOpenP D1 (P 1 AttachedWindow I 1 ShowLinksFlg I 0 Window) 2@ !HhYg Ig AJAJIiHX(35Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 3 ALLATTACHEDWINDOWS) (32Q ShowLinks 21Q PropListEditor) () NC.SelectProperty D1 (P 0 ClippingRegion I 0 Window) jh@ @g @g :`lj`` @H@ @ @ @kI`@g h@g (147Q PUTWINDOWPROP 131Q GETWINDOWUSERPROP 104Q \INSUREWINDOW 76Q INSIDEP 73Q LASTMOUSEY 67Q LASTMOUSEX 56Q WHICHW 32Q GETMOUSESTATE 25Q GETWINDOWUSERPROP 16Q PUTWINDOWPROP 4 DSPCLIPPINGREGION) (144Q SelectedObject 137Q TEDIT.SELPENDING 126Q TEXTOBJ 122Q TEDIT.SELPENDING 53Q LASTMOUSEY 50Q LASTMOUSEX 36Q LASTMOUSEBUTTONS 22Q SelectedObject 13Q SelectedObject) () NC.ShowLinks D1 (P 14Q Link P 2 EditWindow P 1 Links P 0 Card I 0 TextStream) 6 @ 0 H id Ogoo`O O gidK KdL do hh_OO__O0 H _Od o`O O gidM MdN O_dOO_dOdo hh_O+O__O Y@Ioidd Zgi J _O(455Q LAST 450Q PUTWINDOWPROP 440Q NC.OpenPropListEditor 422Q \NCONC2 274Q COPYALL 256Q NC.InsureLinkDisplayMode 244Q NCREATE2 214Q LAST 206Q NC.FetchFromLinks 114Q COPYALL 76Q NC.InsureLinkDisplayMode 64Q NCREATE2 20Q NC.FetchToLinks 6 NC.CoerceToCard 3 WINDOW.FROM.TEDIT.THING) (444Q ShowLinks 340Q Link 320Q Link 262Q LINKDISPLAYMODE 251Q Link 237Q LinkTYPE# 102Q LINKDISPLAYMODE 71Q Link 57Q LinkTYPE# 41Q GlobalGlobal 34Q Link) ( 431Q "List of Links" 360Q (InsidePropListEditor T Reversed T) 234Q "FROM" 140Q (InsidePropListEditor T) 54Q "TO" 47Q "Global TO") NC.StringIsListP D1 (P 0 nextParen I 1 parenCount I 0 string) v@AjA A io@ Xdhg@Hd h l(@Hk Akbbg@Hd h l)@Hk Akbb h(162Q BREAK 144Q SUBSTRING 130Q EVAL 122Q SUBSTRING 76Q SUBSTRING 62Q EVAL 54Q SUBSTRING 36Q STRPOSL 22Q \FZEROP) (114Q CHARCODE 46Q CHARCODE) ( 32Q (%( %))) NC.PutProp D1 (P 0 PropList I 2 Value I 1 Prop I 0 Card) &@ H@ABh @i hAB @H(37Q LISTPUT 30Q NC.SetPropListDirtyFlg 22Q NC.SetPropList 3 NC.FetchPropList) NIL () NC.GetProp D1 (I 1 Prop I 0 Card) @ A'(3 NC.FetchPropList) NIL () NC.RemProp D1 (I 1 Prop I 0 Card) @A (4 NC.PutProp) NIL () NC.FetchBeingDeletedFlg D1 (L (0 Card)) @dPjhNIL (12Q CardCache 3 CardObject) () NC.SetBeingDeletedFlg D1 (P 0 \Cache I 1 Value I 0 Card) 8@H@`dAkAkjYPIjhjPANIL (35Q CardCache 22Q CardCacheTYPE# 17Q CardObject 3 CardObject) () NC.RemoveDELETEMEImageObjsFromCard D1 (P 2 IconPair P 1 TextStream P 0 WasActiveFlg I 1 PredicateFn I 0 Card) P@g G@ A@ H@ @ Y A dIJk H@ @g (115Q NC.SetUserDataProp 104Q NCP.UncacheCards 71Q TEDIT.DELETE 53Q REVERSE 50Q TEDIT.LIST.OF.OBJECTS 44Q TEXTOBJ 40Q NCP.CardSubstance 33Q NCP.CacheCards 22Q NCP.CardCachedP 14Q NCP.TextBasedP 6 NC.FetchUserDataProp) (112Q NeedsCleaningFlg 3 NeedsCleaningFlg) () NC.InsureIntegerDate D1 (I 0 Date) @j3 @ @ jo (34Q NC.ReportError 21Q IDATE) NIL ( 31Q "Unknown date format") NC.PlaceMarkerCopyFn D1 (I 0 ImageObj) @g (11Q NC.MakePlaceMarker 6 IMAGEOBJPROP) (3 OBJECTDATUM) () NC.PlaceMarkerDisplayFn D1 (P 2 Font P 1 Scale P 0 Label I 1 Stream I 0 ImageObj) ;@g hA gl ghA IljA JA H A A h(67Q DSPFONT 62Q PRIN1 56Q U-CASE 52Q DSPFONT 45Q RELMOVETO 31Q FONTCREATE 13Q DSPSCALE 6 IMAGEOBJPROP) (23Q ITALIC 16Q HELVETICA 3 OBJECTDATUM) () NC.PlaceMarkerGetFn D1 (I 1 TextStream I 0 FileStream) @ (6 NC.MakePlaceMarker 3 READ) NIL () NC.PlaceMarkerImageBoxFn D1 (P 2 Scale P 1 Label P 0 Font I 1 Stream I 0 ImageObj) Hgl ghA @g hA JlI H JlHJlHjh(50Q STRINGWIDTH 44Q U-CASE 31Q DSPSCALE 24Q IMAGEOBJPROP 15Q FONTCREATE) (74Q FONTDESCRIPTOR 61Q FONTDESCRIPTOR 21Q OBJECTDATUM 7 ITALIC 2 HELVETICA) () NC.PlaceMarkerPutFn D1 (P 0 Label I 1 FileStream I 0 ImageObj) @g H A h(21Q PRIN2 15Q MKSTRING 6 IMAGEOBJPROP) (3 OBJECTDATUM) () NC.MakePlaceMarker D1 (I 0 Label) @ggggggdddd (35Q IMAGEOBJCREATE 32Q IMAGEFNSCREATE) (22Q NILL 17Q NC.PlaceMarkerCopyFn 14Q NC.PlaceMarkerGetFn 11Q NC.PlaceMarkerPutFn 6 NC.PlaceMarkerImageBoxFn 3 NC.PlaceMarkerDisplayFn) () NC.FetchTitleDate D1 (P 0 Date I 1 DontConvertFlg I 0 Card) *@dHjHAH hH (47Q GDATE 37Q \FZEROP) (12Q CardCache 3 CardObject) () NC.FetchItemDate D1 (P 0 Date I 1 DontConvertFlg I 0 Card) *@d HjHAH hH (47Q GDATE 37Q \FZEROP) (12Q CardCache 3 CardObject) () NC.FetchPropListDate D1 (P 0 Date I 1 DontConvertFlg I 0 Card) *@dHjHAH hH (47Q GDATE 37Q \FZEROP) (12Q CardCache 3 CardObject) () NC.FetchLinksDate D1 (P 0 Date I 1 DontConvertFlg I 0 Card) *@d HjHAH hH (47Q GDATE 37Q \FZEROP) (12Q CardCache 3 CardObject) () NC.FetchLinkIconAttachedBitMap D1 (P 4 BitMapVal P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 Scale I 1 ScaledHeightToMatch I 0 Card) @@ H!Idq ZJ,[dgPIJd I ZdoI J,[dg oogoIo  KgIg K1Ld`@ L` \,L4AjbBkbhL_BO־MNdAOOAM(246Q NC.MakeTypeIconBitMapSet 234Q NC.CardTypeRecord 231Q NC.FetchType 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (243Q NC.DefaultLinkIconAttachedBitMapHeights 237Q NoteCardType 220Q BITMAPTYPE# 200Q LinkIconAttachedBitMap 172Q \\FILLME// 145Q LinkIconAttachedBitMap 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.FetchLinkDisplayMode D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 0 Card) @@ H!Idq ZJ"[dgPIJd I ZdoI J"[dg oogoIo  KgIg K(203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (200Q LinkDisplayMode 172Q \\FILLME// 145Q LinkDisplayMode 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.FetchDefaultWidth D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 0 Card) @@ H!Idq ZJ$[dgPIJd I ZdoI J$[dg oogoIo  KgIg K(203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (200Q DefaultWidth 172Q \\FILLME// 145Q DefaultWidth 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.FetchDefaultHeight D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 0 Card) @@ H!Idq ZJ&[dgPIJd I ZdoI J&[dg oogoIo  KgIg K(203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (200Q DefaultHeight 172Q \\FILLME// 145Q DefaultHeight 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.FetchLinkAnchorModesSupported D1 (P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 0 Card) @@ H!Idq ZJ([dgPIJd I ZdoI J([dg oogoIo  KgIg K(203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (200Q LinkAnchorModesSupported 172Q \\FILLME// 145Q LinkAnchorModesSupported 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") NC.SetTitleDate D1 (P 1 \Cache I 1 Date I 0 Card) *A @Y@`dHAH(3 NC.InsureIntegerDate) (43Q CardCache 26Q CardCacheTYPE# 23Q CardObject 12Q CardObject) () NC.SetItemDate D1 (P 1 \Cache I 1 Date I 0 Card) *A @Y@`dH AH (3 NC.InsureIntegerDate) (43Q CardCache 26Q CardCacheTYPE# 23Q CardObject 12Q CardObject) () NC.SetPropListDate D1 (P 1 \Cache I 1 Date I 0 Card) *A @Y@`dHAH(3 NC.InsureIntegerDate) (43Q CardCache 26Q CardCacheTYPE# 23Q CardObject 12Q CardObject) () NC.SetLinksDate D1 (P 1 \Cache I 1 Date I 0 Card) *A @Y@`dH AH (3 NC.InsureIntegerDate) (43Q CardCache 26Q CardCacheTYPE# 23Q CardObject 12Q CardObject) () (PRETTYCOMPRINT NCCARDSCOMS) (RPAQQ NCCARDSCOMS ((* * Internal variables) (GLOBALVARS NC.SubBoxMarkerLabel NC.FiledCardMarkerLabel NC.PlaceMarkerDisplayFont USERNAME NC.SavePropEditMenu TEDIT.SELPENDING NC.SystemLinkLabels NC.SourceLinkLabel NC.FiledCardLinkLabel NC.CloseCardsOffScreenFlg NC.BringUpCardAtOldPosFlg NC.DefaultLinkIconAttachedBitMapHeights NC.SystemCardPropNames) (VARS (NC.SubBoxMarkerLabel "File Boxes") (NC.FiledCardMarkerLabel "Note Cards") (NC.PlaceMarkerDisplayFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE ITALIC))) (NC.SystemCardPropNames (QUOTE (Updates)))) (INITVARS ( NC.DefaultLinkIconAttachedBitMapHeights (QUOTE (11 13 15 17 18 19 20 21 23 25)))) (* * The Card Objects) (RECORDS CardObject CardCache Card LinksCache) (FNS NC.CardOrCardHolderFromUID NC.CardP NC.DeleteNoteCard NC.DeleteNoteCardInternal NC.SameCardP) (* * Manipulate Note Card Representations) ( FNS NC.FetchStatus NC.SetNewCardFlg NC.FetchNewCardFlg NC.ActivateCard NC.ActiveCardP NC.DeactivateCard NC.FetchFromLinks NC.FetchGlobalLinks NC.FetchLinksDirtyFlg NC.FetchPropList NC.FetchRegion NC.FetchSavedRegion NC.FetchRegionViewed NC.FetchScale NC.FetchSlotNum NC.FetchSubstance NC.FetchTitle NC.FetchToLinks NC.FetchType NC.FetchWindow NC.IDP NC.MarkCardDirty NC.CardDirtyP NC.SetFromLinks NC.SetGlobalLinks NC.SetLinksDirtyFlg NC.SetPropList NC.SetRegion NC.SetSavedRegion NC.SetRegionViewed NC.SetScale NC.SetSubstance NC.SetTitle NC.SetToLinks NC.SetType NC.FetchTitleDirtyFlg NC.SetTitleDirtyFlg NC.FetchPropListDirtyFlg NC.SetPropListDirtyFlg NC.SetSubstanceDirtyFlg NC.FetchSubstanceDirtyFlg NC.TurnOffDirtyFlgs NC.FetchUserDataProp NC.SetUserDataProp NC.SetUserDataPropList NC.MakeTypeIconBitMapSet NC.MakeNewCardWindow) (* * Read subscriptions and write locks on card parts) (FNS NC.ObtainEditPermission NC.CardPartBusy) (MACROS NC.WithWritePermission NC.IfCardPartNotBusy NC.IfMultipleCardPartsNotBusy) (* * Stuff to handle read-only notefiles.) (FNS NC.ReadOnlyCardP NC.CardSomehowDirtyP) (* * Hash Array Handler) (MACROS NC.MapCards) (* * Retrieve Note Card Info) (FNS NC.RetrieveFromLinks NC.RetrieveLinkLabels NC.StoreLinkLabels NC.RetrievePropList NC.RetrieveTitle NC.RetrieveToLinks NC.RetrieveGlobalLinks NC.RetrieveType NC.RetrieveTypeAndTitle NC.LinksCachedP NC.ShowInfo) (* * General note card manipulations) (FNS NC.AddParents NC.SeverExternalLinks NC.AssignTitle NC.DeleteNoteCards NC.EditNoteCard NC.MakeNoteCard NC.QuitCard NC.CheckFiling NC.CheckTitle NC.ForceFilingForCardTypeP NC.InsureProperFiling NC.QuitWithoutSaving NC.UnfileNoteCard NC.UpdateUpdateList NC.CollectReferences NC.CardSaveFn NC.DetermineDisplayRegion NC.AbortCard NC.CardNeedsFilingP NC.TopLevelCardP NC.MakeDummyRegion NC.ValidCardP NC.TitleBarButtonEventFn NC.InstallTitleBarMiddleMenu) (* * Prop List Editor) (RECORDS PropListItem) (FNS NC.AddPropToPropList NC.CloseAllPropListEditors NC.ClosePropListEditor NC.DelPropFromList NC.EditPropButtonFN NC.EditProperties NC.EditPropList NC.ExtractPropList NC.OpenPropListEditor NC.ProcessEditedPropList NC.PropListEditorOpenP NC.SelectProperty NC.ShowLinks NC.StringIsListP NC.PutProp NC.GetProp NC.RemProp) (* * Unknown ?????????) (FNS NC.FetchBeingDeletedFlg NC.SetBeingDeletedFlg NC.RemoveDELETEMEImageObjsFromCard NC.InsureIntegerDate) (* * Place marker ImageObjects) (FNS NC.PlaceMarkerCopyFn NC.PlaceMarkerDisplayFn NC.PlaceMarkerGetFn NC.PlaceMarkerImageBoxFn NC.PlaceMarkerPutFn NC.MakePlaceMarker) (* * Functions for handling dates.) (FNS NC.FetchTitleDate NC.FetchItemDate NC.FetchPropListDate NC.FetchLinksDate NC.FetchLinkIconAttachedBitMap NC.FetchLinkDisplayMode NC.FetchDefaultWidth NC.FetchDefaultHeight NC.FetchLinkAnchorModesSupported) (FNS NC.SetTitleDate NC.SetItemDate NC.SetPropListDate NC.SetLinksDate))) (RPAQ NC.SubBoxMarkerLabel "File Boxes") (RPAQ NC.FiledCardMarkerLabel "Note Cards") (RPAQ NC.PlaceMarkerDisplayFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE ITALIC))) (RPAQQ NC.SystemCardPropNames (Updates)) (RPAQ? NC.DefaultLinkIconAttachedBitMapHeights (QUOTE (11 13 15 17 18 19 20 21 23 25))) (DATATYPE CardObject (UID NoteFile Monitor Status (IndexDirtyFlg FLAG) (IndexLoc INTEGER) (MainLoc INTEGER) (LinksLoc INTEGER) (PropListLoc INTEGER) (TitleLoc INTEGER) Title (TitleDirtyFlg FLAG) Type ( ActiveFlg FLAG) CardCache UserData)) (DATATYPE CardCache (Substance Links PropList Region SavedRegion (ItemDate FIXP) (LinksDate FIXP) ( TitleDate FIXP) (PropListDate FIXP) (ActiveCardFlg FLAG) (LinksDirtyFlg FLAG) (PropListDirtyFlg FLAG) (SubstanceDirtyFlg FLAG) (NewCardFlg FLAG) (BeingDeletedFlg FLAG))) (ACCESSFNS Card ((* * Instance variables of the card object) (UID (fetch (CardObject UID) of DATUM) ( replace (CardObject UID) of DATUM with NEWVALUE)) (NoteFile (LET ((\NF (fetch (CardObject NoteFile) of DATUM))) (COND ((type? NoteFile \NF) \NF) (\NF (replace (CardObject NoteFile) of DATUM with ( NC.NoteFileFromNoteFileUID \NF))))) (replace (CardObject NoteFile) of DATUM with NEWVALUE)) (Monitor ( fetch (CardObject Monitor) of DATUM) (replace (CardObject Monitor) of DATUM with NEWVALUE)) (Status ( fetch (CardObject Status) of DATUM) (replace (CardObject Status) of DATUM with NEWVALUE)) ( IndexDirtyFlg (fetch (CardObject IndexDirtyFlg) of DATUM) (replace (CardObject IndexDirtyFlg) of DATUM with NEWVALUE)) (IndexLoc (fetch (CardObject IndexLoc) of DATUM) (replace (CardObject IndexLoc) of DATUM with NEWVALUE)) (MainLoc (fetch (CardObject MainLoc) of DATUM) (replace (CardObject MainLoc) of DATUM with NEWVALUE)) (LinksLoc (fetch (CardObject LinksLoc) of DATUM) (replace (CardObject LinksLoc) of DATUM with NEWVALUE)) (PropListLoc (fetch (CardObject PropListLoc) of DATUM) (replace (CardObject PropListLoc) of DATUM with NEWVALUE)) (TitleLoc (fetch (CardObject TitleLoc) of DATUM) (replace ( CardObject TitleLoc) of DATUM with NEWVALUE)) (Title (fetch (CardObject Title) of DATUM) (replace ( CardObject Title) of DATUM with NEWVALUE)) (TitleDirtyFlg (fetch (CardObject TitleDirtyFlg) of DATUM) (replace (CardObject TitleDirtyFlg) of DATUM with NEWVALUE)) (* Note the use of NC.GetType if CardType is NIL. This is required to force the access to go to the disk for the card type if the card type caching process is not finished before this fetch is being made. Sort of a kludge.) (Type (OR (fetch ( CardObject Type) of DATUM) (NC.GetType DATUM)) (replace (CardObject Type) of DATUM with NEWVALUE)) ( ActiveFlg (fetch (CardObject ActiveFlg) of DATUM) (replace (CardObject ActiveFlg) of DATUM with NEWVALUE)) (ActiveCardFlg (fetch (CardObject ActiveFlg) of DATUM) (replace (CardObject ActiveFlg) of DATUM with NEWVALUE)) (CardCache (fetch (CardObject CardCache) of DATUM) (replace (CardObject CardCache) of DATUM with NEWVALUE)) (UserData (fetch (CardObject UserData) of DATUM) (replace ( CardObject UserData) of DATUM with NEWVALUE)) (Substance (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache Substance) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache Substance) of \Cache with NEWVALUE)) (T ( replace (CardObject CardCache) of DATUM with (create CardCache Substance _ NEWVALUE)) NEWVALUE)))) ( Links (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache Links) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache Links) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache Links _ NEWVALUE)) NEWVALUE)))) (FromLinks (LET ((\Cache (fetch (CardObject CardCache) of DATUM)) \Links) (AND \Cache (SETQ \Links (fetch (CardCache Links) of \Cache)) (fetch (LinksCache FromLinks) of \Links))) (LET ((\Cache (OR (fetch (CardObject CardCache) of DATUM) (replace (CardObject CardCache) of DATUM with (create CardCache)))) \Links) (SETQ \Links (fetch (CardCache Links) of \Cache)) (COND ( \Links (replace (LinksCache FromLinks) of \Links with NEWVALUE)) (T (replace (CardCache Links) of \Cache with (create LinksCache FromLinks _ NEWVALUE)) NEWVALUE)))) (ToLinks (LET ((\Cache (fetch ( CardObject CardCache) of DATUM)) \Links) (AND \Cache (SETQ \Links (fetch (CardCache Links) of \Cache)) (fetch (LinksCache ToLinks) of \Links))) (LET ((\Cache (OR (fetch (CardObject CardCache) of DATUM) ( replace (CardObject CardCache) of DATUM with (create CardCache)))) \Links) (SETQ \Links (fetch ( CardCache Links) of \Cache)) (COND (\Links (replace (LinksCache ToLinks) of \Links with NEWVALUE)) (T (replace (CardCache Links) of \Cache with (create LinksCache ToLinks _ NEWVALUE)) NEWVALUE)))) ( GlobalLinks (LET ((\Cache (fetch (CardObject CardCache) of DATUM)) \Links) (AND \Cache (SETQ \Links ( fetch (CardCache Links) of \Cache)) (fetch (LinksCache GlobalLinks) of \Links))) (LET ((\Cache (OR ( fetch (CardObject CardCache) of DATUM) (replace (CardObject CardCache) of DATUM with (create CardCache )))) \Links) (SETQ \Links (fetch (CardCache Links) of \Cache)) (COND (\Links (replace (LinksCache GlobalLinks) of \Links with NEWVALUE)) (T (replace (CardCache Links) of \Cache with (create LinksCache GlobalLinks _ NEWVALUE)) NEWVALUE)))) (PropList (LET ((\Cache (fetch (CardObject CardCache) of DATUM) )) (AND \Cache (fetch (CardCache PropList) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache PropList) of \Cache with NEWVALUE)) (T (replace ( CardObject CardCache) of DATUM with (create CardCache PropList _ NEWVALUE)) NEWVALUE)))) (Region (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache Region) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache Region) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache Region _ NEWVALUE)) NEWVALUE)))) (SavedRegion (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache SavedRegion) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache SavedRegion) of \Cache with NEWVALUE)) (T (replace ( CardObject CardCache) of DATUM with (create CardCache SavedRegion _ NEWVALUE)) NEWVALUE)))) (ItemDate (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache ItemDate) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache ItemDate) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache ItemDate _ NEWVALUE)) NEWVALUE)))) (LinksDate (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache LinksDate) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache LinksDate) of \Cache with NEWVALUE)) (T (replace ( CardObject CardCache) of DATUM with (create CardCache LinksDate _ NEWVALUE)) NEWVALUE)))) (TitleDate ( LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache TitleDate) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache TitleDate) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache TitleDate _ NEWVALUE)) NEWVALUE)))) (PropListDate (LET ((\Cache (fetch (CardObject CardCache ) of DATUM))) (AND \Cache (fetch (CardCache PropListDate) of \Cache))) (LET ((\Cache (fetch ( CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache PropListDate) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache PropListDate _ NEWVALUE) ) NEWVALUE)))) (LinksDirtyFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache ( fetch (CardCache LinksDirtyFlg) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) ( COND (\Cache (replace (CardCache LinksDirtyFlg) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache LinksDirtyFlg _ NEWVALUE)) NEWVALUE)))) (PropListDirtyFlg ( LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache PropListDirtyFlg) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace ( CardCache PropListDirtyFlg) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache PropListDirtyFlg _ NEWVALUE)) NEWVALUE)))) (SubstanceDirtyFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache SubstanceDirtyFlg) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache SubstanceDirtyFlg ) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache SubstanceDirtyFlg _ NEWVALUE)) NEWVALUE)))) (NewCardFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache NewCardFlg) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache (replace (CardCache NewCardFlg) of \Cache with NEWVALUE)) (T ( replace (CardObject CardCache) of DATUM with (create CardCache NewCardFlg _ NEWVALUE)) NEWVALUE)))) ( BeingDeletedFlg (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (AND \Cache (fetch (CardCache BeingDeletedFlg) of \Cache))) (LET ((\Cache (fetch (CardObject CardCache) of DATUM))) (COND (\Cache ( replace (CardCache BeingDeletedFlg) of \Cache with NEWVALUE)) (T (replace (CardObject CardCache) of DATUM with (create CardCache BeingDeletedFlg _ NEWVALUE)) NEWVALUE)))) (* * Class variables of the card object {class == card type}) (SuperType (LET ((NoteCardType (fetch (Card Type) of DATUM))) ( NC.GetCardTypeField SuperType NoteCardType))) (LinkDisplayMode (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField LinkDisplayMode NoteCardType))) (DefaultWidth (LET ((NoteCardType ( fetch (Card Type) of DATUM))) (NC.GetCardTypeField DefaultWidth NoteCardType))) (DefaultHeight (LET (( NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField DefaultHeight NoteCardType))) ( LinkAnchorModesSupported (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField LinkAnchorModesSupported NoteCardType))) (LinkIconAttachedBitMap (LET ((NoteCardType (fetch (Card Type ) of DATUM))) (NC.GetCardTypeField LinkIconAttachedBitMap NoteCardType))) (LeftButtonMenuItems (LET (( NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField LeftButtonMenuItems NoteCardType))) ( MiddleButtonMenuItems (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField MiddleButtonMenuItems NoteCardType))) (* * Methods of the card object {class == card type}) (MakeFn ( LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField MakeFn NoteCardType))) (EditFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField EditFn NoteCardType))) (QuitFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField QuitFn NoteCardType))) (GetFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField GetFn NoteCardType))) (PutFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField PutFn NoteCardType))) (CopyFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField CopyFn NoteCardType))) ( MarkDirtyFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField MarkDirtyFn NoteCardType))) (DirtyPFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField DirtyPFn NoteCardType))) (CollectLinksFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) ( NC.GetCardTypeField CollectLinksFn NoteCardType))) (DeleteLinksFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField DeleteLinksFn NoteCardType))) (UpdateLinkIconsFn (LET (( NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField UpdateLinkIconsFn NoteCardType))) ( InsertLinkFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) (NC.GetCardTypeField InsertLinkFn NoteCardType))) (TranslateWindowPositionFn (LET ((NoteCardType (fetch (Card Type) of DATUM))) ( NC.GetCardTypeField TranslateWindowPositionFn NoteCardType))) (* * Methods inherited from the cards current NoteFile device) (MarkCardDeletedFn (fetch (NoteFile MarkCardDeletedFn) of (fetch (Card NoteFile) of DATUM))) (GetCardInfoFn (fetch (NoteFile GetCardInfoFn) of (fetch (Card NoteFile) of DATUM))) (PutCardPartFn (fetch (NoteFile PutCardPartFn) of (fetch (Card NoteFile) of DATUM))) ( GetCardPartFn (fetch (NoteFile GetCardPartFn) of (fetch (Card NoteFile) of DATUM))) ( ObtainWritePermissionFn (fetch (NoteFile ObtainWritePermissionFn) of (fetch (Card NoteFile) of DATUM)) ) (ReleaseWritePermissionFn (fetch (NoteFile ReleaseWritePermissionFn) of (fetch (Card NoteFile) of DATUM))) (CancelCacheSubscriptionFn (fetch (NoteFile CancelCacheSubscriptionFn) of (fetch (Card NoteFile) of DATUM)))) (CREATE (create CardObject)) (TYPE? (TYPE? CardObject DATUM))) (DATATYPE LinksCache (ToLinks FromLinks GlobalLinks)) (/DECLAREDATATYPE (QUOTE CardObject) (QUOTE (POINTER POINTER POINTER POINTER FLAG FIXP FIXP FIXP FIXP FIXP POINTER FLAG POINTER FLAG POINTER POINTER)) (QUOTE ((CardObject 0 POINTER) (CardObject 2 POINTER) (CardObject 4 POINTER) (CardObject 6 POINTER) (CardObject 6 (FLAGBITS . 0)) (CardObject 8 FIXP) ( CardObject 10 FIXP) (CardObject 12 FIXP) (CardObject 14 FIXP) (CardObject 16 FIXP) (CardObject 18 POINTER) (CardObject 18 (FLAGBITS . 0)) (CardObject 20 POINTER) (CardObject 20 (FLAGBITS . 0)) ( CardObject 22 POINTER) (CardObject 24 POINTER))) (QUOTE 26)) (/DECLAREDATATYPE (QUOTE CardCache) (QUOTE (POINTER POINTER POINTER POINTER POINTER FIXP FIXP FIXP FIXP FLAG FLAG FLAG FLAG FLAG FLAG)) (QUOTE ((CardCache 0 POINTER) (CardCache 2 POINTER) (CardCache 4 POINTER) (CardCache 6 POINTER) (CardCache 8 POINTER) (CardCache 10 FIXP) (CardCache 12 FIXP) ( CardCache 14 FIXP) (CardCache 16 FIXP) (CardCache 8 (FLAGBITS . 0)) (CardCache 8 (FLAGBITS . 16)) ( CardCache 8 (FLAGBITS . 32)) (CardCache 8 (FLAGBITS . 48)) (CardCache 8 (FLAGBITS . 64)) (CardCache 8 (FLAGBITS . 80)))) (QUOTE 18)) (/DECLAREDATATYPE (QUOTE LinksCache) (QUOTE (POINTER POINTER POINTER)) (QUOTE ((LinksCache 0 POINTER) (LinksCache 2 POINTER) (LinksCache 4 POINTER))) (QUOTE 6)) (DEFMACRO NC.WithWritePermission (CardForm CardPartForm &REST Body) (* * Evaluate Body after obtaining WritePermission for the CardPart of a Card. Release Write permission afterwards.) (* * fgh 8/30/86 First created.) (BQUOTE (RESETLST (RESETSAVE (NC.ApplyFn ObtainWritePermissionFn , CardForm , CardPartForm) (BQUOTE (APPLY* , (fetch (Card ReleaseWritePermissionFn) of , CardForm) , , CardForm , ( QUOTE , CardPartForm)))) ,@ Body))) (DEFMACRO NC.IfCardPartNotBusy (CardForm CardPartForm &REST Body) (* * Do Body if can obtain write permission for CardPart of Card. Otherwise call CardPartBusy.) (* * fgh 8/30/86 First created.) ( BQUOTE (COND ((NOT (NC.ApplyFn ObtainWritePermissionFn , CardForm , CardPartForm)) (NC.CardPartBusy , CardForm , CardPartForm) NIL) (T (RESETLST (RESETSAVE NIL (BQUOTE (APPLY* , (fetch (Card ReleaseWritePermissionFn) of , CardForm) , , CardForm , , CardPartForm))) ,@ Body))))) (DEFMACRO NC.IfMultipleCardPartsNotBusy (CardForm CardPartsList &REST Body) (* * Essentially call IfCardPartNotBusy for a whole bunch of CardParts) (* * fgh 8/30/86 First created.) (LET (( FormUnderConstruction (BQUOTE (PROGN ,@ Body)))) (for CardPart in (REVERSE CardPartsList) do (SETQ FormUnderConstruction (BQUOTE (NC.IfCardPartNotBusy , CardForm (QUOTE , CardPart) , FormUnderConstruction)))) FormUnderConstruction)) (DEFMACRO NC.MapCards (NoteFile Function &OPTIONAL CollectResultPredicate) (* * Map over the entries in a NoteFiles hash array applying function to the CardID and Hash table value for each entry.) (* * rht 7/14/86: Changed from function to macro.) (* * fgh 7/16/86 Fixed several bugs and reorganized macro.) (COND (CollectResultPredicate (BQUOTE (LET (CollectionList) (MAPHASH (fetch (NoteFile HashArray) of , NoteFile) (FUNCTION (LAMBDA (Value Key) (LET (PredicateResult) (BLOCK) (COND ((SETQ PredicateResult (APPLY* , CollectResultPredicate Value)) (SETQ CollectionList (CONS (APPLY* , Function Value PredicateResult) CollectionList))) (T (APPLY* , Function Value))))))) CollectionList))) (T ( BQUOTE (MAPHASH (fetch (NoteFile HashArray) of , NoteFile) (FUNCTION (LAMBDA (Value Key) (BLOCK) ( APPLY* , Function Value)))))))) (RECORD PropListItem (PropertyName Value OriginalListFlg AllowEditFlg AllowSelectFlg ButtonFn)) (PUTPROPS NCCARDS COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987)) NIL