(FILECREATED "20-Apr-87 15:07:59" ("compiled on " {QV}1.3K>NEXT>RHTPATCH244.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "20-Apr-87 15:07:45" {QV}1.3K>NEXT>RHTPATCH244.;1 2697 changes to: (VARS RHTPATCH244COMS) (FNS NC.BrowserCreateCard)) (LOAD? (NC.FindFile (QUOTE NCBROWSERCARD))) NC.BrowserCreateCardA0001 D1 (NAME ERRORSET P 4 \NF P 0 OpInProgress F 5 GraphCard F 6 RESETVARSLST F 7 Window F 10Q Card F 11Q Title F 12Q NC.LockLock F 13Q NC.CardBusyList F 14Q Link F 15Q GraphNodeID F 16Q Graph F 17Q NC.BrowserContentsLinkLabel F 20Q RESETY)  W U 1HgUgUg hUg hVc gUgUg hUgo hVc gULd`UL YIhULd`UL ZJgULd`UL [Kg  hVc oWchVc W HHguWWgUhddi cdtc cWohoW hWiW o UW UW cU WW hW WU oH gc i(603Q NC.PrintOperationInProgressMsg 573Q NC.CoerceToInterestedWindow 561Q NODECREATE 556Q CURSORPOSITION 550Q NC.MakeLinkIcon 540Q NC.MarkCardDirty 531Q NC.GetBrowserNodeID 522Q NC.GetBrowserHashArray 513Q NC.SetTitle 502Q NC.AskUser 466Q STREQUAL 445Q ALLOW.BUTTON.EVENTS 437Q NC.RetrieveTitle 420Q NC.MakeLink 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) (607Q DON'T 430Q Link 407Q *New% Card* 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) ( 577Q "Create card from browser" 510Q "Untitled" 461Q "Untitled" 454Q "Title of new card: " 341Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 121Q "Create card from browser") NC.BrowserCreateCard D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 Title P 3 Card P 2 GraphNodeID P 1 Link P 0 GraphCard I 1 Window I 0 Graph F 10Q LISPXHIST F 11Q RESETVARSLST) -A AW!Wog hg_ ON(50Q ERROR! 42Q RESETRESTORE 27Q NC.BrowserCreateCardA0001 3 NC.CoerceToCard) (35Q ERROR 24Q INTERNAL) ( 21Q (NC.BrowserCreateCardA0001)) (PRETTYCOMPRINT RHTPATCH244COMS) (RPAQQ RHTPATCH244COMS ((* * Fix to bug #518: Titling from browser doesn't spawn mouse. Added a protected card operation wrapper in NC.BrowserCreateCard as well as call to ALLOW.BUTTON.EVENTS.) ( DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE NCBROWSERCARD))))) (* * Change to NCBROWSERCARD) (FNS NC.BrowserCreateCard))) (PUTPROPS RHTPATCH244 COPYRIGHT ("Xerox Corporation" 1987)) NIL