(FILECREATED "24-Mar-87 00:00:45" ("compiled on " {QV}1.3K>NEXT>RHTPATCH221.;6) "12-Nov-85 14:59:23" recompiled changes: NC.MaxPromptWindowWidth NC.GETPROMPTWINDOW NC.AttachPromptWindow NC.SelectNoteCards NC.SelectionMenusWhenSelectedFn NC.MakeFilingLinks NC.PrintMsg NC.AssignTitle NC.QuitCard NC.CheckFiling NC.InsureProperFiling in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "23-Mar-87 23:59:48" {QV}1.3K>NEXT>RHTPATCH221.;6 56078 changes to: (VARS RHTPATCH221COMS) (FNS NC.SelectNoteCards NC.MakeFilingLinks NC.AssignTitle NC.QuitCard NC.CheckFiling NC.InsureProperFiling NC.GETPROMPTWINDOW NC.SelectionMenusWhenSelectedFn NC.AttachPromptWindow NC.PrintMsg NC.MaxPromptWindowWidth) previous date: "21-Mar-87 19:11:04" {QV}1.3K>NEXT>RHTPATCH221.;1) NC.MaxPromptWindowWidth D1 (P 4 Width P 3 Right P 2 RightSpace P 1 Left P 0 WindowRegion I 0 MainWindow) 7@ AH\HY`IL[Z`IIKJlL `l(55Q MAX 3 \INSUREWINDOW) (60Q WBorder 37Q SCREENWIDTH 23Q SCREENWIDTH) () NC.GETPROMPTWINDOWA0001A0002 D1 (P 0 windowDescription I 0 DescriptionList F 1 PWINDOW) +@$dHQHH HgH h(42Q PUTWINDOWPROP 25Q ATTACHWINDOW) (33Q PASSTOMAINCOMS) () NC.GETPROMPTWINDOWA0001 D1 (NAME ERRORSET L (0 NIL) P 5 WA P 4 window F 6 PWINDOW F 7 PWINDOWREGION F 10Q RESETVARSLST F 11Q RESETY F 12Q WIDTH F 13Q HEIGHT F 14Q MAINWINDOW F 15Q AttachWindowPositionOnEdge) gV QHcIhhhWcV Vg Vg Vg Vg VWWWWW VWgWg ci\g ]gLMLg hL J KhZHXnK&(217Q DETACHWINDOW 207Q GETWINDOWUSERPROP 166Q GETWINDOWUSERPROP 152Q ATTACHWINDOW 132Q SHAPEW 100Q PUTWINDOWPROP 70Q PUTWINDOWPROP 60Q PUTWINDOWPROP 50Q PUTWINDOWPROP 40Q FREEATTACHEDWINDOW 6 ATTACHEDWINDOWS) (204Q PASSTOMAINCOMS 173Q TOP 163Q WHEREATTACHED 146Q LOCALCLOSE 141Q TOP 75Q OPENFN 65Q PASSTOMAINCOMS 55Q MINSIZE 45Q MAXSIZE 2 NC.GETPROMPTWINDOWA0001A0002) () NC.GETPROMPTWINDOW D1 (P 16Q RESETZ P 15Q RESETY P 14Q LISPXHIST P 12Q AttachWindowPositionOnEdge P 11Q PWinWidth P 10Q PWINDOW.PWINDOW P 7 OBSCUREDHEIGHT P 6 HEIGHT P 5 WIDTH P 4 PWINDOWREGION P 3 PWINDOW P 2 MAINWINDOWREGION P 1 PWINDOWMINWIDTH P 0 PWINDOWPROP I 4 MINWIDTH I 3 DONTCREATE I 2 FONT I 1 #LINES I 0 MAINWINDOW F 17Q LISPXHIST F 20Q RESETVARSLST) D``lD b@g @g @  DIk _JO`gJOJ`gg_CHHjdOJ AkbBd@ b ^hhdi iK BK Kgg K@gOg @gKA Kgg j`K _Ok_@jO KgkN KgnN @gDk K K[ K@gOg Kg _lKgnd Kgkd AHkhK OJ K NL ML CW!W og h O g_ OHA(707Q ERROR! 700Q RESETRESTORE 665Q CLOSEW 656Q FREEATTACHEDWINDOW 645Q NC.GETPROMPTWINDOWA0001 620Q EQP 607Q EQP 573Q \INSUREWINDOW 566Q MAX 554Q HEIGHTIFWINDOW 550Q FONTHEIGHT 545Q DSPFONT 527Q PUTWINDOWPROP 514Q PUTWINDOWPROP 474Q GETWINDOWUSERPROP 464Q ATTACHWINDOW 445Q OPENWP 436Q OPENW 432Q PUTWINDOWPROP 417Q PUTWINDOWPROP 403Q PUTWINDOWPROP 370Q RELMOVEW 334Q \INSUREWINDOW 323Q PUTWINDOWPROP 310Q PUTWINDOWPROP 275Q ATTACHWINDOW 256Q PUTWINDOWPROP 243Q DSPFONT 235Q DSPSCROLL 227Q CREATEW 213Q HEIGHTIFWINDOW 207Q FONTHEIGHT 202Q DSPFONT 165Q MAX 64Q WIDTHIFWINDOW 45Q \INSUREWINDOW 41Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 20Q MIN) (673Q ERROR 642Q INTERNAL 521Q MINSIZE 504Q MAXSIZE 471Q PROMPTWINDOW 460Q LOCALCLOSE 453Q TOP 423Q PROMPTWINDOWMINWIDTH 407Q MAXSIZE 375Q MINSIZE 330Q SCREENHEIGHT 320Q \PROMPTWINDOW.OPENFN 315Q OPENFN 302Q PROMPTWINDOW 271Q LOCALCLOSE 264Q TOP 253Q NILL 250Q PAGEFULLFN 134Q RIGHT 130Q CENTER 123Q SCREENWIDTH 103Q LEFT 76Q SCREENWIDTH 36Q PROMPTWINDOWMINWIDTH 27Q PROMPTWINDOW 10Q WBorder 5 SCREENWIDTH) ( 637Q (NC.GETPROMPTWINDOWA0001)) NC.AttachPromptWindow D1 (I 4 DontCreate I 3 Font I 2 Height I 1 MinWidth I 0 MainWindow) 9@6An,bBl " 164Q "Enter the title for this card" 120Q "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 NC.LockLock F 15Q NC.CardBusyList F 16Q RESETY F 17Q LISPXHIST)  W W QHgWgWg hWg hWcgWgWg hWgo hWcgWNd`WN YIhWNd`WN ZJgWNd`WN [Kg  hWcoWchWcW HHgpWNd`WN \L*WglMWg hWWiW.oW o W W 4WWho WWho Wi ic"Wg ]W WW(SW c*W( c,W*W,,W"WWho WWho W ic"W ,W"WWho WWho W ic"W ,W"WWho WWho W ic"W GW"WWho WWho W2! W og hg_ OW"WWhl o W WOd`WO \L*WglMWOd`WO ^N*_WglOW W2Whol Wdi WW oH gc0i(1574Q NC.PrintOperationInProgressMsg 1564Q NC.FetchWindow 1551Q NC.ClearMsg 1537Q NC.PrintMsg 1534Q CHARACTER 1513Q NC.SetNewCardFlg 1447Q NC.NoteFileFromNoteFileUID 1353Q NC.NoteFileFromNoteFileUID 1307Q NC.FetchNewCardFlg 1301Q NC.PrintMsg 1272Q CHARACTER 1251Q ERROR! 1242Q RESETRESTORE 1227Q NC.CardSaveFnA0001A0008 1205Q NC.PrintMsg 1167Q NC.PrintMsg 1144Q NC.FetchLinksDirtyFlg 1132Q NC.PutPropList 1124Q NC.PrintMsg 1106Q NC.PrintMsg 1063Q NC.FetchPropListDirtyFlg 1051Q NC.PutTitle 1043Q NC.PrintMsg 1025Q NC.PrintMsg 1002Q NC.FetchTitleDirtyFlg 770Q NC.PutRegion 762Q NC.PrintMsg 744Q NC.PrintMsg 673Q \INSUREWINDOW 661Q NC.FetchRegion 646Q NC.FetchBeingDeletedFlg 637Q NC.MarkCardDirty 622Q NC.PutMainCardData 613Q NC.PrintMsg 575Q NC.PrintMsg 555Q NC.FetchNewCardFlg 547Q NC.CardDirtyP 541Q NC.PrintMsg 531Q NC.FetchTitle 477Q NC.CheckForNotReadOnly 441Q NC.FetchType 420Q RELEASE.MONITORLOCK 375Q THIS.PROCESS 355Q NC.NoteFileProp 351Q NC.NoteFileProp 335Q NC.NoteFileFromNoteFileUID 275Q THIS.PROCESS 261Q NC.NoteFileFromNoteFileUID 210Q NC.NoteFileFromNoteFileUID 134Q NC.SetUserDataProp 113Q NC.FetchUserDataProp 62Q NC.SetUserDataProp 57Q THIS.PROCESS 42Q NC.FetchUserDataProp 12Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (1600Q DON'T 1477Q TITLE 1465Q NoteFileDevice 1460Q NoteFile 1442Q CardObject 1430Q NoteFileTYPE# 1414Q CardObject 1401Q FROMLINKS 1371Q NoteFileDevice 1364Q NoteFile 1346Q CardObject 1334Q NoteFileTYPE# 1320Q CardObject 1235Q ERROR 1224Q INTERNAL 634Q RESET 444Q WhenSavedFn 427Q US 346Q CardProcessInProgressList 330Q CardObject 316Q NoteFileTYPE# 302Q CardObject 272Q CardProcessInProgressList 254Q CardObject 242Q NoteFileTYPE# 226Q CardObject 203Q CardObject 171Q NoteFileTYPE# 155Q CardObject 150Q NC.ResetCardProcessInProgress 125Q OperationInProgress 110Q OperationInProgress 103Q OperationInProgress 76Q NC.SetUserDataProp 54Q ProcessInProgress 37Q ProcessInProgress 32Q ProcessInProgress 25Q NC.SetUserDataProp) ( 1570Q "Save Card" 1527Q "Done." 1276Q "Nothing changed. " 1221Q (NC.CardSaveFnA0001A0008) 1202Q "links, " 1164Q "Saving " 1121Q "proplist, " 1103Q "Saving " 1040Q "title, " 1022Q "Saving " 757Q "region, " 741Q "Saving " 610Q "substance, " 572Q "Saving " 535Q ": Checking ... " 524Q "" 474Q "Can't save cards in " 372Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 131Q "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) 6@ AH YBbW!Wog hg_ ON(61Q ERROR! 53Q RESETRESTORE 40Q NC.CardSaveFnA0001 12Q NC.FetchWindow 3 NC.CoerceToCard) (46Q ERROR 35Q INTERNAL) ( 32Q (NC.CardSaveFnA0001)) NC.CheckTitle D1 (P 0 Title I 1 InterestedWindow I 0 Card F 1 NC.ForceTitlesFlg) HA@ bQ(@ XHoAiol @ihA Q@ @hoA i(103Q NC.AssignTitle 70Q NC.RetrieveTitle 61Q NC.AssignTitle 52Q NC.PrintMsg 47Q CHARACTER 22Q NC.RetrieveTitle 5 NC.FetchWindow) NIL ( 77Q "Untitled" 42Q "This note card has no title." 31Q "Untitled") NC.CheckFilingA0001 D1 (NAME ERRORSET P 5 \NF P 0 OpInProgress F 6 Card F 7 RESETVARSLST F 10Q InterestedWindow F 11Q NC.LockLock F 12Q NC.CardBusyList F 13Q RESETY F 14Q NC.ForceFilingFlg) W V AHgVgVg hVg hWcgVgVg hVgo hWcgVMd`VM YIhVMd`VM ZJgVMd`VM [Kg  hWcoWchWcW HHgV zWV cWVoV ol W bWioV ol ol VdMd`VM \L iV oH gci(622Q NC.PrintOperationInProgressMsg 612Q NC.FetchWindow 602Q NC.HookToOrphanCard 564Q NC.NoteFileFromNoteFileUID 527Q NC.PrintMsg 523Q CHARACTER 512Q CHARACTER 501Q NC.RetrieveTitle 464Q NC.MakeFilingLinks 457Q CONCAT 454Q CHARACTER 443Q NC.RetrieveTitle 423Q NC.FetchWindow 412Q NC.CardNeedsFilingP 372Q RELEASE.MONITORLOCK 347Q THIS.PROCESS 327Q NC.NoteFileProp 323Q NC.NoteFileProp 307Q NC.NoteFileFromNoteFileUID 254Q THIS.PROCESS 240Q NC.NoteFileFromNoteFileUID 174Q NC.NoteFileFromNoteFileUID 125Q NC.SetUserDataProp 105Q NC.FetchUserDataProp 56Q NC.SetUserDataProp 53Q THIS.PROCESS 37Q NC.FetchUserDataProp 11Q NC.CardCheckOpInProgress 4 OBTAIN.MONITORLOCK) (626Q DON'T 575Q NoteFile 560Q CardObject 550Q NoteFileTYPE# 535Q CardObject 401Q US 320Q CardProcessInProgressList 303Q CardObject 273Q NoteFileTYPE# 260Q CardObject 251Q CardProcessInProgressList 234Q CardObject 224Q NoteFileTYPE# 211Q CardObject 170Q CardObject 160Q NoteFileTYPE# 145Q CardObject 141Q NC.ResetCardProcessInProgress 116Q OperationInProgress 102Q OperationInProgress 76Q OperationInProgress 72Q NC.SetUserDataProp 50Q ProcessInProgress 34Q ProcessInProgress 30Q ProcessInProgress 24Q NC.SetUserDataProp) ( 616Q "Filing" 516Q "It is being filed in the ToBeFiled FileBox." 505Q ") is not currently filed in a FileBox." 475Q "This card (" 447Q ") is not currently filed in a FileBox." 437Q "This card (" 344Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 122Q "Filing") NC.CheckFiling D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 InterestedWindow I 0 Card F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q NC.CheckFilingA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (NC.CheckFilingA0001)) NC.InsureProperFiling D1 (I 1 InterestedWindow I 0 Card) @ @A @A g(17Q NC.CheckFiling 11Q NC.CheckTitle 3 NC.FetchBeingDeletedFlg) (24Q CANCELLED) () (PRETTYCOMPRINT RHTPATCH221COMS) (RPAQQ RHTPATCH221COMS ((* * Fixes bug #282: cards getting whipped around horizontally by their prompt windows. Also a variety of other fixes, changes, rewrites. Mostly grappling with the vagaries of ATTACHEDWINDOWS.) (* * New stuff for NCINTERFACE) (FNS NC.MaxPromptWindowWidth) (* * Change to NCINTERFACE) (FNS NC.GETPROMPTWINDOW NC.AttachPromptWindow NC.SelectNoteCards NC.SelectionMenusWhenSelectedFn) (* * Change to NCLINKS) (FNS NC.MakeFilingLinks) (* * New stuff for NCUTILITIES) (GLOBALVARS NC.PrintMsgFont) (INITVARS (NC.PrintMsgFont (FONTCREATE (QUOTE HELVETICA) 10) )) (* * Change to NCUTILITIES) (FNS NC.PrintMsg) (* * Change to NCCARDS) (FNS NC.AssignTitle NC.QuitCard NC.CardSaveFn NC.CheckTitle NC.CheckFiling NC.InsureProperFiling) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA NC.PrintMsg))))) (RPAQ? NC.PrintMsgFont (FONTCREATE (QUOTE HELVETICA) 10)) (PUTPROPS RHTPATCH221 COPYRIGHT ("Xerox Corporation" 1987)) NIL