(FILECREATED "29-Mar-85 16:49:00" ("compiled on " {PHYLUM}RELEASE1.2>NCTEXTSUBSTANCE.;6) "20-Dec-84 12:07:22" recompiled changes: NC.MakeTEditLeftMenu in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "29-Mar-85 16:47:47" {PHYLUM}RELEASE1.2>NCTEXTSUBSTANCE.;6 22291 changes to: ( FNS NC.MakeTEditLeftMenu) previous date: "27-Mar-85 01:42:34" {PHYLUM}RELEASE1.2>NCTEXTSUBSTANCE.;5) 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) `A Y[@B X@ [HKhi Ydgg Ig@ Ig @ \AIhg`ggh L@ I .ZI l]jI MkٰJ I(203Q TTY.PROCESS 171Q FLASHW 156Q TOTOPW 145Q \INSUREWINDOW 140Q NC.MarkCardDirty 132Q TEDIT 102Q NC.CardDirtyP 76Q PUTWINDOWPROP 73Q NC.MakeTEditMiddleMenu 64Q PUTWINDOWPROP 61Q NC.MakeTEditLeftMenu 56Q NC.FetchType 46Q PUTWINDOWPROP 33Q CREATEW 23Q NC.FetchTitle 16Q NC.DetermineDisplayRegion 6 WINDOW.FROM.TEDIT.THING) (122Q NC.TEditMenuFn 117Q TITLEMENUFN 114Q NC.DefaultFont 111Q FONT 70Q NoteCardsMiddleButtonMenu 52Q NoteCardsLeftButtonMenu 43Q NC.ShrinkFn 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) @ QH g A N OdJ_ AiIIdAi;IB i2O`dL`dM`ih5CDOCDOOCDIOI_OOh__N^iO&_(77Q NC.ValidLinkP 45Q NC.FetchLinkFromLinkIcon 20Q TEDIT.LIST.OF.OBJECTS 12Q TEXTOBJ 3 NC.FetchSubstance) (153Q IMAGEOBJ 150Q NC.DeletedLinkImageObject 135Q IMAGEOBJ 132Q NC.DeletedLinkImageObject 123Q IMAGEOBJ 114Q IMAGEOBJ 111Q NC.DeletedLinkImageObject 15Q NC.LinkIconImageObjP) () NC.MakeTEditLeftMenu D1 (I 0 NoteCardType) @goo (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.") (Put% in% FileBox (FUNCTION NC.AddParents) "Put this FileBox in new parent FileBox(es).") (Assign% Title (FUNCTION NC.AssignTitle) "Assign a new title to this FileBox.") (Collect% Children (FUNCTION NC.FileBoxCollectChildren) "Collect new child cards and file boxes for 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.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."))) (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ͿHXdgۿ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 3 ID P 2 DirtyFlg P 1 TextObj P 0 Window I 0 TextStream) ?@ @ "H [H )Kd% Z@ @H KJh HgK` h(73Q PUTWINDOWPROP 70Q NC.RetrieveTitle 55Q NC.MarkCardDirty 46Q TEDIT 41Q TEDIT.KILL 34Q NC.CardDirtyP 23Q WINDOWP 16Q NC.IDFromWindow 7 TEXTOBJ 3 WINDOW.FROM.TEDIT.THING) (65Q PSA.Database 61Q TITLE) () NC.TEditBasedP D1 (I 0 Type) .@ @ b`Hh@IIgHX(10Q NC.FetchType 3 NC.IDP) (45Q TEXT 16Q NC.CardTypes) () NC.TEditCloseFn D1 (P 1 Window P 0 ID I 0 WindowOrTextStreamOrID) (@ H YH Idgg 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) '`lj@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.TEditQuitFnA0001 D1 (L (3 OBL 2 PC# 1 PC 0 CH#)) AhhNIL (3 PIECE) () NC.TEditQuitFn D1 (P 5 AttachedWindow P 3 PromptWindow P 2 Window P 1 TextStream P 0 ID I 0 WindowOrID) {@ 1H Zdg [JJ L:H YH I h,I g JJhdi [Kg J i]dKL\ M M (167Q BLOCK 162Q OPENWP 155Q CLOSEW 150Q DETACHWINDOW 127Q REMOVEPROMPTWINDOW 122Q PUTWINDOWPROP 111Q GETPROMPTWINDOW 77Q TEDIT.MAPPIECES 71Q TEXTOBJ 57Q TEXTOBJ 53Q NC.DeactivateCard 46Q NC.FetchSubstance 32Q ALLATTACHEDWINDOWS 22Q GETWINDOWUSERPROP 12Q NC.FetchWindow 3 NC.CoerceToID) (117Q PROCESS 74Q NC.TEditQuitFnA0001 62Q TEXTOBJ 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 YdHlbAIl A A dnzdnzih@ABHIl BA HL l_j(BA A ؾ]N MNl OkٰABHI B [BJ BKl l BKl l BKl i(372Q BOUT 361Q BOUT 353Q RSH 343Q BOUT 335Q RSH 326Q SETFILEPTR 320Q GETFILEPTR 313Q COPYBYTES 275Q \BOUT 264Q \BOUT 235Q \DWOUT 226Q \DWIN 220Q COPYBYTES 154Q SETFILEPTR 104Q BOUT 76Q BOUT 70Q BOUT 62Q GETFILEPTR 56Q BOUT 45Q BOUT 37Q RSH 27Q BOUT 21Q RSH 6 GETFILEPTR) NIL () 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.TranslateWindowPositionToTEditPosition D1 (P 0 TextObj I 2 WindowPositionY I 1 WindowPositionX I 0 Window) /@ &@g X`ABHdhd@ (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.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 OPENTEXTSTREAM 5 CreateSubstanceFn 2 TEXT) ( 211Q ((SubstanceDefaultWidth 454Q) (SubstanceDefaultHeight 310Q) (SubstanceLinkAnchorModesSupported T))) (PRETTYCOMPRINT NCTEXTSUBSTANCECOMS) (RPAQQ NCTEXTSUBSTANCECOMS ((E (SETQ NC.SystemDate (DATE)) (UNMARKASCHANGED (QUOTE NC.SystemDate) ( QUOTE VARS))) (VARS NC.SystemDate) (P (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS))) (FILES NCTYPESMECH) (GLOBALVARS TEDIT.DEFAULT.MENU) (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) (VARS (TEDIT.DEFAULT.PROPS (CONS (QUOTE SLOWUPDATE) (CONS (QUOTE T) TEDIT.DEFAULT.PROPS)))) (* * This stuff supports the "push-copy" method of copying links in NC) (FNS NC.TranslateWindowPositionToTEditPosition NC.InsertLinkInTextWindow) (* * Add Text substance type to list) (FNS NC.AddTextSubstance) (P (NC.AddTextSubstance)))) (RPAQQ NC.SystemDate "29-Mar-85 16:47:49") (UNMARKASCHANGED (QUOTE NC.SystemDate) (QUOTE VARS)) (FILESLOAD NCTYPESMECH) (RPAQ TEDIT.DEFAULT.PROPS (CONS (QUOTE SLOWUPDATE) (CONS (QUOTE T) TEDIT.DEFAULT.PROPS))) (NC.AddTextSubstance) (PUTPROPS NCTEXTSUBSTANCE COPYRIGHT ("Xerox Corporation" 1985)) NIL