(FILECREATED "30-Jan-85 15:01:28" ("compiled on " {PHYLUM}RELEASE1.1>LOOPSNOTECARDS.;17) "20-Dec-84 12:07:22" recompiled changes: nothing in "SMALLLOOPS 25-Jan-85 ..." dated "25-Jan-85 11:08:41") (FILECREATED "30-Jan-85 14:58:41" {PHYLUM}RELEASE1.1>LOOPSNOTECARDS.;17 77486 changes to: ( CLASSES Card FileboxCard) previous date: "28-Jan-85 20:10:15" {PHYLUM}RELEASE1.1>LOOPSNOTECARDS.;16) Card.BringUp D1 (P 2 Height P 1 Width P 0 Region I 1 Region/Position I 0 self F 16Q Window F 17Q DefaultWindowWidth F 20Q DefaultWindowHeight)  @g @\g LkK@g 9@g l]j@g Mkٰ@g . @g @g @g @g @W @W @gAl AdddihA9A AAIJ )`_g OIJo@g o lN @g@g @g hi @g gg @g g@_g _OkO @g g@_g _OkO Wggg Wg@ @g _g _O@g @g lO@g (631Q GetValue 613Q GetValue 604Q GetValue 570Q FetchMethodOrHelp 560Q GetValue 551Q PUTWINDOWPROP 540Q WINDOWADDPROP 522Q PUTWINDOWPROP 505Q FetchMethodOrHelp 471Q GetValue 462Q PUTWINDOWPROP 445Q FetchMethodOrHelp 431Q GetValue 422Q PUTWINDOWPROP 411Q GetValue 402Q PutValue 377Q CREATEW 372Q GetValue 363Q GetValue 350Q PutValue 340Q CONCAT 331Q GetValue 311Q FetchMethodOrHelp 274Q CREATEREGION 262Q POSITIONP 221Q EQLENGTH 206Q GetClassValue 177Q GetClassValue 164Q GetValue 151Q GetValue 140Q GetValue 130Q GetValue 121Q TTY.PROCESS 114Q \INSUREWINDOW 111Q GetValue 74Q FLASHW 71Q GetValue 54Q TOTOPW 51Q GetValue 40Q GetValue 22Q FetchMethodOrHelp 11Q GetValue) (626Q Window 610Q Title 601Q Window 565Q BringUp 555Q Substance 545Q NOTECARDOBJECT 535Q FIRST 532Q NCL.QuitCard 527Q CLOSEFN 502Q GetMiddleMenu 474Q NoteCardsMiddleButtonMenu 466Q Window 442Q GetLeftMenu 434Q NoteCardsLeftButtonMenu 426Q Window 417Q NCL.ShrinkFn 414Q SHRINKFN 406Q Window 367Q Title 360Q Region 354Q Window 326Q Title 306Q AskCardRegion 301Q NCL.CurrentTopLevel 213Q Region 161Q Region 146Q Region 135Q Region 125Q Window 106Q Window 66Q Window 46Q Window 35Q Window 17Q Retrieve 6 ActiveP) ( 335Q "'" 322Q "Please specify location for edit of Note Card '") Card.CollectLinksInCard D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () Card.Deactivate D1 (I 1 ClearTitle I 0 self) P@g A @g @g @g @g @g @g @g A@g @g @(114Q PutValue 104Q PutValue 73Q PutValue 64Q PutValue 55Q PutValue 46Q PutValue 37Q PutValue 30Q PutValue 21Q PutValue 12Q NC.DeactivateCard 6 GetValue) (111Q ActiveP 101Q Title 70Q Substance 61Q NCid 52Q Notefile 43Q FromLinks 34Q ToLinks 25Q PropList 16Q Region 3 NCid) () Card.Delete D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () Card.DeleteLinksInCard D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () Card.File D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () Card.GetActiveP D1 (I 0 self) @g (6 GetValue) (3 ActiveP) () Card.GetIndexPtr D1 (I 0 self) @g (11Q NCL.IndexFromNumber 6 GetValue) (3 CardNumber) () Card.GetInitialInfoFromStreamA0001 D1 (NAME ERRORSET L (0 NIL) P 4 ActualType P 3 ActualID P 2 CardType F 5 Stream F 6 self F 7 Ptr F 10Q RESETY) Uo hi VHg HkI!UW U` oVg o PU [Vg ooVg oK (JU \#ooJoLoVg  U U ci(241Q GETFILEPTR 234Q READC 227Q NC.ReportError 224Q CONCAT 220Q GetValue 163Q READ 154Q CONCAT 144Q GetValue 122Q GetValue 112Q READ 104Q CONCAT 75Q GetValue 60Q NC.GetIdentifier 50Q SETFILEPTR 30Q FetchMethodOrHelp 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) (215Q NCid 141Q NCid 117Q NCid 72Q NCid 55Q NC.ItemIdentifier 25Q GetTypeName) ( 211Q " while reading ID: " 204Q ". Found " 177Q "Type mismatch while reading card info. Expected " 173Q "Card.GetInitialInfoFromStream" 150Q " Found ID: " 135Q "ID mismatch while reading item. Expected ID: " 131Q "Card.GetInitialInfoFromStream" 101Q " Error in Database file -- incorrect item identifier." 66Q "Card.GetInitialInfoFromStream" 4 "Card.GetInitialInfoFromStream") Card.GetInitialInfoFromStream D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 Ptr I 1 Stream I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q Card.GetInitialInfoFromStreamA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Card.GetInitialInfoFromStreamA0001)) Card.GetLinksFromStream D1 (P 0 ActualID I 1 Stream I 0 self F 1 ID) rA` oQo A Xd@g oo@g oH @gA @gA @gA  @g @(156Q PutValue 147Q PutValue 143Q READ 133Q PutValue 130Q READ 120Q PutValue 115Q READ 104Q NC.ReportError 101Q CONCAT 71Q GetValue 47Q GetValue 36Q READ 31Q NC.ReportError 26Q CONCAT 11Q NC.GetIdentifier) (153Q LinksDirtyFlg 137Q GlobalLinks 124Q FromLinks 111Q ToLinks 66Q NCid 44Q NCid 6 NC.LinksIdentifier) ( 75Q " Found ID: " 62Q "ID mismatch while reading links. Expected ID: " 56Q "Card.GetLinksFromStream" 23Q " Error in Database file -- incorrect links identifier." 16Q "Card.GetLinksFromStream") Card.GetNCid D1 (I 0 self) @g (6 GetValue) (3 NCid) () Card.GetPtrsFromStreamA0001 D1 (NAME ERRORSET L (0 NIL) F 2 Stream F 3 self F 4 RESETY) )Ro hi SHg HkIR ci(43Q NCL.GetPtrs 30Q FetchMethodOrHelp 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) (25Q GetIndexPtr) ( 4 "Card.GetPtrsFromStream") Card.GetPtrsFromStream D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 Stream I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q Card.GetPtrsFromStreamA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Card.GetPtrsFromStreamA0001)) Card.GetRegionFromStream D1 (I 1 Stream I 0 self) @g@g A (21Q PutValue 16Q NC.GetRegion 12Q GetValue) (7 NCid 3 Region) () Card.GetTypeName D1 (I 0 self) @g @Hg HkI(23Q FetchMethodOrHelp 6 GetClassValue) (20Q ClassName 3 TypeNameOnNotefile) () Card.InsureProperFiling D1 (L (0 self)) @NIL NIL () Card.MakeDummyRegion D1 (I 0 self) jd@g @g (22Q CREATEREGION 17Q GetClassValue 10Q GetClassValue) (14Q DefaultWindowHeight 5 DefaultWindowWidth) () Card.PutLinksToStream D1 (P 1 Index P 0 DataPtr I 1 Stream I 0 self) @@[g KkJYAI A dlAgdlFgdlDglSggo@g o Ad X A` @g A @g A @g A @g A @g @g AI A dlAdlFdlDlSA A A AHl l AHl l AHl @(357Q BOUT 346Q BOUT 340Q RSH 330Q BOUT 322Q RSH 256Q SETFILEPTR 251Q NC.SetLinksDirtyFlg 246Q GetValue 237Q PutValue 230Q PRINT 224Q GetValue 215Q PRINT 211Q GetValue 202Q PRINT 176Q GetValue 167Q PRINT 163Q GetValue 154Q NC.PutIdentifier 145Q SETFILEPTR 141Q GETEOFPTR 133Q NC.ReportError 130Q CONCAT 121Q GetValue 26Q SETFILEPTR 12Q FetchMethodOrHelp) (243Q NCid 234Q LinksDirtyFlg 221Q GlobalLinks 206Q FromLinks 173Q ToLinks 160Q NCid 151Q NC.LinksIdentifier 116Q NCid 103Q ACTIVE 100Q SPECIAL 67Q DELETED 54Q FREE 41Q ACTIVE 7 GetIndexPtr) ( 125Q " is not an active note card." 112Q "Card.PutLinksToStream") Card.PutPropListToStream D1 (P 0 DataPtr I 1 Stream I 0 self) 0Ad X A` @g A @g A A@Zg JkI A dlAdlFdlDlSA A A A A A A A A AHl l AHl l AHl @g @g @(234Q NC.SetPropListDirtyFlg 231Q GetValue 222Q PutValue 213Q BOUT 202Q BOUT 174Q RSH 164Q BOUT 156Q RSH 72Q SETFILEPTR 61Q FetchMethodOrHelp 50Q PRINT 44Q GetValue 35Q PRINT 31Q GetValue 22Q NC.PutIdentifier 13Q SETFILEPTR 7 GETEOFPTR) (226Q NCid 217Q PropListDirtyFlg 56Q GetIndexPtr 41Q PropList 26Q NCid 17Q NC.PropsIdentifier) () Card.PutRegionToStream D1 (P 3 NoteCardType P 2 ActualID P 1 Status P 0 Ptr I 1 Stream I 0 self F 10Q PtrList F 11Q DatabaseStream) @]g MAlLcdYWXIgo@g oW AH A` o@g o A Z@g oo@g oJ A [A @_g OAlN@(236Q FetchMethodOrHelp 225Q READC 220Q READ 213Q NC.ReportError 210Q CONCAT 200Q GetValue 156Q GetValue 146Q READ 141Q NC.ReportError 136Q CONCAT 127Q GetValue 112Q NC.GetIdentifier 103Q SETFILEPTR 75Q NC.ReportError 72Q CONCAT 67Q FULLNAME 56Q GetValue 12Q FetchMethodOrHelp) (233Q PutRegionToStreamAtCurPtr 175Q NCid 153Q NCid 124Q NCid 107Q NC.ItemIdentifier 53Q NCid 40Q ACTIVE 7 GetPtrsFromStream) ( 204Q " Found ID: " 171Q "ID mismatch: Expected ID: " 165Q "Card.PutRegionToStream" 133Q "Error in database file -- incorrect item identifier" 120Q "Card.PutRegionToStream" 62Q " not an active note card on " 47Q "Card.PutRegionToStream") Card.PutRegionToStreamAtCurPtr D1 (P 0 Region I 1 Stream I 0 self) 0@g @g X@g X@Zg JkIAHl l AHl AHl l AHl AHl l AHl AHl l AHl @(235Q BOUT 220Q BOUT 212Q RSH 177Q BOUT 163Q BOUT 155Q RSH 143Q BOUT 130Q BOUT 122Q RSH 111Q BOUT 77Q BOUT 71Q RSH 52Q FetchMethodOrHelp 40Q GetValue 24Q \INSUREWINDOW 21Q GetValue 11Q GetValue) (47Q MakeDummyRegion 35Q Region 16Q Window 6 Window) () Card.PutSubstanceToStream D1 (P 0 DataPtr I 2 UpdateUpdateListFlg I 1 Stream I 0 self) B@g Ad X A` @g A @Zg JkIA @\g LAlK@g ^g NA@g lMA@_g _OkO AlA AHl l AHl l AHl @(254Q BOUT 243Q BOUT 235Q RSH 225Q BOUT 217Q RSH 210Q BOUT 202Q SETFILEPTR 165Q FetchMethodOrHelp 145Q GetValue 133Q FetchMethodOrHelp 124Q GetValue 104Q FetchMethodOrHelp 74Q PRINT 62Q FetchMethodOrHelp 52Q PRINT 46Q GetValue 37Q NC.PutIdentifier 30Q SETFILEPTR 24Q GETEOFPTR 16Q NC.UpdateUpdateList 13Q GetValue) (162Q GetIndexPtr 142Q Window 130Q StoreOnStream 121Q Substance 101Q PutRegionToStreamAtCurPtr 57Q GetTypeName 43Q NCid 34Q NC.ItemIdentifier 10Q NCid) () Card.PutTitleToStream D1 (P 0 DataPtr I 1 Stream I 0 self F 3 NC.TitleIdentifier) 0Ad X AS @g A @g A A@Zg JkI A dlAdlFdlDlSA A A A A A AHl l AHl l AHl @g @g @(222Q NC.SetTitleDirtyFlg 217Q GetValue 210Q PutValue 201Q BOUT 170Q BOUT 162Q RSH 152Q BOUT 144Q RSH 70Q SETFILEPTR 57Q FetchMethodOrHelp 46Q PRINT 42Q GetValue 33Q PRINT 27Q GetValue 20Q NC.PutIdentifier 13Q SETFILEPTR 7 GETEOFPTR) (214Q NCid 205Q TitleDirtyFlg 54Q GetIndexPtr 37Q Title 24Q NCid) () Card.Quit D1 (P 2 AttachedWindow I 3 ClearTitle I 2 InsideOfWindowClose I 1 Don'tSave I 0 self) A@Hg HkI@g "@g Hg H@g lI@g e@g gg @g hdi g @g @g dJ J B@g @g @Hg HClI@(264Q FetchMethodOrHelp 250Q PutValue 240Q CLOSEW 235Q GetValue 217Q CLOSEW 212Q DETACHWINDOW 200Q ALLATTACHEDWINDOWS 175Q GetValue 165Q REMOVEPROMPTWINDOW 162Q GetValue 152Q PUTWINDOWPROP 144Q GETPROMPTWINDOW 136Q GetValue 126Q WINDOWDELPROP 115Q GetValue 104Q GetValue 67Q GetValue 56Q FetchMethodOrHelp 44Q GetValue 33Q GetValue 15Q FetchMethodOrHelp) (261Q Deactivate 245Q Window 232Q Window 172Q Window 157Q Window 147Q PROCESS 133Q Window 123Q NCL.QuitCard 120Q CLOSEFN 112Q Window 101Q Window 64Q Window 53Q Wrapup 41Q Substance 30Q Substance 12Q StoreIfNeeded) () Card.RegionChangedP D1 (P 0 NewRegion I 0 self) D@g 8@g @g X h@g H h(77Q EQUAL 63Q GetValue 50Q EQUAL 37Q \INSUREWINDOW 34Q GetValue 22Q GetValue 11Q GetValue) (60Q Region 31Q Window 17Q Region 6 Window) () Card.RetrieveA0002 D1 (NAME ERRORSET P 5 Status P 4 PropsPtr P 3 TitlePtr P 2 LinksPtr P 1 Ptr P 0 PtrList F 32Q self F 33Q Stream F 34Q RESETY) W6o hi W4_g OW6lNXHHHHMgMW4_g _OW6IlOW4_g _OW6lOW4g (W4gW4g _g _OkO W4g _g _OW6lOW4g W4_"g _ O"kO  W4g W4g W4g W4g _&g _$O&kO$ W6J W4_*g _(O*W6lO(W4g W4g W4g W4g W4g W4g W4g W6K W4_.g _,O.W6lO,W4g W4g W6L W4_2g _0O2W6lO0W4g W4g W4gi W4g W4c8i(1006Q NC.ActivateCard 1003Q GetValue 772Q PutValue 760Q NC.SetPropList 755Q GetValue 745Q GetValue 717Q FetchMethodOrHelp 704Q SETFILEPTR 675Q NC.SetTitle 672Q GetValue 662Q GetValue 634Q FetchMethodOrHelp 621Q SETFILEPTR 612Q NC.SetLinksDirtyFlg 607Q GetValue 576Q NC.SetGlobalLinks 573Q GetValue 563Q GetValue 552Q NC.SetFromLinks 547Q GetValue 537Q GetValue 526Q NC.SetToLinks 523Q GetValue 513Q GetValue 465Q FetchMethodOrHelp 452Q SETFILEPTR 443Q NC.SetSubstance 426Q FetchMethodOrHelp 416Q GetValue 406Q GetValue 375Q NC.SetRegion 372Q GetValue 362Q GetValue 351Q NC.SetType 334Q FetchMethodOrHelp 322Q GetValue 274Q FetchMethodOrHelp 264Q GetValue 253Q PutValue 236Q FetchMethodOrHelp 226Q $! 223Q GetClassValue 204Q GetValue 156Q FetchMethodOrHelp 125Q FetchMethodOrHelp 36Q FetchMethodOrHelp 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (1000Q NCid 766Q ActiveP 752Q PropList 742Q NCid 714Q GetPropListFromStream 667Q Title 657Q NCid 631Q GetTitleFromStream 604Q NCid 570Q GlobalLinks 560Q NCid 544Q FromLinks 534Q NCid 520Q ToLinks 510Q NCid 462Q GetLinksFromStream 423Q GetSubstanceVal 413Q Substance 403Q NCid 367Q Region 357Q NCid 331Q GetTypeName 317Q NCid 271Q RetrieveFromStream 261Q Substance 233Q New 220Q SubstanceClassName 213Q Substance 201Q Substance 153Q GetRegionFromStream 122Q GetInitialInfoFromStream 105Q ACTIVE 33Q GetPtrsFromStream) ( 5 "Card.Retrieve") Card.Retrieve D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 Stream I 0 self F 6 LISPXHIST F 7 RESETVARSLST) >@g Hg HkIV!Wog hg] ML(71Q ERROR! 64Q RESETRESTORE 52Q Card.RetrieveA0002 20Q FetchMethodOrHelp 6 GetValue) (60Q ERROR 47Q INTERNAL 15Q GetStream 3 Notefile) ( 44Q (Card.RetrieveA0002)) Card.Store D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () Card.StoreIfNeededA0003 D1 (NAME ERRORSET L (0 NIL) F 2 self F 3 Stream F 4 Window F 5 RESETY) zSo hi Rg Rg iol Rg Hg HRg lI(Rg ho RHg HSlI:RHg HkI&Rg ho RHg HSlIRg Hg HkIRg &Rg ho RHg HSlIRg &Rg ho RHg HSlIRg &Rg ho RHg HSlIRg #Rg hol n Ti c i(564Q NC.ClearMsg 556Q DISMISS 547Q NC.PrintMsg 544Q CHARACTER 532Q GetValue 521Q GetValue 501Q FetchMethodOrHelp 465Q NC.PrintMsg 455Q GetValue 444Q GetValue 424Q FetchMethodOrHelp 410Q NC.PrintMsg 400Q GetValue 367Q GetValue 347Q FetchMethodOrHelp 333Q NC.PrintMsg 323Q GetValue 312Q GetValue 274Q FetchMethodOrHelp 262Q GetValue 242Q FetchMethodOrHelp 226Q NC.PrintMsg 216Q GetValue 176Q FetchMethodOrHelp 150Q FetchMethodOrHelp 134Q NC.PrintMsg 124Q GetValue 105Q GetValue 74Q FetchMethodOrHelp 62Q GetValue 52Q NC.PrintMsg 47Q CHARACTER 35Q GetValue 24Q GetValue 14Q OBTAIN.MONITORLOCK 7 NC.FetchMonitor) (527Q Window 516Q Window 476Q PutLinksToStream 452Q Window 441Q LinksDirtyFlg 421Q PutPropListToStream 375Q Window 364Q PropListDirtyFlg 344Q PutTitleToStream 320Q Window 307Q TitleDirtyFlg 271Q MarkUnchanged 257Q Substance 237Q PutRegionToStream 213Q Window 173Q RegionChangedP 145Q PutSubstanceToStream 121Q Window 102Q Window 71Q ChangedP 57Q Substance 32Q Window 21Q Window) ( 537Q "Done!!" 462Q "links, " 405Q "proplist, " 330Q "title, " 223Q "writing card region, " 131Q "writing card substance and region, " 42Q "Updating NoteFile ... " 4 "Card.StoreIfNeeded") Card.StoreIfNeeded D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 2 Stream I 0 self F 10Q LISPXHIST F 11Q RESETVARSLST) P@g Hg HkI!@\g LkKW!Wog hg_ O@(114Q ERROR! 105Q RESETRESTORE 72Q Card.StoreIfNeededA0003 42Q FetchMethodOrHelp 20Q FetchMethodOrHelp 6 GetValue) (100Q ERROR 67Q INTERNAL 37Q InsureProperFiling 15Q GetStream 3 Notefile) ( 64Q (Card.StoreIfNeededA0003)) Card.Unfile D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () Card.UpdateLinksInCard D1 (I 0 self F 0 be F 1 written) PQ (4 To) NIL () GrapherSubstance.BringUp D1 (I 2 Title I 1 Window I 0 self F 0 GraphLeftButtonFn F 1 GraphMiddleButtonFn) @g A@P @Q hi (27Q SHOWGRAPH 21Q GetClassValue 14Q GetClassValue 6 GetValue) (3 SubstanceVal) () GrapherSubstance.ChangedP D1 (L (0 self)) iNIL NIL () GrapherSubstance.RetrieveFromStream D1 (I 2 Stream I 1 Notefile I 0 self) @gB (12Q PutValue 7 NC.GetGraphSubstance) (3 SubstanceVal) () GrapherSubstance.StoreOnStream D1 (P 2 StartPtr P 1 EndPtrLoc P 0 EndPtr I 2 Window I 1 Stream I 0 self) 0A lZAJl l AJl l AJl A YAj Aj Aj @g dh@g A A XAI AHl l AHl l AHl @(221Q BOUT 210Q BOUT 202Q RSH 172Q BOUT 164Q RSH 155Q SETFILEPTR 147Q GETFILEPTR 143Q HPRINT 137Q GetValue 113Q GetValue 104Q BOUT 76Q BOUT 70Q BOUT 62Q GETFILEPTR 56Q BOUT 45Q BOUT 37Q RSH 27Q BOUT 21Q RSH 6 GETFILEPTR) (134Q SubstanceVal 110Q SubstanceVal) () Link.Testfoo D1 (I 1 increment I 0 self) @gA (7 PutValue) (3 Source) () Notefile.CardItemFromNumber D1 (I 1 CardNumber I 0 self) @g A((6 GetValue) (3 CardsArray) () Notefile.CloseA0001 D1 (NAME ERRORSET P 0 Window F 3 RESETVARSLST F 4 OpenWindows F 5 RESETY) ygd g Scgd g Scgd g ScT3d!Hg H XH Zg JkIH hc i(153Q BLOCK 147Q OPENWP 134Q FetchMethodOrHelp 125Q NCL.CardFromWindow 117Q EXPANDW 112Q GETWINDOWUSERPROP 65Q SETTOPVAL 56Q GETTOPVAL 41Q SETTOPVAL 32Q GETTOPVAL 15Q SETTOPVAL 6 GETTOPVAL) (131Q Quit 107Q ICONFOR 62Q NC.ForceTitlesFlg 52Q NC.ForceTitlesFlg 36Q NC.ForceFilingFlg 26Q NC.ForceFilingFlg 12Q NC.ForceSourcesFlg 2 NC.ForceSourcesFlg) () Notefile.CloseA0003 D1 (NAME ERRORSET L (0 NIL) F 2 RESETVARSLST F 3 self F 4 QuietFlg F 5 RESETY) Ygd g Rcgd g Rcgd g RcSHg HTolIc i(106Q FetchMethodOrHelp 65Q SETTOPVAL 56Q GETTOPVAL 41Q SETTOPVAL 32Q GETTOPVAL 15Q SETTOPVAL 6 GETTOPVAL) (103Q QuitAllCards 62Q NC.ForceTitlesFlg 52Q NC.ForceTitlesFlg 36Q NC.ForceFilingFlg 26Q NC.ForceFilingFlg 12Q NC.ForceSourcesFlg 2 NC.ForceSourcesFlg) ( 115Q "Closing NoteFile.") Notefile.Close D1 (P 20Q RESETZ P 17Q RESETY P 16Q LISPXHIST P 15Q Card P 14Q Window P 3 OpenWindows P 2 ID P 1 CardTotal P 0 File I 1 QuietFlg I 0 self F 21Q LISPXHIST F 22Q RESETVARSLST) aQ OPO[hiol oog &hio W"!W$og ThT_ Og _*Og Og @O_OOh__O_kO&_g_ O hdol Ahiol W"!W$og hg_ O @]g MilL@g X@_g OkN`o`h` g AhiHo h(535Q NC.PrintMsg 521Q NC.DisplayMainMenu 516Q PUTWINDOWPROP 510Q WFROMMENU 445Q FetchMethodOrHelp 433Q FULLNAME 430Q GetValue 410Q FetchMethodOrHelp 376Q ERROR! 367Q RESETRESTORE 354Q Notefile.CloseA0003 332Q NC.PrintMsg 327Q CHARACTER 311Q NC.PrintMsg 306Q CHARACTER 271Q ERROR! 262Q RESETRESTORE 204Q GetValue 172Q GetValue 156Q NCL.CardFromWindow 153Q GETWINDOWUSERPROP 141Q NCL.CardFromWindow 126Q Notefile.CloseA0001 104Q NC.PrintMsg 65Q NC.YesP 62Q NC.AskUser 43Q NC.PrintMsg 40Q CHARACTER 5 OPENWINDOWS) (513Q CLOSEFN 505Q NC.MainMenu 477Q MENU 474Q NC.MainMenu 463Q MENU 460Q NC.MainMenu 442Q ForceNotefileClose 425Q Stream 405Q SaveNextLinkID 362Q ERROR 351Q INTERNAL 255Q ERROR 201Q Notefile 167Q ActiveP 150Q ICONFOR 123Q INTERNAL 57Q Yes) ( 532Q " closed." 467Q "No Open NoteFile" 346Q (Notefile.CloseA0003) 322Q "Closing Notefile ... " 301Q "Done." 120Q (Notefile.CloseA0001) 101Q "Closing and saving active cards ... " 54Q " -- " 50Q "Want to close and save them? " 33Q "There are cards for this notefile still active on the screen.") Notefile.CreateCards D1 (P 13Q Pair P 12Q ID P 11Q CardNumber P 3 Array P 2 CardTotal I 2 OperationMsg I 1 QuietFlg I 0 self) @Hg HkIQ@gJldnng [ Jk" OOA3Odl j+hiBooOoJol O _@]g MOO lL_KOOOO _g OgOhgOhgOhg@hhlNgl tO*Ok_D@(345Q CONCAT 342Q CHARACTER 254Q FetchMethodOrHelp 244Q $! 241Q NCL.ClassNameFromTypeName 213Q NCL.IndexFromNumber 202Q FetchMethodOrHelp 167Q NC.IDFromNumber 161Q NC.PrintMsg 155Q CHARACTER 60Q PutValue 54Q ARRAY 12Q FetchMethodOrHelp) (334Q ACTIVE 313Q Notefile 303Q CardNumber 273Q NCid 262Q Title 251Q NewWithValues 177Q GetCardTypeAndTitle 51Q POINTER 30Q CardsArray 7 GetHighestID) ( 150Q "." 143Q " out of " 135Q "Processing item number " 131Q "") Notefile.ForceNotefileClose D1 (I 0 self) @g @g @g @(33Q CLOSEF 27Q PutValue 20Q GetValue 11Q \UPDATEOF 6 GetValue) (24Q Stream 15Q Stream 3 Stream) () Notefile.GetCardInitialInfoA0001 D1 (NAME ERRORSET P 1 ActualType P 0 ActualID F 2 self F 3 ID F 4 CardType F 5 Ptr F 6 RESETY) Rg o hi  Rg U Rg ` oSo JRg XSooSoH (TRg YooToIoS  Rg Rg SRg hc i(252Q NC.GetRegion 247Q GetValue 237Q GETFILEPTR 234Q GetValue 224Q READC 221Q GetValue 211Q NC.ReportError 206Q CONCAT 153Q READ 150Q GetValue 136Q CONCAT 110Q READ 105Q GetValue 74Q CONCAT 57Q NC.GetIdentifier 51Q GetValue 41Q SETFILEPTR 35Q GetValue 22Q OBTAIN.MONITORLOCK 15Q NC.FetchMonitor 6 GetValue) (244Q Stream 231Q Stream 216Q Stream 145Q Stream 102Q Stream 54Q NC.ItemIdentifier 46Q Stream 32Q Stream 3 Stream) ( 201Q " while reading ID: " 174Q ". Found " 167Q "Type mismatch while reading card info. Expected " 163Q "Notefile.GetCardInitialInfo" 132Q " Found ID: " 125Q "ID mismatch while reading item. Expected ID: " 121Q "NC.GetNoteCard" 71Q " Error in Database file -- incorrect item identifier." 64Q "Notefile.GetCardInitialInfo" 12Q "Notefile.GetCardInitialInfo") Notefile.GetCardInitialInfo D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 CardType I 2 ID I 1 Ptr I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q Notefile.GetCardInitialInfoA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Notefile.GetCardInitialInfoA0001)) Notefile.GetCardTitleA0001 D1 (NAME ERRORSET P 0 ActualID F 1 self F 2 ID F 3 TitlePtr F 4 RESETY) bQg o hi Qg S Qg Qg XRooRoH Qg ci(133Q READ 130Q GetValue 120Q NC.ReportError 115Q CONCAT 67Q READ 64Q GetValue 54Q READ 51Q GetValue 41Q SETFILEPTR 35Q GetValue 22Q OBTAIN.MONITORLOCK 15Q NC.FetchMonitor 6 GetValue) (125Q Stream 61Q Stream 46Q Stream 32Q Stream 3 Stream) ( 111Q " Found ID: " 104Q "ID mismatch while reading item. Expected ID: " 100Q "Notefile.GetCardTitle" 12Q "Notefile.GetCardTitle") Notefile.GetCardTitle D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 TitlePtr I 1 ID I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q Notefile.GetCardTitleA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Notefile.GetCardTitleA0001)) Notefile.GetCardTypeA0001 D1 (NAME ERRORSET P 0 ActualID F 1 self F 2 ID F 3 Ptr F 4 RESETY) uQg o hi Qg S Qg ` oRo Qg XRooRoH Qg ci(156Q READ 153Q GetValue 143Q NC.ReportError 140Q CONCAT 112Q READ 107Q GetValue 77Q NC.ReportError 74Q CONCAT 57Q NC.GetIdentifier 51Q GetValue 41Q SETFILEPTR 35Q GetValue 22Q OBTAIN.MONITORLOCK 15Q NC.FetchMonitor 6 GetValue) (150Q Stream 104Q Stream 54Q NC.ItemIdentifier 46Q Stream 32Q Stream 3 Stream) ( 134Q " Found ID: " 127Q "ID mismatch while reading item. Expected ID: " 123Q "Notefile.GetCardType" 71Q " Error in Database file -- incorrect item identifier." 64Q "Notefile.GetCardType" 12Q "Notefile.GetCardType") Notefile.GetCardType D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 Ptr I 1 ID I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q Notefile.GetCardTypeA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Notefile.GetCardTypeA0001)) Notefile.GetCardTypeAndTitleA0001 D1 (NAME ERRORSET P 3 Status P 2 TitlePtr P 1 Ptr P 0 PtrList F 10Q self F 11Q ID F 12Q Index F 13Q RESETY) jWg o hi WWg XHHKgK+W]g MWIlLW_g OWJlNci(127Q FetchMethodOrHelp 103Q FetchMethodOrHelp 44Q NCL.GetPtrs 41Q GetValue 23Q OBTAIN.MONITORLOCK 16Q NC.FetchMonitor 7 GetValue) (124Q GetCardTitle 100Q GetCardType 65Q ACTIVE 36Q Stream 4 Stream) ( 13Q "Notefile.GetCardTypeAndTitle") Notefile.GetCardTypeAndTitle D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 Index I 1 ID I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q Notefile.GetCardTypeAndTitleA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Notefile.GetCardTypeAndTitleA0001)) Notefile.GetFullFileName D1 (I 0 self) @g (6 GetValue) (3 FullFileName) () Notefile.GetHighestID D1 (I 0 self) @g i l k(17Q SUBATOM 12Q NC.GetNewID 6 GetValue) (3 Stream) () Notefile.GetStream D1 (I 0 self) @g (6 GetValue) (3 Stream) () Notefile.Open D1 (I 2 QuietFlg I 1 Access I 0 self)  Bhiol @g@g Agg @g @g o @g j @g @g @g@g @g @g@g @g @g @g ldj@g@g le @Hg HBolI`o@g g `h@(407Q NC.DisplayMainMenu 371Q CONCAT 366Q LISTGET 360Q UNPACKFILENAME 355Q FULLNAME 352Q GetValue 314Q FetchMethodOrHelp 300Q PutValue 272Q GetValue 250Q GetValue 241Q PutValue 233Q GetValue 222Q GetValue 210Q GetValue 175Q PutValue 170Q GetValue 157Q GetValue 143Q GetValue 132Q GetValue 123Q SETFILEPTR 117Q GetValue 110Q NC.SetMonitor 105Q CREATE.MONITORLOCK 102Q MKATOM 77Q CONCAT 70Q GetValue 61Q GetValue 52Q PutValue 47Q OPENSTREAM 33Q GetValue 17Q NC.PrintMsg 14Q CHARACTER) (401Q MENU 376Q NC.MainMenu 363Q NAME 347Q Stream 337Q MENU 334Q NC.MainMenu 311Q CreateCards 267Q NextLinkID 263Q NextLinkID 245Q NextLinkID 230Q Stream 217Q Stream 205Q Stream 201Q NextLinkID 165Q Stream 154Q Stream 150Q IndexSizeInEntries 140Q Stream 127Q Stream 114Q Stream 65Q FullFileName 56Q Stream 44Q OLD 41Q BOTH 30Q FullFileName 24Q Stream) ( 343Q "NoteFile: " 323Q "Opening NoteFile." 74Q ":LOCK" 7 "Opening ... ") Notefile.QuitAllCards D1 (P 20Q CardItem P 17Q Card P 16Q CardNumber P 2 CardTotal I 2 OperationMsg I 1 QuietFlg I 0 self) @Hg HkI Jk"OOA-Ol j$hiBgooOoJol @\g LOlK_ giO _^g NkM&O_g _OhdilO"l O_g _OilOO_g _OkO Ok_D@g @(342Q PutValue 320Q SETPROPLIST 303Q FetchMethodOrHelp 254Q FetchMethodOrHelp 240Q CONCAT 235Q CHARACTER 210Q FetchMethodOrHelp 166Q FetchMethodOrHelp 130Q FetchMethodOrHelp 117Q NC.PrintMsg 113Q CHARACTER 12Q FetchMethodOrHelp) (337Q CardsArray 300Q GetNCid 251Q Deactivate 205Q Quit 163Q GetActiveP 147Q ACTIVE 125Q CardItemFromNumber 7 GetHighestID) ( 106Q "." 101Q " out of " 73Q "Processing item number " 67Q "") Notefile.SaveNextLinkIDA0001 D1 (NAME ERRORSET F 0 self F 1 ClosingDatabaseFlg F 2 RESETY) Pg hi Q!Pg ldjPgPg k Pg l Pg Pg l l Pg Pg l l Pg Pg l Pg ci(216Q GetValue 206Q BOUT 200Q GetValue 171Q GetValue 161Q BOUT 153Q RSH 146Q GetValue 137Q GetValue 127Q BOUT 121Q RSH 114Q GetValue 105Q GetValue 75Q SETFILEPTR 70Q GetValue 60Q PutValue 53Q GetValue 31Q GetValue 16Q OBTAIN.MONITORLOCK 11Q NC.FetchMonitor 6 GetValue) (213Q NextLinkID 175Q NextLinkID 166Q Stream 143Q NextLinkID 134Q Stream 111Q NextLinkID 102Q Stream 65Q Stream 50Q NextLinkID 44Q NextLinkID 26Q NextLinkID 3 Stream) () Notefile.SaveNextLinkID D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 ClosingDatabaseFlg I 0 self F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ J@(36Q ERROR! 30Q RESETRESTORE 16Q Notefile.SaveNextLinkIDA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (Notefile.SaveNextLinkIDA0001)) SketchSubstance.BringUp D1 (I 2 Title I 1 Window I 0 self F 0 InitialScale) @g hAB@P (22Q SKETCHW.CREATE 16Q GetClassValue 6 GetValue) (3 SubstanceVal) () SketchSubstance.ChangedP D1 (P 7 NewNumber P 6 OldNumber P 0 EPSILON I 1 Window I 0 self) o1@[goYdg iI KkJK@g h@@g h5A2@g A HAd @g "MLh_NO HNiML(177Q ABS 144Q GetValue 135Q SK.REGION.VIEWED 122Q ABS 116Q SCALE.FROM.SKW 112Q GetValue 74Q GetValue 61Q GetValue 42Q FindSuperMethod 31Q OldClass) (141Q RegionViewed 107Q Scale 71Q RegionViewed 56Q Scale 26Q SketchSubstance 13Q ChangedP) ( 17Q (NIL) 3 .0009765626) SketchSubstance.RetrieveFromStream D1 (I 2 Stream I 1 Notefile I 0 self) @gB (12Q PutValue 7 NC.GetSketchSubstance) (3 SubstanceVal) () SketchSubstance.StoreOnStream D1 (P 3 StartPtr P 2 EndPtrLoc P 1 EndPtr P 0 SketchSpecs I 2 Window I 1 Stream I 0 self) @A l[AKl l AKl l AKl A ZAj Aj Aj @g Aid Bd A Bd A BB X:oA A YAJ AIl l AIl l AIl @gA (255Q MAPSKETCHSPECS 244Q BOUT 233Q BOUT 225Q RSH 215Q BOUT 207Q RSH 200Q SETFILEPTR 172Q GETFILEPTR 166Q PRINT 153Q LOCALSPECS.FROM.VIEWER 145Q PRINT 141Q SK.REGION.VIEWED 133Q PRINT 127Q SCALE.FROM.SKW 121Q HPRINT 113Q GetValue 104Q BOUT 76Q BOUT 70Q BOUT 62Q GETFILEPTR 56Q BOUT 45Q BOUT 37Q RSH 27Q BOUT 21Q RSH 6 GETFILEPTR) (251Q NC.PutCachedMap 110Q SubstanceVal) ( 162Q "###ENDSKETCH###") Substance.ChangedP D1 (I 0 self) @g (6 GetValue) (3 DirtyFlg) () Substance.GetSubstanceVal D1 (I 0 self) @g (6 GetValue) (3 SubstanceVal) () Substance.MarkUnchanged D1 (I 0 self) @g @(6 PutValue) (3 DirtyFlg) () Substance.Wrapup D1 (L (0 self)) @NIL NIL () TEditSubstance.BringUp D1 (I 2 Title I 1 Window I 0 self F 0 DefaultFont F 1 MenuFn) #@g Ahg@P g@Q h (40Q TEDIT 30Q GetClassValue 20Q GetClassValue 6 GetValue) (23Q TITLEMENUFN 13Q FONT 3 SubstanceVal) () TEditSubstance.ChangedP D1 (I 0 self) @g (11Q TEDIT.STREAMCHANGEDP 6 GetValue) (3 SubstanceVal) () TEditSubstance.RetrieveFromStream D1 (I 1 Stream I 0 self) @gA (12Q PutValue 7 NC.GetTextSubstance) (3 SubstanceVal) () TEditSubstance.StoreOnStreamA0003 D1 (P 0 PFile I 3 OBL I 2 PC# I 1 PC I 0 CH# F 1 TempStream F 2 Stream F 3 StartPtr) 0AXd# Q ARASAh(23Q FULLNAME 17Q FULLNAME) (47Q PIECE 42Q PIECE 32Q PIECE 6 PIECE) () TEditSubstance.StoreOnStream D1 (P 4 TempFile P 3 TempStream P 2 StartPtr P 1 EndPtrLoc P 0 EndPtr I 2 Window I 1 Stream I 0 self) jA lZAJl l AJl l AJl A YAj Aj Aj g g \ [@g j@g ok @g K AJ L g [d lfKd l K K dnzdnzihAKAjK l AK J l_j,AK K ؾ]N MNl OkٰKj KA A XAI AHl l AHl l AHl L @g g @g g @(546Q TEDIT.STREAMCHANGEDP 540Q GetValue 531Q TEDIT.MAPPIECES 523Q TEXTOBJ 520Q GetValue 511Q DELFILE 506Q CLOSEF 502Q BOUT 471Q BOUT 463Q RSH 453Q BOUT 445Q RSH 436Q SETFILEPTR 430Q GETFILEPTR 423Q COPYBYTES 415Q SETFILEPTR 401Q \BOUT 370Q \BOUT 341Q \DWOUT 334Q \DWIN 326Q COPYBYTES 320Q GETEOFPTR 257Q SETFILEPTR 251Q GETEOFPTR 237Q GETEOFPTR 232Q GETSTREAM 227Q OPENFILE 221Q CLOSEF 215Q SETFILEPTR 210Q TEDIT.PUT.PCTB 204Q TEXTOBJ 201Q GetValue 171Q TEDIT.INSERT 161Q GetValue 142Q TEXTOBJ 137Q GetValue 127Q GETSTREAM 123Q OPENFILE 115Q PACK* 112Q GENSYM 104Q BOUT 76Q BOUT 70Q BOUT 62Q GETFILEPTR 56Q BOUT 45Q BOUT 37Q RSH 27Q BOUT 21Q RSH 6 GETFILEPTR) (543Q CHANGED 535Q SubstanceVal 526Q TEditSubstance.StoreOnStreamA0003 515Q SubstanceVal 224Q INPUT 176Q SubstanceVal 156Q SubstanceVal 145Q TEXTOBJ 134Q SubstanceVal 120Q OUTPUT 107Q {CORE}NC) ( 165Q " ") TEditSubstance.WrapupA0001 D1 (L (3 OBL 2 PC# 1 PC 0 CH#)) AhhNIL (3 PIECE) () TEditSubstance.Wrapup D1 (I 0 self) "@g h,@g g (37Q TEDIT.MAPPIECES 31Q TEXTOBJ 26Q GetValue 11Q TEXTOBJ 6 GetValue) (34Q TEditSubstance.WrapupA0001 23Q SubstanceVal 14Q TEXTOBJ 3 SubstanceVal) () TopLevel.AskCardRegion D1 (I 3 PromptMsg I 2 Height I 1 Width I 0 self) ABBhC (17Q GETBOXREGION 7 GETMOUSEY 4 GETMOUSEX) NIL () TopLevel.AskNotefileName D1 (I 3 NoSuggestFlg I 2 ClearFirstFlg I 1 Msg I 0 self F 0 Prompt) APCh @g Bhi  (27Q MKATOM 24Q NC.AskUser 15Q GetValue) (12Q NotefileNameSuggestion) () TopLevel.MakeNotefileName D1 (I 1 Name I 0 self) 'gAgg b@gghgA A(43Q PutValue 40Q PACKFILENAME 35Q FULLNAME 14Q PACKFILENAME) (31Q BODY 25Q VERSION 22Q NotefileNameSuggestion 11Q NOTEFILE 6 EXTENSION 2 BODY) () TopLevel.OpenNotefile D1 (P 17Q Notefile P 1 FullName P 0 Notefile I 4 Don'tCreateFlg I 3 QuietFlg I 2 Access I 1 FileName I 0 self) v A@[g KoilJbK@]g MAlLbd hiAol hA YqDhioAol hoAol o ooihi  Ahoi A YhioAol @g Oh,g _g _OgAhgIhhlOXd_g _OkOooIo H_g _OBClO@gH@g  H__g OkNIOhO_X(535Q FetchMethodOrHelp 520Q PutValue 514Q GetValue 461Q FetchMethodOrHelp 447Q NC.ReportError 444Q CONCAT 410Q FetchMethodOrHelp 342Q FetchMethodOrHelp 332Q GetObjectRec 304Q GetValue 273Q NC.PrintMsg 267Q CHARACTER 244Q INFILEP 237Q NC.CreateDatabaseFile 217Q NC.YesP 214Q NC.AskUser 175Q CONCAT 165Q CHARACTER 145Q NC.PrintMsg 141Q CHARACTER 113Q INFILEP 105Q NC.PrintMsg 101Q CHARACTER 63Q OPENP 45Q FetchMethodOrHelp 15Q FetchMethodOrHelp) (532Q GetFullFileName 511Q Notefiles 504Q Notefiles 456Q Open 405Q GetStream 361Q FullFileName 352Q FileName 337Q NewWithValues 327Q Notefile 301Q Notefiles 42Q MakeNotefileName 12Q AskNotefileName) ( 441Q " is closed, but a notefile has an open stream on it." 434Q "File " 430Q "TopLevel.OpenNotefile" 262Q "." 255Q "Still unable to find Notefile " 233Q "Opening NoteFile" 205Q "Yes" 201Q " -- " 171Q "Want to create new NoteFile by that name? " 160Q "." 153Q "Unable to find NoteFile " 134Q "." 127Q "Couldn't find NoteFile " 74Q " is an already open file." 23Q "Name of NoteFile to open:") TopLevel.QuitNotefile D1 (I 1 Notefile I 0 self) @ghA@g @(22Q PutValue 17Q LSUBST 14Q GetValue) (11Q Notefiles 3 Notefiles) () NCL.QuitCard D1 (I 0 Window) @ Hg HhilI(15Q FetchMethodOrHelp 3 NCL.CardFromWindow) (12Q Quit) () NCL.GetPtrsA0001 D1 (NAME ERRORSET P 6 EofPtr P 5 PtrList P 4 Status P 3 PropsPtr P 2 TitlePtr P 1 LinksPtr P 0 Ptr F 11Q Stream F 12Q Index F 13Q RESETY) Wo hi WW W dlAgdlFgdlDglSgW W W ظW W W عW W W غW W W ػLHIJKWhW LgM_Mci_NjOMgO(225Q GETEOFPTR 30Q SETFILEPTR 15Q OBTAIN.MONITORLOCK 10Q NC.FetchMonitor) (270Q BADPOINTER 232Q ACTIVE 104Q SPECIAL 73Q DELETED 60Q FREE 45Q ACTIVE) ( 5 "NC.GetPtrs") NCL.GetPtrs D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 Stream I 0 Index F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NCL.GetPtrsA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NCL.GetPtrsA0001)) NCL.IndexFromNumber D1 (L (0 Number)) @l (5 LSH) NIL () NCL.ClassNameFromTypeName D1 (I 0 TypeName) @` @(6 FASSOC) (3 NCL.TypeToClassAssocList) () NCL.CardFromWindow D1 (I 0 Window) @g (6 GETWINDOWUSERPROP) (3 NOTECARDOBJECT) () (PRETTYCOMPRINT LOOPSNOTECARDSCOMS) (RPAQQ LOOPSNOTECARDSCOMS ((* File created by TRIGG) (CLASSES BrowserCard Card DocumentCard FileboxCard GlobalAnchor GraphCard GrapherSubstance Link LinkAnchor LinkIndexCard Notefile PointAnchor SearchCard SketchCard SketchSubstance SpanAnchor Substance TEditSubstance TextCard TopLevel) (METHODS Card.BringUp Card.CollectLinksInCard Card.Deactivate Card.Delete Card.DeleteLinksInCard Card.File Card.GetActiveP Card.GetIndexPtr Card.GetInitialInfoFromStream Card.GetLinksFromStream Card.GetNCid Card.GetPropListFromStream Card.GetPtrsFromStream Card.GetRegionFromStream Card.GetTitleFromStream Card.GetTypeName Card.InsureProperFiling Card.MakeDummyRegion Card.PutLinksToStream Card.PutPropListToStream Card.PutRegionToStream Card.PutRegionToStreamAtCurPtr Card.PutSubstanceToStream Card.PutTitleToStream Card.Quit Card.RegionChangedP Card.Retrieve Card.Store Card.StoreIfNeeded Card.Unfile Card.UpdateLinksInCard GrapherSubstance.BringUp GrapherSubstance.ChangedP GrapherSubstance.RetrieveFromStream GrapherSubstance.StoreOnStream Link.Testfoo Notefile.CardItemFromNumber Notefile.Close Notefile.CreateCards Notefile.ForceNotefileClose Notefile.GetCardInitialInfo Notefile.GetCardTitle Notefile.GetCardType Notefile.GetCardTypeAndTitle Notefile.GetFullFileName Notefile.GetHighestID Notefile.GetStream Notefile.Open Notefile.QuitAllCards Notefile.SaveNextLinkID SketchSubstance.BringUp SketchSubstance.ChangedP SketchSubstance.RetrieveFromStream SketchSubstance.StoreOnStream Substance.ChangedP Substance.GetSubstanceVal Substance.MarkUnchanged Substance.Wrapup TEditSubstance.BringUp TEditSubstance.ChangedP TEditSubstance.RetrieveFromStream TEditSubstance.StoreOnStream TEditSubstance.Wrapup TopLevel.AskCardRegion TopLevel.AskNotefileName TopLevel.MakeNotefileName TopLevel.OpenNotefile TopLevel.QuitNotefile) (FNS NCL.QuitCard NCL.GetPtrs NCL.IndexFromNumber NCL.ClassNameFromTypeName NCL.CardFromWindow) (VARS (NCL.TypeToClassAssocList ( QUOTE ((Text . TextCard) (Graph . GraphCard) (Sketch . SketchCard) (FileBox . FileboxCard) (Browser . BrowserCard) (LinkIndex . LinkIndexCard) (Search . SearchCard) (Document . DocumentCard))))) ( GLOBALVARS NCL.TypeToClassAssocList NCL.CurrentTopLevel) (INSTANCES) (RECORDS NotefileCardsArrayItem)) ) (DEFCLASSES BrowserCard Card DocumentCard FileboxCard GlobalAnchor GraphCard GrapherSubstance Link LinkAnchor LinkIndexCard Notefile PointAnchor SearchCard SketchCard SketchSubstance SpanAnchor Substance TEditSubstance TextCard TopLevel) (DEFCLASS BrowserCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:49")) (Supers GraphCard) ( ClassVariables (DefaultWindowWidth 500) (DefaultWindowHeight 350) (TypeNameOnNotefile Browser))) (DEFCLASS Card (MetaClass Class Edited: (* rht: "30-Jan-85 14:19")) (Supers Object) (ClassVariables ( SubstanceClassName Substance doc (* The class name of the substance for this card type.)) ( DefaultWindowHeight 200 doc (* The height of the generic card's window when first created.)) ( DefaultWindowWidth 300 doc (* The width of a generic card's window when first created.)) ( TypeNameOnNotefile NIL doc (* The atom on the notefile representing this class name.)) (LeftMenuItems (Show/Edit% Properties Title/Sources/Fileboxes Insert% Link Close% and% Save) doc (* The items to appear on this class's title bar left button menus. Items are other class variables.)) ( Show/Edit% Properties (Edit% Property% List Show% Links) ItemValue EditProperties ItemMessage "Edit property list or show links." doc (* The menu item for showing links or editing the property list.)) (Edit% Property% List NIL ItemValue EditProperties ItemMessage "Brings up an editor for the property list of this card." doc (* The menu item for editing the property list.)) (Show% Links NIL ItemValue ShowLinks ItemMessage "Brings up a list of the links to and from this card." doc (* The menu item for showing links)) ( Title/Sources/Fileboxes (Assign% Title Designate% Sources File% in% FileBoxes Unfile% from% Fileboxes Delete% Source) ItemValue EditTitleSourcesFileboxes ItemMessage "Do all of the operations necessary to file this note card in a file box." doc (* The menu item for hacking titles, sources and filing.)) (Assign% Title NIL ItemValue AssignTitle ItemMessage "Assigns a (new) title to this note card." doc (* The menu item for changing the title.)) ( Designate% Sources NIL ItemValue AssignSources ItemMessage "Designate the source(s) of the information in this card." doc (* The menu item for assigning new sources.)) (File% in% FileBoxes NIL ItemValue File ItemMessage "File this note card in one or more file boxes." doc (* The menu item for adding new parent fileboxes. )) (Unfile% from% Fileboxes NIL ItemValue Unfile ItemMessage "Remove this card from one or more of its file boxes." doc (* The menu item for removing parent fileboxes.)) (Delete% Source NIL ItemValue DeleteSource ItemMessage "Delete one of the sources of this card." doc (* The menu item for removing source.)) ( Insert% Link%(s%) (Insert% Link Insert% Links) ItemValue AddLink ItemMessage "Insert a link to another card at the currently selected point in the text." doc (* The menu item for adding link (s) %.)) (Insert% Link NIL ItemValue AddLink ItemMessage "Insert a link to another card at the currently selected point in the text." doc (* The menu item for adding link.)) (Insert% Links NIL ItemValue AddLinks ItemMessage "Insert links to other cards at the currently selected point in the text." doc (* The menu item for adding links.)) (Close (Close% and% Save Close% w/o% Saving Save% in% NoteFile Delete% Card) ItemValue Quit ItemMessage "Close this note card after saving it in the NoteFile." doc (* The menu item for different sorts of closing.)) (Close% and% Save NIL ItemValue Quit ItemMessage "Close this note card after saving it in the NoteFile." doc (* The menu item for closing and saving.)) (Close% w/o% Saving NIL ItemValue QuitWithoutSaving ItemMessage "Close this note card without saving any changes made since the last Save." doc (* The menu item for closing without saving.)) (Save% in% NoteFile NIL ItemValue SaveWithoutClosing ItemMessage "Save this card in the NoteFile but don't close the card." doc (* The menu item for saving without closing)) (Delete% Card NIL ItemValue Delete ItemMessage "Permenantly delete this card from the NoteFile." doc (* The menu item for deleting the card.))) ( InstanceVariables (Title "Untitled" doc (* Title of card)) (NCid NIL doc (* fake id for file)) ( PropList NIL doc (* IV added by TRIGG)) (ToLinks NIL doc (* IV added by TRIGG)) (FromLinks NIL doc (* IV added by TRIGG)) (Substance NIL doc (* IV added by TRIGG)) (Window NIL doc (* IV added by TRIGG)) ( Region NIL doc (* IV added by TRIGG)) (DirtyFlg NIL doc (* IV added by TRIGG)) (Notefile NIL doc (* IV added by TRIGG)) (DefaultLinkDisplayMode NIL doc (* IV added by TRIGG)) (ActiveP NIL doc (* IV added by TRIGG)) (LinksDirtyFlg NIL doc (* Says whether card's links need to be written out.)) ( TitleDirtyFlg NIL doc (* Non-nil if title has changed since last time card was written.)) ( PropListDirtyFlg NIL doc (* Non-nil if proplist has changed since last time card was written.)) ( CardNumber NIL doc (* The index for this card. Used to access the array stored in the notefile object. )) (GlobalLinks NIL doc (* The global links. These should be taken out, since the anchor gives whether global or local.)))) (DEFCLASS DocumentCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:49")) (Supers TextCard) ( ClassVariables (DefaultWindowWidth 335) (DefaultWindowHeight 200) (TypeNameOnNotefile Document))) (DEFCLASS FileboxCard (MetaClass Class Edited: (* rht: "30-Jan-85 14:23")) (Supers TextCard) ( ClassVariables (TypeNameOnNotefile FileBox) (LeftMenuItems (Show/Edit% Properties Title/Sources/Fileboxes Collect% Children Close% and% Save) doc (* The items to appear on this class's title bar left button menus. Items are other class variables.)) (Collect% Children NIL ItemValue CollectChildren ItemMessage "Collect new child cards and fileboxes for this filebox." doc (* The menu item for adding new children.)))) (DEFCLASS GlobalAnchor (MetaClass Class Edited: (* rht: "18-Jan-85 14:43")) (Supers LinkAnchor)) (DEFCLASS GraphCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:58")) (Supers Card) (ClassVariables (DefaultWindowWidth 300) (DefaultWindowHeight 200) (TypeNameOnNotefile Graph doc (* The atom on the notefile representing this class name.)) (SubstanceClassName GrapherSubstance))) (DEFCLASS GrapherSubstance (MetaClass Class Edited: (* rht: "18-Jan-85 14:42")) (Supers Substance) ( ClassVariables (GraphLeftButtonFn NCL.GraphLeftButtonFn doc (* The left button fn passed to SHOWGRAPH. )) (GraphMiddleButtonFn NCL.GraphMiddleButtonFn doc (* The middle button fn passed to SHOWGRAPH.)))) (DEFCLASS Link (MetaClass Class Edited: (* rht: "18-Jan-85 14:40")) (Supers Object) (InstanceVariables (Source **DefaultValue doc (* test for Gregor)))) (DEFCLASS LinkAnchor (MetaClass Class Edited: (* rht: "18-Jan-85 14:41")) (Supers Object)) (DEFCLASS LinkIndexCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:49")) (Supers TextCard) ( ClassVariables (TypeNameOnNotefile LinkIndex))) (DEFCLASS Notefile (MetaClass Class Edited: (* rht: "18-Jan-85 11:10")) (Supers Object) ( InstanceVariables (Stream NIL doc (* The stream for this notefile.)) (FullFileName **DefaultValue doc (* The fullname of the notefile's FileName)) (IndexSizeInEntries NIL doc (* Number of entries in this notefile.)) (NextLinkID NIL doc (* ID number of the next link in this notefile.)) (CardsArray NIL doc (* List of all cards in the notefile. Includes inactive cards, but not deleted ones.)))) (DEFCLASS PointAnchor (MetaClass Class Edited: (* rht: "18-Jan-85 14:43")) (Supers LinkAnchor)) (DEFCLASS SearchCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:49")) (Supers TextCard) ( ClassVariables (TypeNameOnNotefile Search))) (DEFCLASS SketchCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:48")) (Supers Card) ( ClassVariables (DefaultWindowWidth 400) (DefaultWindowHeight 350) (TypeNameOnNotefile Sketch) ( SubstanceClassName SketchSubstance))) (DEFCLASS SketchSubstance (MetaClass Class Edited: (* rht: "18-Jan-85 14:42")) (Supers Substance) ( ClassVariables (InitialScale NIL doc (* The initial scale passed to SKETCHW.CREATE))) ( InstanceVariables (Scale NIL doc (* Something that sketch wants.)) (RegionViewed NIL doc (* Something that sketch wants.)))) (DEFCLASS SpanAnchor (MetaClass Class Edited: (* rht: "18-Jan-85 14:43")) (Supers LinkAnchor)) (DEFCLASS Substance (MetaClass Class Edited: (* rht: "18-Jan-85 14:41")) (Supers Object) ( InstanceVariables (SubstanceVal NIL doc (* This slot contains the actual substance, say TEdit stream, graph, etc.)) (DirtyFlg **DefaultValue doc (* Inidicates whether the substance has been written since last chane.)))) (DEFCLASS TEditSubstance (MetaClass Class Edited: (* rht: "18-Jan-85 14:41")) (Supers Substance) ( ClassVariables (DefaultFont NIL doc (* The default tedit font passed to TEDIT.)) (TitleMenuFn **DefaultValue doc (* The TITLEMENUFN passed as a prop to TEDIT.)))) (DEFCLASS TextCard (MetaClass Class Edited: (* rht: "25-Jan-85 16:48")) (Supers Card) (ClassVariables (TypeNameOnNotefile Text) (SubstanceClassName TEditSubstance))) (DEFCLASS TopLevel (MetaClass Class Edited: (* rht: "22-Jan-85 15:09")) (Supers Object) ( InstanceVariables (Notefiles NIL doc (* List of Notefiles currently open.)) (NotefileNameSuggestion NIL doc (* used to prompt user when asking for a notefile name.)) (UncachingNotCompletedFlg **DefaultValue doc (* If non-nil, then crashed during last notefile close. Need to finish uncaching IDs.)))) (METH Card BringUp (Region/Position) (* * This brings up a card. If window already exists, then flash. Otherwise, retrieve the card, create a window, and return it.)) (METH Card CollectLinksInCard NIL (*)) (METH Card Deactivate (ClearTitle) (* * Clear all junk off the card.)) (METH Card Delete NIL (*)) (METH Card DeleteLinksInCard NIL (*)) (METH Card File NIL (*)) (METH Card GetActiveP NIL (* * Is this card active?)) (METH Card GetIndexPtr NIL (* * Return the stream index ptr for this card number.)) (METH Card GetInitialInfoFromStream (Stream Ptr) (* * Get the preliminary junk for a notecard. Check to make sure type agrees and return pointer.)) (METH Card GetLinksFromStream (Stream) (* * Grab the links for this card from the notefile. Stream's pointer is assumed to be set properly.)) (METH Card GetNCid NIL (* * Just return the NCid slot)) (METH Card GetPropListFromStream (Stream) (* * Fetch and set the card's proplist. Stream's pointer is assumed to be posistioned properly.)) (METH Card GetPtrsFromStream (Stream) (* * Return the list of pointers into the notefile for a given card. First element of the list is the card's status.)) (METH Card GetRegionFromStream (Stream) (* * Retrieve the card's region from the stream. Stream pointer should be all set.)) (METH Card GetTitleFromStream (Stream) (* * Retrieve the card's title from the notefile stream. Stream's pointer is assumed to be properly positioned.)) (METH Card GetTypeName NIL (* * Return the type name which should be written to the notefile to represent this class.)) (METH Card InsureProperFiling NIL (* New method template)) (METH Card MakeDummyRegion NIL (* * Make a region with width and height corresponding to the default size of window's for this type of card.)) (METH Card PutLinksToStream (Stream) (* * Put the links of card onto notefile stream.)) (METH Card PutPropListToStream (Stream) (* * Put the proplist of card ID onto notefile stream.)) (METH Card PutRegionToStream (Stream) (* * Put out the region to the stream, first positioning the stream properly.)) (METH Card PutRegionToStreamAtCurPtr (Stream) (* * Put the card's region down to the stream at the current stream ptr.)) (METH Card PutSubstanceToStream (Stream UpdateUpdateListFlg) (* * This dumps the initial junk like ID and type, dumps the substance, and then updates the index with the new pointer.)) (METH Card PutTitleToStream (Stream) (* * Put the title of card ID onto notefile stream.)) (METH Card Quit (Don'tSave InsideOfWindowClose ClearTitle) (* * Close this card and its window.)) (METH Card RegionChangedP NIL (* * Return non-nil if the card has a window and it's region has changed.)) (METH Card Retrieve NIL (*)) (METH Card Store NIL (*)) (METH Card StoreIfNeeded NIL (* * Store any parts of the card that are dirty back in the notefile.)) (METH Card Unfile NIL (*)) (METH Card UpdateLinksInCard NIL NIL) (METH GrapherSubstance BringUp (Window Title) (* * Bring up this graph in the given window.)) (METH GrapherSubstance ChangedP NIL (* * Right now, always have to write out graph, even if hasn't really changed, because grapher doesn't tell us when changes were made.)) (METH GrapherSubstance RetrieveFromStream (Notefile Stream) (* * Set the substance's SubstanceVal by fetching a Graph substance from the notefile.)) (METH GrapherSubstance StoreOnStream (Stream Window) (* * Put Graph to notefile stream.)) (METH Link Testfoo (increment) (* New method template)) (METH Notefile CardItemFromNumber (CardNumber) (* * Use CardNumber as index into array to retrieve the pair for that card. First element is pointer to object, second is status litatom.)) (METH Notefile Close (QuietFlg) (* * Closes this notefile.)) (METH Notefile CreateCards (QuietFlg OperationMsg) (* * Create objects for each card in the notefile and cache titles. Create an array containing pointers to card objects and card status. Array indices are card ID numbers.)) (METH Notefile ForceNotefileClose NIL (* * Really close the database, i.e.. bypass the ADVISE on CLOSEF that prevents closing of the database.)) (METH Notefile GetCardInitialInfo (Ptr ID CardType) NIL) (METH Notefile GetCardTitle (ID TitlePtr) (* * Retrieve a card's title from the notefile.)) (METH Notefile GetCardType (ID Ptr) (* * Get a card's type from the notefile.)) (METH Notefile GetCardTypeAndTitle (ID Index) (* * Retrieve the type and title of ID from the notefile.)) (METH Notefile GetFullFileName NIL (* * Just return the full name of the file this notefile is for.)) (METH Notefile GetHighestID NIL (* New method template)) (METH Notefile GetStream NIL (* * Return the stream for this notefile.)) (METH Notefile Open (Access QuietFlg) (* * Open this notefile, creating objects for each active card and caching titles. Returns non-nil if successful.)) (METH Notefile QuitAllCards (QuietFlg OperationMsg) (* * Quit any remaining active cards and remove pointers to them from the notefile.)) (METH Notefile SaveNextLinkID (ClosingDatabaseFlg) (* * Save the next link id info for DatabaseStream on the database)) (METH SketchSubstance BringUp (Window Title) (* * Bring up this sketch in the given window with given title.)) (METH SketchSubstance ChangedP (Window) (* * Is this sketch substance dirty?)) (METH SketchSubstance RetrieveFromStream (Notefile Stream) (* * Set the substance's SubstanceVal by fetching a Sketch substance from the notefile.)) (METH SketchSubstance StoreOnStream (Stream Window) (* Put the sketch substance for card ID to the database. Store the global sketch descriptor, the scale and region viewed for ID and any cached bit maps.)) (METH Substance ChangedP NIL (* * Has the substance been changed since last write?)) (METH Substance GetSubstanceVal NIL (* * Just return the value of the substance.)) (METH Substance MarkUnchanged NIL (* * Note that the substance is no longer dirty.)) (METH Substance Wrapup NIL (* * Called when quitting a card after saving substance. Do nothing is the generic case.)) (METH TEditSubstance BringUp (Window Title) (* * This brings up tedit in the given window.)) (METH TEditSubstance ChangedP NIL (* * Return non-nil if this substance is dirty.)) (METH TEditSubstance RetrieveFromStream (Stream) (* * Set the substance's SubstanceVal by fetching a TEdit stream from the notefile stream.)) (METH TEditSubstance StoreOnStream (Stream Window) (* * Put this substance on the notefile stream.)) (METH TEditSubstance Wrapup NIL (* * Stuff to do when quitting a tedit card after it's been saved.)) (METH TopLevel AskCardRegion (Width Height PromptMsg) (* * Get from user a region to bring up the card in.)) (METH TopLevel AskNotefileName (Msg ClearFirstFlg NoSuggestFlg) (* New method template)) (METH TopLevel MakeNotefileName (Name) (* * Attach the .NOTEFILE extension.)) (METH TopLevel OpenNotefile (FileName Access QuietFlg Don'tCreateFlg) (* * Open a notefile: create a notefile object and send it the open message.)) (METH TopLevel QuitNotefile (Notefile) (* * Remove this notefile from the list of "active" notefiles.) ) (RPAQQ NCL.TypeToClassAssocList ((Text . TextCard) (Graph . GraphCard) (Sketch . SketchCard) (FileBox . FileboxCard) (Browser . BrowserCard) (LinkIndex . LinkIndexCard) (Search . SearchCard) (Document . DocumentCard))) (RECORD NotefileCardsArrayItem (CardObject . CardStatus)) (PUTPROPS LOOPSNOTECARDS COPYRIGHT ("Xerox Corporation" 1985)) NIL