(FILECREATED "29-Apr-87 16:38:51" ("compiled on " {QV}1.3K>LIBRARY>NCFILECARD.;17) "12-Nov-85 14:59:23" recompiled changes: NC.EditFileSubstance NC.GetFileFromUser NC.MakeFileCardCore in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "29-Apr-87 16:38:33" {QV}1.3K>LIBRARY>NCFILECARD.;17 17316 changes to: (FNS NC.GetFileFromUser NC.MakeFileCardCore NC.EditFileSubstance) previous date: " 5-Apr-87 20:48:54" {QV}1.3K>LIBRARY>NCFILECARD.;16) NC.MakeFileCardA0001 D1 (NAME ERRORSET F 0 Card F 1 Title F 2 NoDisplayFlg F 3 ReturnValue) PQR ci(5 NC.MakeFileCardCore) NIL () NC.MakeFileCard D1 (P 0 ReturnValue I 2 NoDisplayFlg I 1 Title I 0 Card) "oi H@ @ h(36Q CLOSEW 33Q NC.FetchWindow 25Q OPENWP 22Q NC.FetchWindow 12Q NC.MakeFileCardA0001) NIL ( 6 (NC.MakeFileCardA0001)) NC.EditFileSubstance D1 (P 11Q \NF P 6 TextStream P 5 Type P 4 NewFileName P 3 Title P 2 TEditProcess P 1 TEditWindow P 0 Region I 2 RegionOrPosition I 1 FileDesignator I 0 Card) i @ Y|@B X@ [@ ]HKhi Yd Igg IM IM A IiAol ooohIhdi  OAgg bdl ! BI@B l_jI OkٰI .ZI I ooohIhdi  VIi b@A @ @d @i Ig@d @gA AIhIi@ Od`I h@O _O @Ig ^ Ng@ @g@ I(545Q NC.PutProp 542Q NC.FileCardFileVersionNumber 532Q STREAMPROP 522Q NC.SetTextStream 516Q GETWINDOWUSERPROP 506Q TEDIT 503Q NC.MakeTEditPropsList 470Q NC.NoteFileFromNoteFileUID 453Q CLOSEW 415Q NC.PutProp 404Q PUTWINDOWPROP 401Q NC.SetTitle 376Q NC.FileCardTitle 364Q NC.SetTitleDirtyFlg 356Q NC.SetTitle 353Q NC.FileCardTitle 345Q NC.MarkCardDirty 340Q NC.SetSubstance 330Q NC.GetFileFromUser 321Q NC.YesP 316Q NC.AskUser 267Q TTY.PROCESS 262Q RESTART-PROCESS-OF-TEDIT-WINDOW 251Q \INSUREWINDOW 236Q FLASHW 222Q SHAPEW 217Q NC.DetermineDisplayRegion 206Q TOTOPW 200Q CLOSEF 166Q OPENSTREAM 152Q NC.YesP 147Q NC.AskUser 121Q NC.PrintMsg 115Q CHARACTER 75Q INFILEP 71Q NC.InstallTextTitleBarMiddleMenu 64Q NC.InstallTitleBarLeftMenu 57Q WINDOWADDPROP 45Q NC.AttachPromptWindowOffScreen 40Q CREATEW 30Q NC.RetrieveType 23Q NC.RetrieveTitle 16Q NC.DetermineDisplayRegion 6 NC.FetchWindow) (536Q FileVersion 526Q NoteCardObject 513Q TEXTSTREAM 463Q CardObject 443Q NoteFileTYPE# 427Q CardObject 411Q FileName 371Q TITLE 163Q NEW 160Q OUTPUT 54Q NC.FileCardShrinkFn 51Q SHRINKFN) ( 305Q "Yes" 301Q " -- " 275Q "Do you want to respecify the file name?" 136Q "Yes" 132Q " -- " 126Q "Do you want to create the file?" 110Q " is no longer a file.") NC.FileSubstanceDirtyP D1 (P 0 TextStream I 0 Card) @ Xd (14Q TEDIT.STREAMCHANGEDP 6 NC.FetchTextStream) NIL () NC.GetFileSubstance D1 (I 3 VersionNumber I 2 Stream I 1 Length I 0 Card) B (3 READ) NIL () NC.MarkFileSubstanceDirty D1 (P 1 TextObj P 0 Window I 1 ResetFlg I 0 Card) F@ 1Hd;g Y2AhiI,jhJId,J IJkj[,Kjh(62Q \TEDIT.WINDOW.TITLE 57Q \TEDIT.ORIGINAL.WINDOW.TITLE 20Q GETWINDOWUSERPROP 3 NC.FetchWindow) (35Q TEXTOBJ 15Q TEXTOBJ) () NC.PutFileSubstance D1 (I 1 Stream I 0 Card) @A @ A j(14Q PRINT 10Q NC.FetchSubstance 4 NC.FileCardPutFile) NIL () NC.QuitFileSubstance D1 (P 4 TextStreamChanged P 3 TextStream P 2 PromptWindow P 1 Window P 0 Card I 0 WindowOrTextStreamOrCard) :@ AH [H Yd"dgg K K LZJ H (67Q NC.SetTextStream 62Q CLOSEW 47Q TEXTOBJ 42Q TEDIT.QUIT 35Q WINDOWDELPROP 17Q NC.FetchWindow 12Q NC.FetchTextStream 3 NC.CoerceToCard) (52Q TEXTOBJ 32Q NC.QuitCard 27Q CLOSEFN) () NC.FileCardPutFile D1 (P 2 TextStream P 1 Window P 0 Card I 2 QuittingFlg I 1 DatabaseStream I 0 WindowOrCard) <@ !H Zd-d 'JH H YIgH HgH (71Q NC.PutProp 66Q NC.FileCardFileVersionNumber 55Q PUTWINDOWPROP 52Q NC.FileCardTitle 40Q NC.FetchWindow 34Q TEDIT.PUT 31Q NC.FetchSubstance 22Q TEDIT.STREAMCHANGEDP 12Q NC.FetchTextStream 3 NC.CoerceToCard) (62Q FileVersion 46Q TITLE) () NC.FileCardFileVersionNumber D1 (I 0 Card) @ , g (24Q FILENAMEFIELD 16Q FULLNAME 6 TEXTOBJ 3 NC.FetchTextStream) (21Q VERSION 11Q TEXTOBJ) () NC.FileCardTitle D1 (P 0 FileName I 0 Card) $@ Hg oHg o (41Q CONCAT 30Q FILENAMEFIELD 15Q FILENAMEFIELD 3 NC.FetchSubstance) (25Q EXTENSION 12Q NAME) ( 36Q "" 21Q ".") NC.FetchTextStream D1 (I 0 Card) @g (6 NC.FetchUserDataProp) (3 NoteCardTextStream) () NC.GetFileFromUser D1 (P 1 FullFileName P 0 FileName I 2 FirstTry I 1 DontClearPromptFlg I 0 Window)  ooBAh@ihi Xd YghgI Hg Y#@iHol ol @i \oI ooi@hdi !ghgHgg Xdl ! "oooi@hdi  @AB @i (265Q NC.ClearMsg 260Q NC.GetFileFromUser 250Q NC.YesP 245Q NC.AskYesOrNo 216Q PACKFILENAME 213Q CLOSEF 202Q OPENSTREAM 157Q NC.AskYesOrNo 136Q CONCAT 124Q NC.GetFileFromUser 116Q NC.PrintMsg 112Q CHARACTER 101Q CHARACTER 62Q FULLNAME 50Q PACKFILENAME 33Q INFILEP 26Q NC.AskUser) (177Q NEW 174Q OUTPUT 170Q BODY 164Q VERSION 57Q NEW 44Q BODY 40Q VERSION) ( 234Q "No" 230Q " -- " 224Q "Do you want to specify another file name?" 146Q "Yes" 142Q " ? " 132Q "Do you want me to create " 105Q "Please try again." 74Q " is not a legal file name." 12Q ": " 6 "Enter file name") NC.MakeFileCardCore D1 (P 5 \NF P 4 Type P 3 Window P 1 TextStream P 0 FileName I 2 NoDisplayFlg I 1 Title I 0 Card) 0B@Aohi @ K KL KL Kgg hKhKi@Md`@M ZJ @Kg Yg@ K X7I H @H Kg@d @gH @g@ K K@hi hX@H @d @(317Q NC.SetTitle 314Q NC.FileCardTitle 307Q NC.SetSubstance 301Q NC.GetFileFromUser 274Q NC.DeleteNoteCard 264Q GIVE.TTY.PROCESS 260Q NC.PutProp 255Q NC.FileCardFileVersionNumber 245Q NC.PutProp 235Q PUTWINDOWPROP 232Q NC.SetTitle 227Q NC.FileCardTitle 216Q NC.SetSubstance 211Q TEDIT.INCLUDE 205Q TEXTOBJ 176Q NC.GetFileFromUser 172Q STREAMPROP 160Q BLOCK 152Q NC.SetTextStream 147Q GETWINDOWUSERPROP 137Q TEDIT 134Q NC.MakeTEditPropsList 123Q NC.NoteFileFromNoteFileUID 63Q WINDOWADDPROP 51Q NC.InstallTextTitleBarMiddleMenu 44Q NC.InstallTitleBarLeftMenu 37Q NC.AttachPromptWindowOffScreen 30Q NC.RetrieveType 24Q NC.MakeNewCardWindow) (251Q FileVersion 241Q FileName 222Q TITLE 166Q NoteCardObject 144Q TEXTSTREAM 117Q CardObject 107Q NoteFileTYPE# 74Q CardObject 60Q NC.FileCardShrinkFn 55Q SHRINKFN) ( 17Q "Creating File card ...") NC.SetTextStream D1 (I 1 TextStream I 0 Card) @gA A(7 NC.SetUserDataProp) (3 NoteCardTextStream) () NC.FileCardShrinkFn D1 (P 3 IconTitle P 2 Card P 1 Icon P 0 OldIconTitle I 0 W) Y@g @g @ #I@g @kL@g Hol oJ [KhdI @gK h(125Q PUTWINDOWPROP 114Q ICONTITLE 102Q CONCAT 77Q NC.FetchTitle 67Q CHARACTER 54Q GETWINDOWUSERPROP 36Q GETWINDOWUSERPROP 21Q NC.CoerceToCard 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (121Q NoteCardsIconTitle 51Q ICON 33Q ICONFN 12Q ICON 3 NoteCardsIconTitle) ( 73Q "NC: " 62Q "File Card") NC.AddFileCardType D1 NIL aggooooog0`ddgoIHhZH&Jhg`hh (136Q NC.AddCardType) (121Q NC.FileCardIcon 116Q LinkIconAttachedBitMap 57Q Quit 45Q MENU 42Q TEDIT.DEFAULT.MENU 34Q MiddleButtonMenuItems 5 NoteCard 2 File) ( 66Q (Quit (FUNCTION NC.QuitCard) "Close this note card after saving it in the NoteFile.") 31Q (DisplayedInMenuFlg T) 25Q (LinkAnchorModesSupported Global) 21Q (DefaultHeight 764Q) 15Q (DefaultWidth 536Q) 11Q ((MakeFn NC.MakeFileCard) (EditFn NC.EditFileSubstance) (QuitFn NC.QuitFileSubstance) (GetFn NC.GetFileSubstance) (PutFn NC.PutFileSubstance) (MarkDirtyFn NC.MarkFileSubstanceDirty) (DirtyPFn NC.FileSubstanceDirtyP))) NCAddStub.FileCard D1 NIL ggghog`hh (35Q NC.AddCardTypeStub) (23Q NC.FileCardIcon 20Q LinkIconAttachedBitMap 10Q NCFILECARD 5 NoteCard 2 File) ( 15Q (DisplayedInMenuFlg T)) (PRETTYCOMPRINT NCFILECARDCOMS) (RPAQQ NCFILECARDCOMS ((* * Globalvars from elsewhere) (GLOBALVARS NC.DefaultFont TEDIT.DEFAULT.MENU NC.FileCardIcon) (* * Substance functions) (FNS NC.MakeFileCard NC.EditFileSubstance NC.FileSubstanceDirtyP NC.GetFileSubstance NC.MarkFileSubstanceDirty NC.PutFileSubstance NC.QuitFileSubstance NC.FileCardPutFile) (* * Utilities) (FNS NC.FileCardFileVersionNumber NC.FileCardTitle NC.FetchTextStream NC.GetFileFromUser NC.MakeFileCardCore NC.SetTextStream NC.FileCardShrinkFn) (BITMAPS NC.FileCardIcon) (* * Add file card type to CardTypes list) (FNS NC.AddFileCardType) (P (NC.AddFileCardType)) (* * Hang an ExportSubstanceFn off the File litatom.) (P (PUTPROP (QUOTE File) (QUOTE ExportSubstanceFn) (FUNCTION OPENTEXTSTREAM))) (FNS NCAddStub.FileCard))) (RPAQ NC.FileCardIcon (READBITMAP)) (21 18 "OOOOOH@@" "OOOOOH@@" "OOOOOH@@" "OOOOOH@@" "H@@@@H@@" "H@@@@H@@" "KMBANH@@" "JABA@H@@" "JABA@H@@" "JABA@H@@" "KIBALH@@" "JABA@H@@" "JABA@H@@" "JABA@H@@" "JACMNH@@" "H@@@@H@@" "H@@@@H@@" "OOOOOH@@") (NC.AddFileCardType) (PUTPROP (QUOTE File) (QUOTE ExportSubstanceFn) (FUNCTION OPENTEXTSTREAM)) (PUTPROPS NCFILECARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL