(FILECREATED " 8-Oct-85 23:13:42" ("compiled on " {QV}RELEASE1.2I>NCTEXTSUBSTANCE.;18) "19-Mar-85 14:34:17" recompiled changes: NC.BringUpTEditCard NC.ResetTEdit NC.ResetTEditProcess NC.MakeTEditPropsList in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 8-Oct-85 23:13:01" {QV}RELEASE1.2I>NCTEXTSUBSTANCE.;18 28893 changes to: ( VARS NCTEXTSUBSTANCECOMS) (FNS NC.ResetTEditProcess NC.ResetTEdit NC.BringUpTEditCard NC.MakeTEditPropsList) previous date: " 8-Oct-85 15:57:51" {QV}RELEASE1.2I>NCTEXTSUBSTANCE.;15) NC.BringUpTEditCard D1 (P 4 TextStreamDirtyFlg P 3 Title P 2 TEditProcess P 1 TEditWindow P 0 Region I 2 Region/Position I 1 TextStream I 0 ID) z`A YµN@B X@ [HKhi Ydgg Ig@ Ig @ \AIhI L“@ I É.Z²®I ¿l]jñ™I ¿MkÙ°ôJ I(166Q TTY.PROCESS 154Q FLASHW 141Q TOTOPW 130Q \INSUREWINDOW 123Q NC.MarkCardDirty 115Q TEDIT 112Q NC.MakeTEditPropsList 102Q NC.CardDirtyP 76Q PUTWINDOWPROP 73Q NC.MakeTEditMiddleMenu 64Q PUTWINDOWPROP 61Q NC.MakeTEditLeftMenu 56Q NC.FetchType 46Q WINDOWADDPROP 33Q CREATEW 23Q NC.FetchTitle 16Q NC.DetermineDisplayRegion 6 WINDOW.FROM.TEDIT.THING) (70Q NoteCardsMiddleButtonMenu 52Q NoteCardsLeftButtonMenu 43Q NC.TextCardShrinkFn 40Q SHRINKFN) () NC.CollectReferencesInText D1 (P 12Q ImageObjectDecriptor P 3 Links P 2 DirtyFlg P 1 ActualLink P 0 Substance I 4 ReturnLocationsFlg I 3 ReturnLinkIconsFlg I 2 DatabaseStream I 1 CheckAndDeleteFlg I 0 ID F 13Q NC.DeletedLinkImageObject) ¶ @ QH g A Nµ OdJ_ ¹Aµi°GœIdA”¿i°8IB ’i°/OWɼdL¿WɽdM¿WÉ¿iºh²5C²D¤O°CœD˜OO‹C¨D–IO€I_¿OµOh__¿N^±ÿkO&_¿°ô(100Q NC.ValidLinkP 45Q NC.FetchLinkFromLinkIcon 20Q TEDIT.LIST.OF.OBJECTS 12Q TEXTOBJ 3 NC.FetchSubstance) (151Q IMAGEOBJ 134Q IMAGEOBJ 123Q IMAGEOBJ 114Q IMAGEOBJ 15Q NC.LinkIconImageObjP) () NC.MakeTEditLeftMenu D1 (I 0 NoteCardType) @gð¤oƒo (21Q \TEDIT.CREATEMENU) (3 FileBox) ( 16Q ((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.") (File% in% FileBoxes (FUNCTION NC.AddParents) "File this FileBox in new FileBox(es).") (Add% Global% Link (FUNCTION NC.AddGlobalLinkToCard) "Add a global link emanating from this FileBox." (SUBITEMS (Add% Global% Link (FUNCTION NC.AddGlobalLinkToCard) "Add a global link emanating from this FileBox.") (Add% Global% Links (FUNCTION NC.AddGlobalLinksToCard) "Add global links emanating from this FileBox."))) (Assign% Title (FUNCTION NC.AssignTitle) "Assign a new title to this FileBox.") (Put% Cards% Here (FUNCTION NC.FileBoxCollectChildren) "Collect new cards and file boxes into this FileBox.") (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.") (Save% in% NoteFile (FUNCTION NC.CardSaveFn) "Save this card in the NoteFile but don't close the card.") (Delete% FileBox (FUNCTION NC.DeleteNoteCards) "Permenantly delete this FileBox from the NoteFile.")))) 11Q ((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.AddParents 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."))) (Insert% Link (FUNCTION NC.AddLinkToTextCard) "Insert a link to another card at the currently selected point in the text." (SUBITEMS (Insert% Link (FUNCTION NC.AddLinkToTextCard) "Insert a link to another card at the currently selected point in the text.") (Insert% Links (FUNCTION NC.AddLinksToTextCard) "Insert links to other cards at the currently selected point in the text.") (Add% Global% Link (FUNCTION NC.AddGlobalLinkToCard) "Add a global link emanating from this card.") (Add% Global% Links (FUNCTION NC.AddGlobalLinksToCard) "Add global links emanating from 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.MakeTEditMiddleMenu D1 (F 1 NC.AnnoFlg) choQ´`ÉHµ/hooo`ÉHµ!hh dgð³Í¿HX°Ãdgð³Û¿HX°Ñ(102Q \TEDIT.CREATEMENU 77Q DREMOVE) (130Q Edit% Marks 111Q Annotate 52Q MENU 47Q TEDIT.DEFAULT.MENU 15Q MENU 12Q TEDIT.DEFAULT.MENU) ( 44Q (Hardcopy (FUNCTION TEDIT.HARDCOPY) "Send a copy to the default printer.") 40Q (Change% Font (FUNCTION NC.\TEDIT.LOOKS) "Changes the font of the selected text.") 34Q (Advanced% Editing% Menu (FUNCTION \TEDIT.EXPANDED.MENU) "Brings up the menu for the advanced editing commands.") 4 (Restart% Editor (FUNCTION NC.ResetTEdit) "Resets and restarts the editor for this Card/Box.")) NC.MarkTextDirty D1 (I 1 ResetFlg I 0 ID) @ A (12Q TEDIT.STREAMCHANGEDP 6 TEXTSTREAM 3 NC.FetchSubstance) NIL () NC.ResetTEdit D1 (I 0 TextStream) g@hgg (17Q ADD.PROCESS) (14Q ResetTEdit 11Q NAME 2 NC.ResetTEditProcess) () NC.ResetTEditProcess D1 (P 4 PromptWin P 3 ID P 2 DirtyFlg P 1 TextObj P 0 Window I 0 TextStream) O@ @ 2H ´>H [d²6 Z@ @H Hg \ ”L ¿KJhð HgK` (114Q PUTWINDOWPROP 111Q NC.RetrieveTitle 76Q NC.MarkCardDirty 66Q CLOSEW 61Q OPENWP 54Q GETWINDOWUSERPROP 45Q TEDIT 40Q TEDIT.KILL 33Q NC.CardDirtyP 24Q NC.IDFromWindow 16Q WINDOWP 7 TEXTOBJ 3 WINDOW.FROM.TEDIT.THING) (106Q PSA.Database 102Q TITLE 51Q PROMPTWINDOW) () NC.TEditBasedP D1 (I 0 Type F 2 NC.CardTypes) ,@ –@ b¿RHµh¹@Ið˜IgðHX°è(10Q NC.FetchType 3 NC.IDP) (43Q TEXT) () NC.TEditCloseFn D1 (P 1 Window P 0 ID I 0 WindowOrTextStreamOrID) (@ H YH Id²gg ¿I h(44Q TEDIT.QUIT 41Q TEXTSTREAM 34Q WINDOWDELPROP 17Q NC.TEditQuitFn 12Q NC.FetchWindow 3 NC.CoerceToID) (31Q NC.QuitCard 26Q CLOSEFN) () NC.TEditMenuFn D1 (I 0 Window) '`låjð¨@g@g‡@g@g ¿@ (44Q TEDIT.DEFAULT.MENUFN 37Q PUTWINDOWPROP 34Q GETWINDOWUSERPROP) (31Q NoteCardsMiddleButtonMenu 25Q TEDIT.MENU 20Q NoteCardsLeftButtonMenu 14Q TEDIT.MENU 2 LASTMOUSEBUTTONS) () NC.TEditQuitFn D1 (P 5 AttachedWindow P 3 PromptWindow P 2 Window P 1 TextStream P 0 ID I 0 WindowOrID) g@ 1H Zdg [J›J Lµ&H YH J²Jhdi [›Kg “J i]dKð•¿L\°Ï ¿M ¿M ²î°ö(143Q BLOCK 136Q OPENWP 131Q CLOSEW 124Q DETACHWINDOW 103Q REMOVEPROMPTWINDOW 76Q PUTWINDOWPROP 65Q GETPROMPTWINDOW 53Q NC.DeactivateCard 46Q NC.FetchSubstance 32Q ALLATTACHEDWINDOWS 22Q GETWINDOWUSERPROP 12Q NC.FetchWindow 3 NC.CoerceToID) (73Q PROCESS 17Q PROMPTWINDOW) () NC.TextCopySubstance D1 (P 4 ToStartPtr P 3 ToEndPtr P 2 ToEndPtrLoc P 1 FromEndPtr P 0 FromStartPtr I 2 ToStream I 1 FromStream I 0 ID) á`B lØ\BLl lÿå ¿BLl lÿå ¿BLlÿå B ZBj ¿Bj ¿Bj A ááA áA ØØXA ááA áA ØØYdHÙlñ²EAIlÙ ¿A ldÛ`ô²/ABHIlÙ ¿BA HÙLØ ¿l]jñ²BA ¿MkÙ°ïABHI ¿B [BJ BKl lÿå ¿BKl lÿå ¿BKlÿå i(335Q BOUT 324Q BOUT 316Q RSH 306Q BOUT 300Q RSH 271Q SETFILEPTR 263Q GETFILEPTR 256Q COPYBYTES 241Q \WOUT 236Q \WIN 221Q \DWOUT 212Q \DWIN 204Q COPYBYTES 161Q \WIN 154Q SETFILEPTR 104Q BOUT 76Q BOUT 70Q BOUT 62Q GETFILEPTR 56Q BOUT 45Q BOUT 37Q RSH 27Q BOUT 21Q RSH 6 GETFILEPTR) (167Q NC.TEditPasswordDividedBy100) () NC.TextDirtyP D1 (I 0 ID) @ (11Q TEDIT.STREAMCHANGEDP 6 TEXTSTREAM 3 NC.FetchSubstance) NIL () NC.\TEDIT.LOOKS D1 (I 0 TextStream) @ (6 \TEDIT.LOOKS 3 TEXTOBJ) NIL () NC.\TEDIT.QUIT D1 (P 0 Window I 0 TextStream) @ H H h(16Q \TEDIT.QUIT 12Q NC.TEditQuitFn 3 WINDOW.FROM.TEDIT.THING) NIL () NC.TextCardShrinkFn D1 (P 3 IconTitle P 2 ID P 1 Icon P 0 OldIconTitle I 0 W) P@g @g @ #I³@g ¼@kL¿@g ¹HoJ [ô¯KhdI ¿@gK h(114Q PUTWINDOWPROP 103Q ICONTITLE 71Q CONCAT 66Q NC.FetchTitle 54Q GETWINDOWUSERPROP 36Q GETWINDOWUSERPROP 21Q NC.CoerceToID 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (110Q NoteCardsIconTitle 51Q ICON 33Q ICONFN 12Q ICON 3 NoteCardsIconTitle) ( 62Q "NC: ") NC.TranslateWindowPositionToTEditPosition D1 (P 0 TextObj I 2 WindowPositionY I 1 WindowPositionX I 0 Window) /@ ´&@g X`ð´ABHdÉhd@ É(47Q TEDIT.SELECT 17Q GETWINDOWUSERPROP 6 WINDOWP) (52Q SELECTION 36Q TEXTOBJ 24Q TEXTOBJTYPE# 14Q TEXTOBJ) () NC.InsertLinkInTextWindow D1 (P 0 TextStream I 2 CharacterPosition I 1 LinkOrLinkLabel I 0 TextWindow) @g HAhddB (23Q NC.InsertLinkInText 6 GETWINDOWUSERPROP) (3 TEXTSTREAM) () NC.IDFromTextStream D1 (I 0 TextStream) @g (6 STREAMPROP) (3 NoteCardID) () NC.TEditPutFnA0001 D1 (NAME ERRORSET L (0 NIL) F 2 TextObj F 3 RESETVARSLST F 4 TextStream F 5 LinkIcons F 6 FORCENEW F 7 NC.LinkIconImageFns F 10Q UNFORMATTED? F 11Q FileName F 12Q RESETY) ³ gRgR ÉFg hR ÉF²R ÉFg °R ghhHIF¿IhSc¿Rg c ¿gUWhU` hSc¿gT gT oT hhhhSc¿TWVW ci(255Q TEDIT.PUT 222Q NC.FetchTitle 217Q NC.IDFromTextStream 207Q WINDOW.FROM.TEDIT.THING 200Q WINDOW.FROM.TEDIT.THING 161Q NC.TEditPutFnAuxiliary 135Q TEDIT.LIST.OF.OBJECTS 72Q TEXTOBJ 64Q LISTPUT 51Q TEXTOBJ 36Q TEXTOBJ 25Q LISTGET 12Q TEXTOBJ) (203Q WINDOWPROP 174Q AND 156Q NC.ExternalPutLinkIconImageFns 143Q NC.TEditPutFnAuxiliary 132Q NC.LinkIconImageObjP 100Q PUTFN 75Q TEXTOBJ 61Q PUTFN 54Q TEXTOBJ 41Q TEXTOBJ 22Q PUTFN 15Q TEXTOBJ 6 PUTFN 2 TEXTPROP) ( 213Q (QUOTE TITLE)) NC.TEditPutFn D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 LinkIcons P 0 TextObj I 2 When? I 1 FileName I 0 TextStream F 5 LISPXHIST F 6 RESETVARSLST) BBgð´;@ @ š@ ¿U!Vog ‘h‚g\ ¿L’g(74Q ERROR! 66Q RESETRESTORE 54Q NC.TEditPutFnA0001 34Q NC.MarkCardDirty 31Q NC.IDFromTextStream 26Q TEXTSTREAM 21Q TEDIT.STREAMCHANGEDP 12Q TEXTOBJ) (77Q DON'T 62Q ERROR 51Q INTERNAL 3 BEFORE) ( 46Q (NC.TEditPutFnA0001)) NC.TEditPutFnAuxiliary D1 (L (1 NewImageFns 0 LinkIcons)) @ŠdA¿µôhNIL (7 IMAGEOBJ) () NC.TEditGetFn D1 (P 2 ID P 1 LinkIconPair P 0 LinkIcons I 2 When? I 1 FileName I 0 TextStream) LBdgð²$¿@ g HŒd¹@Ik ¿µòhgð´@ J ¿@ gJ (111Q PUTWINDOWPROP 106Q NC.RetrieveTitle 77Q WINDOW.FROM.TEDIT.THING 72Q NC.MarkCardDirty 63Q NC.IDFromTextStream 42Q TEDIT.DELETE 22Q TEDIT.LIST.OF.OBJECTS 14Q TEXTOBJ) (102Q TITLE 54Q AFTER 17Q NC.LinkIconImageObjP 4 BEFORE) () NC.MakeTEditPropsListA0001 D1 NIL gNIL (2 DON'T) () NC.MakeTEditPropsList D1 (I 0 TEditWindow) <g`ggggggggghg@d’ h(54Q NC.GetPromptWindow) (46Q PROMPTWINDOW 40Q NC.MakeTEditPropsListA0001 35Q NC.QuitCard 32Q QUITFN 27Q NC.TEditGetFn 24Q GETFN 21Q NC.TEditPutFn 16Q PUTFN 13Q NC.TEditMenuFn 10Q TITLEMENUFN 5 NC.DefaultFont 2 FONT) () NC.AddTextSubstance D1 NIL ggghgghgghgghgghgghgghgghgghgghgghgghgghho (214Q NC.AddSubstanceType) (164Q NC.TranslateWindowPositionToTEditPosition 161Q TranslateWindowPositionToSubstancePositionFn 153Q NC.InsertLinkInTextWindow 150Q InsertLinkInSubstanceFn 142Q NC.UpdateLinkImagesInText 137Q UpdateLinkIconsInSubstanceFn 131Q NC.DelReferencesToCardFromText 126Q DeleteLinksInSubstanceFn 120Q NC.CollectReferencesInText 115Q CollectLinksInSubstanceFn 107Q NC.TextDirtyP 104Q SubstanceDirtyPFn 76Q NC.MarkTextDirty 73Q MarkSubstanceDirtyFn 65Q NC.TextCopySubstance 62Q CopySubstanceFn 54Q NC.PutTextSubstance 51Q PutSubstanceFn 43Q NC.GetTextSubstance 40Q GetSubstanceFn 32Q NC.TEditCloseFn 27Q QuitSubstanceFn 21Q NC.BringUpTEditCard 16Q EditSubstanceFn 10Q NC.MakeTEditCard 5 CreateSubstanceFn 2 TEXT) ( 211Q ((SubstanceDefaultWidth 454Q) (SubstanceDefaultHeight 310Q) (SubstanceLinkAnchorModesSupported T))) (PRETTYCOMPRINT NCTEXTSUBSTANCECOMS) (RPAQQ NCTEXTSUBSTANCECOMS ((E (SETQ NC.SystemDate (DATE)) (PUTPROP (QUOTE NC.SystemDate) (QUOTE NewestFile) (ROOTFILENAME (FULLNAME (OUTPUT))))) (* * Stuff for the TEXT substance type.) (FILES NCTYPESMECH) (GLOBALVARS TEDIT.DEFAULT.MENU NC.TEditPasswordDividedBy100 NC.DefaultFont NC.DeletedLinkImageObject NC.CardTypes NC.AnnoFlg) (FNS NC.BringUpTEditCard NC.CollectReferencesInText NC.MakeTEditLeftMenu NC.MakeTEditMiddleMenu NC.MarkTextDirty NC.ResetTEdit NC.ResetTEditProcess NC.TEditBasedP NC.TEditCloseFn NC.TEditMenuFn NC.TEditQuitFn NC.TextCopySubstance NC.TextDirtyP NC.\TEDIT.LOOKS NC.\TEDIT.QUIT NC.TextCardShrinkFn) (VARS (TEDIT.DEFAULT.PROPS (CONS (QUOTE SLOWUPDATE ) (CONS (QUOTE T) TEDIT.DEFAULT.PROPS))) (NC.TEditPasswordDividedBy100 314)) (* * This stuff supports the "push-copy" method of copying links in NC) (FNS NC.TranslateWindowPositionToTEditPosition NC.InsertLinkInTextWindow) (* * New FNS for fixing TEdit bugs in intermezzo.) (GLOBALVARS NC.ExternalPutLinkIconImageFns) (FNS NC.IDFromTextStream NC.TEditPutFn NC.TEditPutFnAuxiliary NC.TEditGetFn NC.MakeTEditPropsList) (* * Add Text substance type to list) (FNS NC.AddTextSubstance) ( P (NC.AddTextSubstance)))) (FILESLOAD NCTYPESMECH) (RPAQ TEDIT.DEFAULT.PROPS (CONS (QUOTE SLOWUPDATE) (CONS (QUOTE T) TEDIT.DEFAULT.PROPS))) (RPAQQ NC.TEditPasswordDividedBy100 314) (NC.AddTextSubstance) (PUTPROPS NCTEXTSUBSTANCE COPYRIGHT ("Xerox Corporation" 1985)) NIL