(FILECREATED "25-Mar-87 17:16:36" ("compiled on " {QV}1.3K>NEXT>RHTPATCH225.;3) "12-Nov-85 14:59:23" recompiled changes: NC.GetFileFromUser NC.MakeFileCardCore NC.DeleteNoteCard in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "25-Mar-87 17:16:08" {QV}1.3K>NEXT>RHTPATCH225.;3 11443 changes to: (VARS RHTPATCH225COMS) (FNS NC.GetFileFromUser NC.MakeFileCardCore NC.DeleteNoteCard) previous date: "25-Mar-87 16:25:10" {QV}1.3K>NEXT>RHTPATCH225.;1) (LOAD? (NC.FindFile (QUOTE NCFILECARD))) 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.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 (270Q NC.ClearMsg 263Q NC.GetFileFromUser 253Q NC.YesP 250Q NC.AskYesOrNo 221Q PACKFILENAME 216Q CLOSEF 205Q OPENSTREAM 162Q NC.YesP 157Q NC.AskYesOrNo 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) ( 237Q "No" 233Q " -- " 227Q "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 Card)  B@Ao Zd@ Jgg hJhg`ggggh @Jg YJ X7I H @H Jg@d @gH @g@ J J@hi hX@H @d @(257Q NC.SetTitle 254Q NC.FileCardTitle 247Q NC.SetSubstance 241Q NC.GetFileFromUser 234Q NC.DeleteNoteCard 224Q GIVE.TTY.PROCESS 220Q NC.PutProp 215Q NC.FileCardFileVersionNumber 205Q NC.PutProp 175Q PUTWINDOWPROP 172Q NC.SetTitle 167Q NC.FileCardTitle 156Q NC.SetSubstance 151Q TEDIT.INCLUDE 145Q TEXTOBJ 136Q NC.GetFileFromUser 127Q BLOCK 122Q NC.SetTextStream 117Q GETWINDOWUSERPROP 107Q TEDIT 50Q WINDOWADDPROP 36Q NCP.SetUpTitleBar 33Q NC.RetrieveType 25Q NC.MakeNewCardWindow) (211Q FileVersion 201Q FileName 162Q TITLE 114Q TEXTSTREAM 75Q DON'T 72Q PROMPTWINDOW 67Q NC.TEditMenuFn 64Q TITLEMENUFN 61Q NC.DefaultFont 56Q FONT 45Q NC.FileCardShrinkFn 42Q SHRINKFN) ( 22Q "Creating File card ...") NC.EditFileSubstance D1 (P 4 NewFileName P 3 Title P 2 TEditProcess P 1 TEditWindow P 0 Region I 2 RegionOrPosition I 1 FileDesignator I 0 Card) >`@ Yo@B X@ [HK Ydgg I@ A IiAol ooohIhdi  MAgg bdl ! BI@B l]jI MkٰI .ZI I ooohIhdi  tIi b@A @ @d @i Ig@d @gA AIhg`ggggh @Ig @g@ II h(472Q CLOSEW 464Q NC.PutProp 461Q NC.FileCardFileVersionNumber 451Q NC.SetTextStream 446Q GETWINDOWUSERPROP 436Q TEDIT 376Q NC.PutProp 365Q PUTWINDOWPROP 362Q NC.SetTitle 357Q NC.FileCardTitle 345Q NC.SetTitleDirtyFlg 337Q NC.SetTitle 334Q NC.FileCardTitle 326Q NC.MarkCardDirty 321Q NC.SetSubstance 311Q NC.GetFileFromUser 302Q NC.YesP 277Q NC.AskUser 250Q TTY.PROCESS 243Q RESTART-PROCESS-OF-TEDIT-WINDOW 232Q \INSUREWINDOW 220Q FLASHW 205Q SHAPEW 202Q NC.DetermineDisplayRegion 171Q TOTOPW 163Q CLOSEF 151Q OPENSTREAM 135Q NC.YesP 132Q NC.AskUser 104Q NC.PrintMsg 100Q CHARACTER 60Q INFILEP 54Q NCP.SetUpTitleBar 51Q NC.RetrieveType 44Q WINDOWADDPROP 31Q CREATEW 23Q NC.RetrieveTitle 16Q NC.DetermineDisplayRegion 6 NC.FetchWindow) (455Q FileVersion 443Q TEXTSTREAM 424Q DON'T 421Q PROMPTWINDOW 416Q NC.TEditMenuFn 413Q TITLEMENUFN 410Q NC.DefaultFont 405Q FONT 372Q FileName 352Q TITLE 146Q NEW 143Q OUTPUT 41Q NC.FileCardShrinkFn 36Q SHRINKFN) ( 266Q "Yes" 262Q " -- " 256Q "Do you want to respecify the file name?" 121Q "Yes" 115Q " -- " 111Q "Do you want to create the file?" 73Q " is no longer a file.") 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.DeleteNoteCardA0001 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 Card F 6 RESETVARSLST F 7 InterestedWindow F 10Q NC.LockLock F 11Q NC.CardBusyList F 12Q QuietFlg F 13Q RESETY F 14Q NoConfirmFlg F 15Q DontClearFlg)  W U 1HgUgUg hUg hVc gUgUg hUgo hVc gULd`UL YIhULd`UL ZJgULd`UL [Kg  hVc oWchVc W HHg}U "Wiol n Wi hihUWo \W!oooWhW Wi 9Ugi UhWW UWW WU oH gci(613Q NC.PrintOperationInProgressMsg 603Q NC.FetchWindow 571Q NC.DeleteNoteCardInternal 560Q NC.SeverAllLinks 545Q NC.UIDPutProp 525Q NC.ClearMsg 517Q NC.AskYesOrNo 463Q NC.CheckForNotReadOnly 443Q NC.ClearMsg 434Q DISMISS 425Q NC.PrintMsg 422Q CHARACTER 404Q NC.TopLevelCardP 366Q RELEASE.MONITORLOCK 344Q THIS.PROCESS 325Q NC.NoteFileProp 321Q NC.NoteFileProp 305Q NC.NoteFileFromNoteFileUID 252Q THIS.PROCESS 236Q NC.NoteFileFromNoteFileUID 172Q NC.NoteFileFromNoteFileUID 124Q NC.SetUserDataProp 104Q NC.FetchUserDataProp 56Q NC.SetUserDataProp 53Q THIS.PROCESS 37Q NC.FetchUserDataProp 11Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (617Q DON'T 541Q AboutToBeDeletedFlg 534Q CardObject 375Q US 316Q CardProcessInProgressList 301Q CardObject 271Q NoteFileTYPE# 256Q CardObject 247Q CardProcessInProgressList 232Q CardObject 222Q NoteFileTYPE# 207Q CardObject 166Q CardObject 156Q NoteFileTYPE# 143Q CardObject 137Q NC.ResetCardProcessInProgress 115Q OperationInProgress 101Q OperationInProgress 75Q OperationInProgress 71Q NC.SetUserDataProp 50Q ProcessInProgress 34Q ProcessInProgress 30Q ProcessInProgress 24Q NC.SetUserDataProp) ( 607Q "Delete Note Card" 505Q "Yes" 501Q " -- " 475Q "Are you sure you want to delete this?" 460Q "Can't delete cards from a " 415Q "You cannot delete this FileBox." 341Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 121Q "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)) (PRETTYCOMPRINT RHTPATCH225COMS) (RPAQQ RHTPATCH225COMS ((* * Fixes bug #487: FileCard prompt window gets screwed up during reshaping. Also cleaned up various antiquities in the code. Also adds new args to NC.DeleteNoteCard. Makes minor fix to NC.PutProp.) (DECLARE: COPY FIRST (P (LOAD? (NC.FindFile (QUOTE NCFILECARD))))) (* * Changes to NCFILECARD) (FNS NC.FileCardTitle NC.GetFileFromUser NC.MakeFileCardCore NC.EditFileSubstance) (* * These should be the ONLY globalvars in NCFILECARD. The others need to be removed.) (GLOBALVARS NC.DefaultFont TEDIT.DEFAULT.MENU NC.FileCardIcon) (* * Changes to NCCARDS) (FNS NC.PutProp NC.DeleteNoteCard))) (PUTPROPS RHTPATCH225 COPYRIGHT ("Xerox Corporation" 1987)) NIL