(FILECREATED " 8-Oct-85 19:14:28" ("compiled on " {QV}RELEASE1.2I>LIBRARY>NCFILESUBSTANCE.;8) "19-Mar-85 14:34:17" recompiled changes: NC.EditFileSubstance NC.MakeFileCardCore NC.FileCardShrinkFn in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 8-Oct-85 19:13:12" {QV}RELEASE1.2I>LIBRARY>NCFILESUBSTANCE.;8 19521 changes to: (VARS NCFILESUBSTANCECOMS) (FNS NC.EditFileSubstance NC.MakeFileCardCore NC.FileCardShrinkFn) previous date: "27-Aug-85 17:57:38" {QV}RELEASE1.2I>LIBRARY>NCFILESUBSTANCE.;7) NC.MakeFileCardA0001 D1 (NAME ERRORSET F 0 ID 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 ID) #oi H@ @ h(37Q CLOSEW 34Q NC.FetchWindow 26Q OPENWP 23Q NC.FetchWindow 12Q NC.MakeFileCardA0001) NIL ( 6 (NC.MakeFileCardA0001)) NC.EditFileSubstance D1 (P 4 NewFileName P 3 Title P 2 TEditProcess P 1 TEditWindow P 0 Region I 2 Region/Position I 1 FileDesignator I 0 ID) J`@ Y@B X@ [HK Ydg@ Igg Ig Ig A IiAol ooohIhdi  @Agg bdl .ZvI l]jI MkٰJ IooohIhdi  uIi b@A @ @d @i Ig@d @gA` @i AIhg`ggh @Ig @g@ II h(506Q CLOSEW 500Q NC.PutProp 475Q NC.FileCardFileVersionNumber 465Q NC.SetTextStream 462Q GETWINDOWUSERPROP 452Q TEDIT 422Q NC.SetPropListDirtyFlg 414Q NC.PutProp 400Q PUTWINDOWPROP 375Q NC.SetTitle 372Q NC.FileCardTitle 360Q NC.SetTitleDirtyFlg 352Q NC.SetTitle 347Q NC.FileCardTitle 341Q NC.MarkCardDirty 334Q NC.SetSubstance 324Q NC.GetFileFromUser 315Q NC.YesP 312Q NC.AskUser 263Q TTY.PROCESS 251Q FLASHW 236Q TOTOPW 223Q \INSUREWINDOW 215Q CLOSEF 211Q BOUT 201Q OPENSTREAM 165Q NC.YesP 162Q NC.AskUser 134Q NC.PrintMsg 130Q CHARACTER 110Q INFILEP 104Q PUTWINDOWPROP 101Q NC.FileCardMiddleButtonMenu 72Q PUTWINDOWPROP 67Q NC.FileCardLeftButtonMenu 60Q PUTWINDOWPROP 46Q PUTWINDOWPROP 35Q CREATEW 27Q NC.FetchTitle 22Q NC.DetermineDisplayRegion 6 NC.FetchWindow) (471Q FileVersion 457Q TEXTSTREAM 442Q NC.TEditMenuFn 437Q TITLEMENUFN 434Q NC.DefaultFont 431Q FONT 411Q PSA.Database 405Q FileName 365Q TITLE 176Q NEW 173Q OUTPUT 76Q NoteCardsMiddleButtonMenu 64Q NoteCardsLeftButtonMenu 55Q NC.FileCardShrinkFn 52Q SHRINKFN 42Q NoteCardID) ( 301Q "Yes" 275Q " -- " 271Q "Do you want to respecify the file name?" 151Q "Yes" 145Q " -- " 141Q "Do you want to create the file?" 123Q " is no longer a file.") NC.FileCopySubstance D1 (P 4 ToStartPtr P 3 FromEndPtr P 2 FromStartPtr P 1 EndPtrLoc P 0 EndPtr I 2 ToStream I 1 FromStream I 0 ID) PA A A ZA A A [B l\BLl l BLl l BLl B YBj Bj Bj ABJK B XBI BHl l BHl l BHl i(221Q BOUT 210Q BOUT 202Q RSH 172Q BOUT 164Q RSH 155Q SETFILEPTR 147Q GETFILEPTR 143Q COPYBYTES 134Q BOUT 126Q BOUT 120Q BOUT 112Q GETFILEPTR 106Q BOUT 75Q BOUT 67Q RSH 57Q BOUT 51Q RSH 36Q GETFILEPTR) NIL () NC.FileSubstanceDirtyP D1 (P 0 TextStream I 0 ID) @ Xd (14Q TEDIT.STREAMCHANGEDP 6 NC.FetchTextStream) NIL () NC.GetFileSubstance D1 (I 0 DatabaseStream) @ @ @ @ @ @ @ (24Q READ) NIL () NC.MarkFileSubstanceDirty D1 (P 1 TextObj P 0 Window I 1 ResetFlg I 0 ID) %@ Hdg dAhikj,h(20Q GETWINDOWUSERPROP 3 NC.FetchWindow) (25Q TEXTOBJ 15Q TEXTOBJ) () NC.PutFileSubstance D1 (P 2 EndPtrLoc P 1 EndPtr P 0 StartPtr I 1 DatabaseStream I 0 ID) 0@A A lXAHl l AHl l AHl A ZAj Aj Aj @ A A YAJ AIl l AIl l AIl h(177Q BOUT 166Q BOUT 160Q RSH 150Q BOUT 142Q RSH 133Q SETFILEPTR 125Q GETFILEPTR 121Q PRINT 115Q NC.FetchSubstance 111Q BOUT 103Q BOUT 75Q BOUT 67Q GETFILEPTR 63Q BOUT 52Q BOUT 44Q RSH 34Q BOUT 26Q RSH 13Q GETFILEPTR 7 NC.FileCardPutFile) NIL () NC.QuitFileSubstance D1 (P 4 TextStreamChanged P 3 TextStream P 2 PromptWindow P 1 Window P 0 ID I 0 WindowOrTextStreamOrID) ?@ AH [H Yd"dgg K K LZJ H H h(73Q NC.DeactivateCard 67Q NC.SetTextStream 62Q CLOSEW 47Q TEXTOBJ 42Q TEDIT.QUIT 35Q WINDOWDELPROP 17Q NC.FetchWindow 12Q NC.FetchTextStream 3 NC.CoerceToID) (52Q TEXTOBJ 32Q NC.QuitCard 27Q CLOSEFN) () NC.FileCardPutFile D1 (P 2 TextStream P 1 Window P 0 ID I 2 QuittingFlg I 1 DatabaseStream I 0 WindowOrID) ;@ !H Zd JH H YIgH HgH h(67Q NC.PutProp 64Q NC.FileCardFileVersionNumber 53Q PUTWINDOWPROP 50Q NC.FileCardTitle 36Q NC.FetchWindow 31Q TEDIT.PUT 26Q NC.FetchSubstance 17Q TEDIT.STREAMCHANGEDP 12Q NC.FetchTextStream 3 NC.CoerceToID) (60Q FileVersion 44Q TITLE) () NC.FileCardFileVersionNumber D1 (I 0 ID) @ , g (24Q FILENAMEFIELD 16Q FULLNAME 6 TEXTOBJ 3 NC.FetchTextStream) (21Q VERSION 11Q TEXTOBJ) () NC.FileCardLeftButtonMenu D1 NIL o (6 \TEDIT.CREATEMENU) NIL ( 3 ((Show/Edit% Properties (FUNCTION NC.EditProperties) "Brings up an editor for the property list of this card." (SUBITEMS (Edit% Property% List (FUNCTION NC.EditProperties) "Brings up an editor for the property list of this card.") (Show% Links (FUNCTION NC.ShowPointers) "Brings up a list of the links to and from this card."))) (Title/Sources/FileBoxes (FUNCTION (LAMBDA (TextStream) (NC.AssignTitle TextStream) (NC.AssignSources TextStream) (NC.FileNoteCard TextStream))) "Do all of the operations necessary to file this note card in a file box." (SUBITEMS (Assign% Title (FUNCTION NC.AssignTitle) "Assigns a (new) title to this note card.") (Designate% Sources (FUNCTION NC.AssignSources) "Designate the source(s) of the information in this card.") (File% in% FileBoxes (FUNCTION NC.AddParents) "File this note card in one or more file boxes.") (Unfile% from% FileBoxes (FUNCTION NC.UnfileNoteCard) "Remove this card from one or more of its file boxes.") (Delete% Source (FUNCTION NC.DeleteSource) "Delete one of the sources of this card."))) (Close% and% Save (FUNCTION NC.QuitCard) "Close this note card after saving it in the NoteFile." (SUBITEMS (Close% and% Save (FUNCTION NC.QuitCard) "Close this note card after saving it in the NoteFile.") (Close% w/o% Saving (FUNCTION NC.QuitWithoutSaving) "Close this note card without saving any changes made since the last Save.") (Save% in% NoteFile (FUNCTION NC.CardSaveFn) "Save this card in the NoteFile but don't close the card.") (Delete% Card (FUNCTION NC.DeleteNoteCards) "Permenantly delete this card from the NoteFile."))))) NC.FileCardMiddleButtonMenu D1 NIL 8ho``Hho dgHX(46Q \TEDIT.CREATEMENU 43Q DREMOVE) (55Q Annotate 17Q MENU 14Q TEDIT.DEFAULT.MENU 7 NC.AnnoFlg) ( 36Q ((Advanced% Editing% Menu (FUNCTION \TEDIT.EXPANDED.MENU) "Brings up the menu for the advanced editing commands.") (Change% Font (FUNCTION NC.\TEDIT.LOOKS) "Changes the font of the selected text.") (Hardcopy (FUNCTION TEDIT.HARDCOPY) "Send a copy to the default printer.")) 4 (Restart% Editor (FUNCTION NC.ResetTEdit) "Resets and restarts the editor for this Card/Box.")) NC.FileCardTitle D1 (P 0 FileName I 0 ID) $@ Hg oHg o (41Q CONCAT 30Q FILENAMEFIELD 15Q FILENAMEFIELD 3 NC.FetchSubstance) (25Q EXTENSION 12Q NAME) ( 36Q "" 21Q ".") NC.FetchTextStream D1 (L (0 ID)) @gNIL (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 aoI ooi@hdi  #ghgHgg Xdl "oooi@hdi  @AB @@ (273Q REMOVEPROMPTWINDOW 265Q NC.GetFileFromUser 255Q NC.YesP 252Q NC.AskUser 223Q PACKFILENAME 220Q CLOSEF 214Q BOUT 205Q OPENSTREAM 162Q NC.YesP 157Q NC.AskUser 136Q CONCAT 124Q NC.GetFileFromUser 116Q NC.PrintMsg 112Q CHARACTER 101Q CHARACTER 62Q FULLNAME 50Q PACKFILENAME 33Q INFILEP 26Q NC.AskUser) (202Q NEW 177Q OUTPUT 173Q BODY 167Q VERSION 57Q NEW 44Q BODY 40Q VERSION) ( 241Q "No" 235Q " -- " 231Q "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 2 Window P 1 TextStream P 0 FileName I 2 NoDisplayFlg I 1 Title I 0 ID)  B@ Ao Zdg@ Jg Jg Jgg hJhg`ggh @Jg YJ XHI H @H @d Jg@d @gH` @g@ J JI @ Jg hX@H @d @(332Q NC.SetTitle 327Q NC.FileCardTitle 322Q NC.SetSubstance 314Q NC.GetFileFromUser 307Q PUTWINDOWPROP 277Q NC.SetTextStream 272Q TEDIT.QUIT 264Q GIVE.TTY.PROCESS 257Q NC.PutProp 254Q NC.FileCardFileVersionNumber 243Q NC.PutProp 227Q PUTWINDOWPROP 224Q NC.SetTitle 221Q NC.FileCardTitle 207Q NC.SetTitle 204Q NC.FileCardTitle 176Q NC.SetSubstance 170Q TEDIT.INCLUDE 164Q TEXTOBJ 155Q NC.GetFileFromUser 146Q BLOCK 141Q NC.SetTextStream 136Q GETWINDOWUSERPROP 126Q TEDIT 77Q PUTWINDOWPROP 65Q PUTWINDOWPROP 62Q NC.FileCardMiddleButtonMenu 53Q PUTWINDOWPROP 50Q NC.FileCardLeftButtonMenu 41Q PUTWINDOWPROP 30Q CREATEW 16Q NC.DetermineDisplayRegion) (304Q NoteCardID 250Q FileVersion 240Q PSA.Database 234Q FileName 214Q TITLE 133Q TEXTSTREAM 116Q NC.TEditMenuFn 113Q TITLEMENUFN 110Q NC.DefaultFont 105Q FONT 74Q NC.FileCardShrinkFn 71Q SHRINKFN 57Q NoteCardsMiddleButtonMenu 45Q NoteCardsLeftButtonMenu 35Q NoteCardID) ( 25Q "Creating File card ...") NC.SetTextStream D1 (I 1 TextStream I 0 ID) A@gA @g (21Q REMPROP 11Q PUTPROP) (16Q NoteCardTextStream 5 NoteCardTextStream) () NC.FileCardShrinkFn D1 (P 3 IconTitle P 2 ID 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.CoerceToID 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (121Q NoteCardsIconTitle 51Q ICON 33Q ICONFN 12Q ICON 3 NoteCardsIconTitle) ( 73Q "NC: " 62Q "File Card") NC.AddFileSubstanceType D1 NIL nggghgghgghgghgghgghgghgghhoogghh (153Q NC.AddSubstanceType) (141Q Global 136Q SubstanceLinkAnchorModesSupported 107Q NC.FileSubstanceDirtyP 104Q SubstanceDirtyPFn 76Q NC.MarkFileSubstanceDirty 73Q MarkSubstanceDirtyFn 65Q NC.FileCopySubstance 62Q CopySubstanceFn 54Q NC.PutFileSubstance 51Q PutSubstanceFn 43Q NC.GetFileSubstance 40Q GetSubstanceFn 32Q NC.QuitFileSubstance 27Q QuitSubstanceFn 21Q NC.EditFileSubstance 16Q EditSubstanceFn 10Q NC.MakeFileCard 5 CreateSubstanceFn 2 FILE) ( 133Q (SubstanceDefaultHeight 764Q) 127Q (SubstanceDefaultWidth 536Q)) (PRETTYCOMPRINT NCFILESUBSTANCECOMS) (RPAQQ NCFILESUBSTANCECOMS ((* * Globalvars from elsewhere) (GLOBALVARS NC.DefaultFont PSA.Database NC.DeletedLinkImageObject NC.NoDeleteImageFns NC.AnnoFlg TEDIT.DEFAULT.MENU) (* * Substance functions) (FNS NC.MakeFileCard NC.EditFileSubstance NC.FileCopySubstance NC.FileSubstanceDirtyP NC.GetFileSubstance NC.MarkFileSubstanceDirty NC.PutFileSubstance NC.QuitFileSubstance NC.FileCardPutFile) (* * Utilities) (FNS NC.FileCardFileVersionNumber NC.FileCardLeftButtonMenu NC.FileCardMiddleButtonMenu NC.FileCardTitle NC.FetchTextStream NC.GetFileFromUser NC.MakeFileCardCore NC.SetTextStream NC.FileCardShrinkFn) (* * Add file substance type to SubstanceTypes list) (FNS NC.AddFileSubstanceType) (P (NC.AddFileSubstanceType)))) (NC.AddFileSubstanceType) (PUTPROPS NCFILESUBSTANCE COPYRIGHT ("Xerox Corporation" 1985)) NIL