Skip to content

Commit 8a13ec0

Browse files
fghalaszfghalasz
committed
Fix issues 1829, 1867, 1876 (in Medley repo). 1829 and 1867 where caused leftover references to TEXTOBJECTS (instead of TEXTSTREAMS) from update to TEDit 4th round. 1876 was caused by TTYIN returning a partial string when a carriage return was typed in the middle of a line. Fixed by making CR in TTYIN be rquivalent to CTRL-X when called by NC.AskUser.
1 parent 101e8ca commit 8a13ec0

File tree

6 files changed

+123
-98
lines changed

6 files changed

+123
-98
lines changed

‎system/NCINTERFACE‎

Lines changed: 65 additions & 43 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,10 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED " 7-Mar-2024 22:40:22" {DSK}<home>frank>il>notecards>system>NCINTERFACE.;2 306088
3+
(FILECREATED "24-Nov-2024 19:19:37" {DSK}<home>frank>il>notecards>system>NCINTERFACE.;3 306057
44

5-
:CHANGES-TO (FNS NC.MakeTEditReadOnly NC.MakeTEditReadWrite)
5+
:CHANGES-TO (FNS NC.GetFileBrowserPattern)
66

7-
:PREVIOUS-DATE " 8-Oct-2021 13:49:41" {DSK}<home>frank>il>notecards>system>NCINTERFACE.;1)
7+
:PREVIOUS-DATE " 7-Mar-2024 22:40:22" {DSK}<home>frank>il>notecards>system>NCINTERFACE.;1)
88

99

1010
(PRETTYCOMPRINT NCINTERFACECOMS)
@@ -848,7 +848,7 @@
848848
(* ;;; "Fix up Lisp")
849849

850850

851-
[LOADINITADVISE NC-ADVICE0260 (LOGOUT (NIL (BEFORE NIL (if (NULL (NC.LogoutAdvice))
851+
[LOADINITADVISE NC-ADVICE0119 (LOGOUT (NIL (BEFORE NIL (if (NULL (NC.LogoutAdvice))
852852
then (RETURN]
853853

854854

@@ -1439,7 +1439,29 @@
14391439
No") (T (CONCAT (COND (FAILED "%
14401440
Done, but only ") (T "done, ")) NDELETED))) " files expunged.") (COND (FAILED (COND (CMD (FB.PROMPTWPRINT FBROWSER " " CMD " aborted."))) (RETURN] (T (FB.PROMPTWPRINT FBROWSER T "No files were marked for deletion"))) (RETURN T])
14411441

1442-
(NC.GetFileBrowserPattern [LAMBDA (MainWindow OldPattern) (* rht%: " 2-Jul-86 22:34") (* * Ask user to provide a new file browser pattern. Cancel if user provides an extension. Else, add .notefile extension.) (LET* [(Pattern (NC.AskUser "New pattern? " NIL OldPattern T MainWindow T T)) (PatternPlusExtension (AND Pattern (PACKFILENAME 'BODY Pattern 'EXTENSION 'NOTEFILE 'VERSION '* 'NAME '*] (PROG1 (if (EQ (U-CASE (FILENAMEFIELD PatternPlusExtension 'EXTENSION)) 'NOTEFILE) then (SETQ NC.FileBrowserPatterns (UNION NC.FileBrowserPatterns (LIST PatternPlusExtension ))) PatternPlusExtension else (NC.PrintMsg MainWindow T "Pattern must have either" (CHARACTER 13) ".NOTEFILE extension or no extension.") (DISMISS 1000) NIL) (NC.ClearMsg MainWindow T])
1442+
(NC.GetFileBrowserPattern
1443+
[LAMBDA (MainWindow OldPattern) (* rht%: " 2-Jul-86 22:34")
1444+
1445+
(* * Ask user to provide a new file browser pattern.
1446+
 Cancel if user provides an extension. Else, add .notefile extension.)
1447+
1448+
(LET* [(Pattern (NC.AskUser "New pattern? " NIL OldPattern T MainWindow T T))
1449+
(PatternPlusExtension (AND Pattern (PACKFILENAME 'BODY Pattern 'EXTENSION 'NOTEFILE
1450+
'VERSION
1451+
'*
1452+
'NAME
1453+
'*]
1454+
(PROG1 (if (EQ (U-CASE (FILENAMEFIELD PatternPlusExtension 'EXTENSION))
1455+
'NOTEFILE)
1456+
then (SETQ NC.FileBrowserPatterns (UNION NC.FileBrowserPatterns (LIST
1457+
PatternPlusExtension
1458+
)))
1459+
PatternPlusExtension
1460+
else (NC.PrintMsg MainWindow T "Pattern must have either" (CHARACTER 13)
1461+
".NOTEFILE extension or no extension.")
1462+
(DISMISS 1000)
1463+
NIL)
1464+
(NC.ClearMsg MainWindow T])
14431465

14441466
(NC.FileBrowserRecomputeWithNewPattern [LAMBDA (BROWSER) (* rht%: " 2-Jul-86 15:04") (* * Code basically stolen from FB.NEWPATTERNCOMMAND and FB.GET.NEWPATTERN. Just changed to call NC.GetFileBrowserPattern.) (LET (PATTERN) (COND ([AND (FB.MAYBE.EXPUNGE BROWSER "New Pattern") (SETQ PATTERN (LET* ((OLDPATTERN (fetch (FILEBROWSER PATTERN) of BROWSER)) (NEWPATTERN (NC.GetFileBrowserPattern (fetch (FILEBROWSER PROMPTWINDOW ) of BROWSER) OLDPATTERN))) (COND (NEWPATTERN (DIRECTORY.FILL.PATTERN NEWPATTERN] (FB.SETNEWPATTERN BROWSER PATTERN) (FB.UPDATEBROWSERITEMS BROWSER])
14451467

@@ -1454,42 +1476,42 @@ Done, but only ") (T "d
14541476

14551477
(PUTPROPS NCINTERFACE MAKEFILE-ENVIRONMENT (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
14561478
(DECLARE%: DONTCOPY
1457-
(FILEMAP (NIL (41776 69166 (NoteCards 41786 . 42158) (NC.MakeMainMenu 42160 . 51517) (NC.LogoutAdvice
1458-
51519 . 53652) (NC.AttachPromptWindow 53654 . 54930) (NC.AttachPromptWindowOffScreen 54932 . 55563) (
1459-
NC.GETPROMPTWINDOW 55565 . 67598) (NC.MaxPromptWindowWidth 67600 . 68774) (NC.PromptWindowOpenP 68776
1460-
. 69164)) (69550 127743 (NC.AskLinkLabel 69560 . 76187) (NC.AskNoteCardType 76189 . 80658) (
1461-
NC.SortCardTypes 80660 . 83041) (NC.ExpandBars 83043 . 84588) (NC.ChooseTopLevelCard 84590 . 88720) (
1462-
NC.RemoveSketchMenuItems 88722 . 89573) (NC.SelectionMenusWhenSelectedFn 89575 . 91351) (
1463-
NC.InstallTitleBarButtonEventFn 91353 . 92027) (NC.InstallTitleBarLeftMenu 92029 . 93041) (
1464-
NC.InstallCopyButtonEventFn 93043 . 93512) (NC.NoteFileTitleLeftWhenSelectedFn 93514 . 98155) (
1465-
NC.MakeNoteFileIconOperationsMenus 98157 . 100638) (NC.ResetCachedMenus 100640 . 101069) (
1466-
NC.CreateNoteFileMenuItems 101071 . 107457) (NC.GetNoteFileMenu 107459 . 108477) (NC.SetNoteFileMenu
1467-
108479 . 109728) (NC.PrintReadOnlyMsg 109730 . 112841) (NC.CopyMenu 112843 . 113580) (
1468-
NC.ReadOnlyTEditSelFn 113582 . 114255) (NC.MakeTEditReadOnly 114257 . 119215) (NC.MakeTEditReadWrite
1469-
119217 . 120070) (NC.MakeMenusReadOnly 120072 . 125561) (NC.MakeMenusReadWrite 125563 . 127741)) (
1470-
127871 159076 (NC.SelectNoteCards 127881 . 150113) (NC.BinLoopProcess 150115 . 151339) (
1471-
NC.ZapBinLoopProcess 151341 . 151678) (NC.SelectNoteCardsCopyInsertFn 151680 . 153360) (
1472-
NC.CopyButtonEventFn 153362 . 155887) (NC.ShrukenIconButtonEventFn 155889 . 158669) (NC.CardImageObjP
1473-
158671 . 158843) (NC.MakeCardImageObject 158845 . 159074)) (170700 185239 (NC.NoteCardsWindowP 170710
1474-
. 171084) (NC.NoteCardsIconWindowP 171086 . 171353) (NC.MakeNoteCardsIcon 171355 . 171837) (
1475-
NC.BringUpNoteCardsIcon 171839 . 172883) (NC.NoteCardsIconAfterMoveFn 172885 . 173506) (
1476-
NC.FileBrowserMenu 173508 . 177151) (NC.ListOfNoteFilesMenu 177153 . 182691) (NC.CheckpointSession
1477-
182693 . 183617) (NC.CloseSession 183619 . 185237)) (203282 226162 (NC.RedisplayNoteCardsIconWindow
1478-
203292 . 204248) (NC.NoteCardsIconButtonEventFn 204250 . 207358) (NC.DoNoteFileOp 207360 . 216318) (
1479-
NC.NoteCardsIconCursorEventFn 216320 . 216980) (NC.NoteCardsIconFn 216982 . 217373) (
1480-
NC.ResetNoteCardsIcon 217375 . 218134) (NC.MakeNewStyleNoteCardsIcon 218136 . 221745) (
1481-
NC.MakeOldStyleNoteCardsIcon 221747 . 226160)) (226220 239883 (NC.CloseNoteCards 226230 . 228905) (
1482-
NC.CopyStructure 228907 . 232797) (NC.CloseStructure 232799 . 235627) (NC.DeleteStructure 235629 .
1483-
238625) (NC.MoveStructure 238627 . 239881)) (239921 274395 (NC.NoteFileMenuWindowP 239931 . 240272) (
1484-
NC.SetUpNoteFileInterface 240274 . 251408) (NC.ResetNoteFileInterface 251410 . 255661) (
1485-
NC.NoteFileIconButtonEventFn 255663 . 263063) (NC.NoteFileOperations 263065 . 265261) (
1486-
NC.NoteFileIconMiddleButtonFn 265263 . 267380) (NC.PopUpNoteFileName 267382 . 268803) (
1487-
NC.DisplayFileCapacity 268805 . 274393)) (274822 281206 (NC.ShowNoteFiles 274832 . 275152) (
1488-
NC.AttachNoteFileName 275154 . 280251) (NC.MakeNoteFileNameIndicator 280253 . 280831) (
1489-
NC.NoteFileIndicatorWinHeight 280833 . 281204)) (286802 304963 (NC.FileBrowserOpen 286812 . 287854) (
1490-
NC.FileBrowserClose 287856 . 288748) (NC.FileBrowserCheckpoint 288750 . 289744) (NC.FileBrowserAbort
1491-
289746 . 290557) (NC.FileBrowserCompact 290559 . 298114) (NC.FileBrowserInspect&Repair 298116 . 299174
1492-
) (NC.FileBrowserExpunge 299176 . 301449) (NC.GetFileBrowserPattern 301451 . 302890) (
1493-
NC.FileBrowserRecomputeWithNewPattern 302892 . 304151) (NC.FindFileBrowserWinForPattern 304153 .
1494-
304961)) (304964 305904 (NC.FlashFileBrowserWin 304974 . 305902)))))
1479+
(FILEMAP (NIL (41758 69148 (NoteCards 41768 . 42140) (NC.MakeMainMenu 42142 . 51499) (NC.LogoutAdvice
1480+
51501 . 53634) (NC.AttachPromptWindow 53636 . 54912) (NC.AttachPromptWindowOffScreen 54914 . 55545) (
1481+
NC.GETPROMPTWINDOW 55547 . 67580) (NC.MaxPromptWindowWidth 67582 . 68756) (NC.PromptWindowOpenP 68758
1482+
. 69146)) (69532 127725 (NC.AskLinkLabel 69542 . 76169) (NC.AskNoteCardType 76171 . 80640) (
1483+
NC.SortCardTypes 80642 . 83023) (NC.ExpandBars 83025 . 84570) (NC.ChooseTopLevelCard 84572 . 88702) (
1484+
NC.RemoveSketchMenuItems 88704 . 89555) (NC.SelectionMenusWhenSelectedFn 89557 . 91333) (
1485+
NC.InstallTitleBarButtonEventFn 91335 . 92009) (NC.InstallTitleBarLeftMenu 92011 . 93023) (
1486+
NC.InstallCopyButtonEventFn 93025 . 93494) (NC.NoteFileTitleLeftWhenSelectedFn 93496 . 98137) (
1487+
NC.MakeNoteFileIconOperationsMenus 98139 . 100620) (NC.ResetCachedMenus 100622 . 101051) (
1488+
NC.CreateNoteFileMenuItems 101053 . 107439) (NC.GetNoteFileMenu 107441 . 108459) (NC.SetNoteFileMenu
1489+
108461 . 109710) (NC.PrintReadOnlyMsg 109712 . 112823) (NC.CopyMenu 112825 . 113562) (
1490+
NC.ReadOnlyTEditSelFn 113564 . 114237) (NC.MakeTEditReadOnly 114239 . 119197) (NC.MakeTEditReadWrite
1491+
119199 . 120052) (NC.MakeMenusReadOnly 120054 . 125543) (NC.MakeMenusReadWrite 125545 . 127723)) (
1492+
127853 159058 (NC.SelectNoteCards 127863 . 150095) (NC.BinLoopProcess 150097 . 151321) (
1493+
NC.ZapBinLoopProcess 151323 . 151660) (NC.SelectNoteCardsCopyInsertFn 151662 . 153342) (
1494+
NC.CopyButtonEventFn 153344 . 155869) (NC.ShrukenIconButtonEventFn 155871 . 158651) (NC.CardImageObjP
1495+
158653 . 158825) (NC.MakeCardImageObject 158827 . 159056)) (170682 185221 (NC.NoteCardsWindowP 170692
1496+
. 171066) (NC.NoteCardsIconWindowP 171068 . 171335) (NC.MakeNoteCardsIcon 171337 . 171819) (
1497+
NC.BringUpNoteCardsIcon 171821 . 172865) (NC.NoteCardsIconAfterMoveFn 172867 . 173488) (
1498+
NC.FileBrowserMenu 173490 . 177133) (NC.ListOfNoteFilesMenu 177135 . 182673) (NC.CheckpointSession
1499+
182675 . 183599) (NC.CloseSession 183601 . 185219)) (203264 226144 (NC.RedisplayNoteCardsIconWindow
1500+
203274 . 204230) (NC.NoteCardsIconButtonEventFn 204232 . 207340) (NC.DoNoteFileOp 207342 . 216300) (
1501+
NC.NoteCardsIconCursorEventFn 216302 . 216962) (NC.NoteCardsIconFn 216964 . 217355) (
1502+
NC.ResetNoteCardsIcon 217357 . 218116) (NC.MakeNewStyleNoteCardsIcon 218118 . 221727) (
1503+
NC.MakeOldStyleNoteCardsIcon 221729 . 226142)) (226202 239865 (NC.CloseNoteCards 226212 . 228887) (
1504+
NC.CopyStructure 228889 . 232779) (NC.CloseStructure 232781 . 235609) (NC.DeleteStructure 235611 .
1505+
238607) (NC.MoveStructure 238609 . 239863)) (239903 274377 (NC.NoteFileMenuWindowP 239913 . 240254) (
1506+
NC.SetUpNoteFileInterface 240256 . 251390) (NC.ResetNoteFileInterface 251392 . 255643) (
1507+
NC.NoteFileIconButtonEventFn 255645 . 263045) (NC.NoteFileOperations 263047 . 265243) (
1508+
NC.NoteFileIconMiddleButtonFn 265245 . 267362) (NC.PopUpNoteFileName 267364 . 268785) (
1509+
NC.DisplayFileCapacity 268787 . 274375)) (274804 281188 (NC.ShowNoteFiles 274814 . 275134) (
1510+
NC.AttachNoteFileName 275136 . 280233) (NC.MakeNoteFileNameIndicator 280235 . 280813) (
1511+
NC.NoteFileIndicatorWinHeight 280815 . 281186)) (286784 304932 (NC.FileBrowserOpen 286794 . 287836) (
1512+
NC.FileBrowserClose 287838 . 288730) (NC.FileBrowserCheckpoint 288732 . 289726) (NC.FileBrowserAbort
1513+
289728 . 290539) (NC.FileBrowserCompact 290541 . 298096) (NC.FileBrowserInspect&Repair 298098 . 299156
1514+
) (NC.FileBrowserExpunge 299158 . 301431) (NC.GetFileBrowserPattern 301433 . 302859) (
1515+
NC.FileBrowserRecomputeWithNewPattern 302861 . 304120) (NC.FindFileBrowserWinForPattern 304122 .
1516+
304930)) (304933 305873 (NC.FlashFileBrowserWin 304943 . 305871)))))
14951517
STOP

‎system/NCINTERFACE.LCOM‎

-497 Bytes
Binary file not shown.

‎system/NCTEXTCARD‎

Lines changed: 23 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,10 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED " 1-Apr-2024 12:13:15" {DSK}<home>frank>il>notecards>system>NCTEXTCARD.;51 61097
3+
(FILECREATED "23-Nov-2024 23:40:51" {DSK}<home>frank>il>notecards>system>NCTEXTCARD.;2 61110
44

5-
:CHANGES-TO (FNS NC.TEditPutFn)
5+
:CHANGES-TO (FNS NC.UpdateLinkImagesInText)
66

7-
:PREVIOUS-DATE "31-Mar-2024 23:09:40" {DSK}<home>frank>il>notecards>system>NCTEXTCARD.;49)
7+
:PREVIOUS-DATE " 1-Apr-2024 12:13:15" {DSK}<home>frank>il>notecards>system>NCTEXTCARD.;1)
88

99

1010
(PRETTYCOMPRINT NCTEXTCARDCOMS)
@@ -739,13 +739,13 @@
739739

740740
(* * rht 10/28/87%: Updated to handle pointer imageobjs as well.)
741741

742-
(LET (Window TextObject LinksAndPointers SourceCard WasDirtyFlg)
742+
(LET (Window TextStream LinksAndPointers SourceCard WasDirtyFlg)
743743
[SETQ Window (COND
744744
((WINDOWP SourceCardOrWindow)
745745
SourceCardOrWindow)
746746
(T (NC.FetchWindow SourceCardOrWindow]
747-
(SETQ TextObject (WINDOWPROP Window 'TEXTOBJ))
748-
[SETQ LinksAndPointers (NC.TEditCollectObjects TextObject (FUNCTION (LAMBDA (ImageObj)
747+
(SETQ TextStream (WINDOWPROP Window 'TEXTSTREAM))
748+
[SETQ LinksAndPointers (NC.TEditCollectObjects TextStream (FUNCTION (LAMBDA (ImageObj)
749749
(OR (
750750
NC.LinkIconImageObjP
751751
ImageObj)
@@ -762,7 +762,7 @@
762762
(NC.SameCardP (fetch (NCPointer DestinationCard)
763763
of (NC.FetchPointerFromPointerIcon (CAR LinkOrPointer)))
764764
DestinationCard)))
765-
then (TEDIT.OBJECT.CHANGED TextObject (CAR LinkOrPointer]
765+
then (TEDIT.OBJECT.CHANGED TextStream (CAR LinkOrPointer]
766766
(NC.MarkCardDirty SourceCard (NOT WasDirtyFlg])
767767

768768
(NC.CharPosFromTextStream
@@ -1126,7 +1126,7 @@
11261126
(RPAQQ NC.TextCardIcon #*(21 18)OOOOOH@@OOOOOH@@OOOOOH@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@H@@@@H@@OOOOOH@@
11271127
)
11281128

1129-
[LOADINITADVISE NC-ADVICE0186 [TEDIT.ADD.MENUITEM
1129+
[LOADINITADVISE NC-ADVICE0099 [TEDIT.ADD.MENUITEM
11301130
(NIL (AFTER NIL (if (EQ MENU TEDIT.DEFAULT.MENU)
11311131
then (NCP.ChangeCardTypeFields
11321132
'Text NIL `((MiddleButtonMenuItems
@@ -1148,19 +1148,19 @@
11481148

11491149
(PUTPROPS NCTEXTCARD MAKEFILE-ENVIRONMENT (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
11501150
(DECLARE%: DONTCOPY
1151-
(FILEMAP (NIL (3675 3945 (NCAddStub.TextCard 3685 . 3943)) (4388 47278 (NC.MakeTEditCard 4398 . 7864)
1152-
(NC.BringUpTEditCard 7866 . 13213) (NC.MakeTextCardReadOnly 13215 . 15046) (NC.MakeTextCardReadWrite
1153-
15048 . 16515) (NC.RevertTextCard 16517 . 17414) (NC.CollectReferencesInText 17416 . 23179) (
1154-
NC.InstallTextTitleBarMiddleMenu 23181 . 24292) (NC.MarkTextDirty 24294 . 24687) (NC.ResetTEdit 24689
1155-
. 25097) (NC.ResetTEditProcess 25099 . 26737) (NC.TEditBasedP 26739 . 27438) (NC.TEditCloseFn 27440
1156-
. 28957) (NC.TEditMenuFn 28959 . 30024) (NC.TEditQuitFn 30026 . 31707) (NC.TextCopySubstance 31709 .
1157-
32330) (NC.TextDirtyP 32332 . 32639) (NC.TextCardShrinkFn 32641 . 37451) (NC.PutTextSubstance 37453 .
1158-
39051) (NC.GetTextSubstance 39053 . 40678) (NC.UpdateLinkImagesInText 40680 . 43094) (
1159-
NC.CharPosFromTextStream 43096 . 43330) (NC.DelReferencesToCardFromText 43332 . 45785) (NC.TEditWindow
1160-
45787 . 46427) (NC.TEditCollectObjects 46429 . 47276)) (47530 48705 (
1161-
NC.TranslateWindowPositionToTEditPosition 47540 . 48241) (NC.InsertLinkInTextWindow 48243 . 48703)) (
1162-
48814 56578 (NC.CardFromTextStream 48824 . 49116) (NC.TEditPutFn 49118 . 51756) (
1163-
NC.TEditPutFnAuxiliary 51758 . 52661) (NC.TEditGetFn 52663 . 53824) (NC.MakeTEditPropsList 53826 .
1164-
55703) (NC.TEditPropsListQuitFn 55705 . 56040) (NC.DelTEditProcesses 56042 . 56576)) (56644 59597 (
1165-
NC.AddTextCard 56654 . 58795) (NC.ComputeTextCardMiddleButtonMenuItems 58797 . 59595)))))
1151+
(FILEMAP (NIL (3685 3955 (NCAddStub.TextCard 3695 . 3953)) (4398 47291 (NC.MakeTEditCard 4408 . 7874)
1152+
(NC.BringUpTEditCard 7876 . 13223) (NC.MakeTextCardReadOnly 13225 . 15056) (NC.MakeTextCardReadWrite
1153+
15058 . 16525) (NC.RevertTextCard 16527 . 17424) (NC.CollectReferencesInText 17426 . 23189) (
1154+
NC.InstallTextTitleBarMiddleMenu 23191 . 24302) (NC.MarkTextDirty 24304 . 24697) (NC.ResetTEdit 24699
1155+
. 25107) (NC.ResetTEditProcess 25109 . 26747) (NC.TEditBasedP 26749 . 27448) (NC.TEditCloseFn 27450
1156+
. 28967) (NC.TEditMenuFn 28969 . 30034) (NC.TEditQuitFn 30036 . 31717) (NC.TextCopySubstance 31719 .
1157+
32340) (NC.TextDirtyP 32342 . 32649) (NC.TextCardShrinkFn 32651 . 37461) (NC.PutTextSubstance 37463 .
1158+
39061) (NC.GetTextSubstance 39063 . 40688) (NC.UpdateLinkImagesInText 40690 . 43107) (
1159+
NC.CharPosFromTextStream 43109 . 43343) (NC.DelReferencesToCardFromText 43345 . 45798) (NC.TEditWindow
1160+
45800 . 46440) (NC.TEditCollectObjects 46442 . 47289)) (47543 48718 (
1161+
NC.TranslateWindowPositionToTEditPosition 47553 . 48254) (NC.InsertLinkInTextWindow 48256 . 48716)) (
1162+
48827 56591 (NC.CardFromTextStream 48837 . 49129) (NC.TEditPutFn 49131 . 51769) (
1163+
NC.TEditPutFnAuxiliary 51771 . 52674) (NC.TEditGetFn 52676 . 53837) (NC.MakeTEditPropsList 53839 .
1164+
55716) (NC.TEditPropsListQuitFn 55718 . 56053) (NC.DelTEditProcesses 56055 . 56589)) (56657 59610 (
1165+
NC.AddTextCard 56667 . 58808) (NC.ComputeTextCardMiddleButtonMenuItems 58810 . 59608)))))
11661166
STOP

‎system/NCTEXTCARD.LCOM‎

11 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)