Skip to content

Commit 00cad60

Browse files
fghalaszfghalasz
committed
Misc changes to adapt to new TEdit public APIs
1 parent 3317c1b commit 00cad60

File tree

10 files changed

+230
-110
lines changed

10 files changed

+230
-110
lines changed

‎library/NCFILECARD‎

Lines changed: 149 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,50 @@
1-
(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)(FILECREATED " 5-Nov-2020 19:31:00" {DSK}<users>arunwelch>skydrive>documents>unix>lisp>lde>notecards>system>NCFILECARD.;4 18667 previous date%: " 9-Jan-94 21:18:59" {DSK}<users>arunwelch>skydrive>documents>unix>lisp>lde>notecards>system>NCFILECARD.;2)(* ; "Copyright (c) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 2020 by Xerox Corporation. All rights reserved.")(PRETTYCOMPRINT NCFILECARDCOMS)(RPAQQ NCFILECARDCOMS [(DECLARE%: DONTCOPY (PROPS (NCFILECARD MAKEFILE-ENVIRONMENT) (NCFILECARD FILETYPE))) (FNS NCAddStub.FileCard) (* ;;; "Globalvars from elsewhere") (GLOBALVARS NC.DefaultFont TEDIT.DEFAULT.MENU NC.FileCardIcon) (* ;;; "Substance functions") (FNS NC.MakeFileCard NC.EditFileSubstance NC.FileSubstanceDirtyP NC.GetFileSubstance NC.MarkFileSubstanceDirty NC.PutFileSubstance NC.QuitFileSubstance NC.FileCardPutFile) (* ;;; "Utilities") (FNS NC.FileCardFileVersionNumber NC.FileCardTitle NC.FetchTextStream NC.GetFileFromUser NC.MakeFileCardCore NC.SetTextStream NC.FileCardShrinkFn) (BITMAPS NC.FileCardIcon) (FNS NC.AddFileCardType) (DECLARE%: DONTEVAL@LOAD (* * Add file card type to CardTypes list) (P (NC.AddFileCardType)) (* * Hang an ExportSubstanceFn off the File litatom.) (P (PUTPROP 'File 'ExportSubstanceFn (FUNCTION OPENTEXTSTREAM])(DECLARE%: DONTCOPY (PUTPROPS NCFILECARD MAKEFILE-ENVIRONMENT (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))(PUTPROPS NCFILECARD FILETYPE :FAKE-COMPILE-FILE))(DEFINEQ(NCAddStub.FileCard
1+
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
2+
3+
(FILECREATED "25-Mar-2024 13:01:51" {DSK}<home>frank>il>notecards>system>NCFILECARD.;1 18395
4+
5+
:CHANGES-TO (FNS NC.QuitFileSubstance)
6+
7+
:PREVIOUS-DATE " 5-Nov-2020 19:31:00" {DSK}<home>frank>il>notecards>library>NCFILECARD.;1)
8+
9+
10+
(PRETTYCOMPRINT NCFILECARDCOMS)
11+
12+
(RPAQQ NCFILECARDCOMS
13+
[(DECLARE%: DONTCOPY (PROPS (NCFILECARD MAKEFILE-ENVIRONMENT)
14+
(NCFILECARD FILETYPE)))
15+
(FNS NCAddStub.FileCard)
16+
17+
18+
(* ;;; "Globalvars from elsewhere")
19+
20+
(GLOBALVARS NC.DefaultFont TEDIT.DEFAULT.MENU NC.FileCardIcon)
21+
22+
23+
(* ;;; "Substance functions")
24+
25+
(FNS NC.MakeFileCard NC.EditFileSubstance NC.FileSubstanceDirtyP NC.GetFileSubstance
26+
NC.MarkFileSubstanceDirty NC.PutFileSubstance NC.QuitFileSubstance NC.FileCardPutFile)
27+
28+
29+
(* ;;; "Utilities")
30+
31+
(FNS NC.FileCardFileVersionNumber NC.FileCardTitle NC.FetchTextStream NC.GetFileFromUser
32+
NC.MakeFileCardCore NC.SetTextStream NC.FileCardShrinkFn)
33+
(BITMAPS NC.FileCardIcon)
34+
(FNS NC.AddFileCardType)
35+
(DECLARE%: DONTEVAL@LOAD (* * Add file card type to CardTypes list)
36+
(P (NC.AddFileCardType))
37+
(* * Hang an ExportSubstanceFn off the File litatom.)
38+
(P (PUTPROP 'File 'ExportSubstanceFn (FUNCTION OPENTEXTSTREAM])
39+
(DECLARE%: DONTCOPY
40+
41+
(PUTPROPS NCFILECARD MAKEFILE-ENVIRONMENT (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
42+
43+
(PUTPROPS NCFILECARD FILETYPE :FAKE-COMPILE-FILE)
44+
)
45+
(DEFINEQ
46+
47+
(NCAddStub.FileCard
248
(LAMBDA NIL (* ; "Edited 5-Dec-87 20:02 by rht:")
349

450
(* * kirk 18Jun86 Add the text card stub)
@@ -8,7 +54,25 @@
854
(DECLARE (GLOBALVARS NC.FileCardIcon))
955
(NC.AddCardTypeStub 'File 'NoteCard 'NCFILECARD NIL `((DisplayedInMenuFlg T)
1056
(LinkIconAttachedBitMap ,NC.FileCardIcon)))
11-
)))(* ;;; "Globalvars from elsewhere")(DECLARE%: DOEVAL@COMPILE DONTCOPY(GLOBALVARS NC.DefaultFont TEDIT.DEFAULT.MENU NC.FileCardIcon))(* ;;; "Substance functions")(DEFINEQ(NC.MakeFileCard
57+
))
58+
)
59+
60+
61+
62+
(* ;;; "Globalvars from elsewhere")
63+
64+
(DECLARE%: DOEVAL@COMPILE DONTCOPY
65+
66+
(GLOBALVARS NC.DefaultFont TEDIT.DEFAULT.MENU NC.FileCardIcon)
67+
)
68+
69+
70+
71+
(* ;;; "Substance functions")
72+
73+
(DEFINEQ
74+
75+
(NC.MakeFileCard
1276
[LAMBDA (Card Title NoDisplayFlg ParamList InterestedWindow RegionOrPosition)
1377
(* ; "Edited 5-Aug-88 15:47 by Trigg")
1478

@@ -23,7 +87,9 @@
2387
ReturnValue))
2488
(T (AND (OPENWP (NC.FetchWindow Card))
2589
(CLOSEW (NC.FetchWindow Card)))
26-
NIL])(NC.EditFileSubstance
90+
NIL])
91+
92+
(NC.EditFileSubstance
2793
(LAMBDA (Card FileDesignator RegionOrPosition) (* rht%: "29-Apr-87 16:32")
2894

2995
(* * Bring up a TEdit window for Card ID whose substance is specified by file
@@ -84,7 +150,9 @@
84150
(NC.SetTextStream Card (SETQ TextStream (WINDOWPROP TEditWindow 'TEXTSTREAM)))
85151
(STREAMPROP TextStream 'NoteCardObject Card)
86152
(NC.PutProp Card 'FileVersion (NC.FileCardFileVersionNumber Card))
87-
(RETURN TEditWindow))))(NC.FileSubstanceDirtyP
153+
(RETURN TEditWindow))))
154+
155+
(NC.FileSubstanceDirtyP
88156
(LAMBDA (Card) (* fgh%: "17-Dec-85 18:23")
89157

90158
(* * Return T is TextSubstance has been changed.)
@@ -93,7 +161,9 @@
93161

94162
(LET (TextStream)
95163
(AND (SETQ TextStream (NC.FetchTextStream Card))
96-
(TEDIT.STREAMCHANGEDP TextStream)))))(NC.GetFileSubstance
164+
(TEDIT.STREAMCHANGEDP TextStream)))))
165+
166+
(NC.GetFileSubstance
97167
(LAMBDA (Card Length Stream VersionNumber) (* fgh%: " 3-Jun-86 15:45")
98168

99169
(* * Read the File designator from DatabaseStream)
@@ -103,7 +173,9 @@
103173
(* * fgh |6/3/86| Added Stream and VersionNumber args and made READ from
104174
Stream.)
105175

106-
(READ Stream)))(NC.MarkFileSubstanceDirty
176+
(READ Stream)))
177+
178+
(NC.MarkFileSubstanceDirty
107179
(LAMBDA (Card ResetFlg) (* fgh%: "17-Dec-85 18:24")
108180

109181
(* * Mark or unmark TextStream of File being changed.)
@@ -114,7 +186,9 @@
114186
(AND Window (SETQ TextObj (WINDOWPROP Window 'TEXTOBJ))
115187
(replace (TEXTOBJ \DIRTY) of TextObj with (COND
116188
(ResetFlg NIL)
117-
(T T)))))))(NC.PutFileSubstance
189+
(T T)))))))
190+
191+
(NC.PutFileSubstance
118192
(LAMBDA (Card Stream) (* fgh%: " 3-Jun-86 15:45")
119193

120194
(* * Put a file designator onto DatabaseStream)
@@ -131,23 +205,27 @@
131205

132206
(PRINT (NC.FetchSubstance Card)
133207
Stream)
134-
0))(NC.QuitFileSubstance
135-
(LAMBDA (WindowOrTextStreamOrCard) (* rht%: "16-Oct-86 16:59")
136-
137-
(* * fgh |12/17/85| Updated for 1.3)
138-
139-
(* * rht 10/16/86%: Removed call to NC.DeactivateCard.)
208+
0))
209+
210+
(NC.QuitFileSubstance
211+
[LAMBDA (WindowOrTextStreamOrCard) (* rht%: "16-Oct-86 16:59")
212+
213+
(* * fgh |12/17/85| Updated for 1.3)
214+
215+
(* * rht 10/16/86%: Removed call to NC.DeactivateCard.)
140216

141217
(LET (Window PromptWindow TextStream TextStreamChanged (Card (NC.CoerceToCard
142218
WindowOrTextStreamOrCard)))
143219
(SETQ TextStream (NC.FetchTextStream Card))
144220
(SETQ Window (NC.FetchWindow Card))
145-
(COND
221+
[COND
146222
(Window (WINDOWDELPROP Window 'CLOSEFN (FUNCTION NC.QuitCard))
147223
(TEDIT.QUIT TextStream)
148-
(AND (SETQ PromptWindow (fetch (TEXTOBJ PROMPTWINDOW) of (TEXTOBJ TextStream)))
149-
(CLOSEW PromptWindow))))
150-
(NC.SetTextStream Card NIL))))(NC.FileCardPutFile
224+
(AND (SETQ PromptWindow (TEDIT.PROMPTWINDOW TextStream))
225+
(CLOSEW PromptWindow]
226+
(NC.SetTextStream Card NIL])
227+
228+
(NC.FileCardPutFile
151229
[LAMBDA (WindowOrCard DatabaseStream QuittingFlg) (* ; "Edited 15-Sep-88 14:47 by Trigg")
152230

153231
(* ;;; "Do the work to save a file card. That is you must put the file if its changed as well as write thee notecard info to the NoteFile")
@@ -161,7 +239,16 @@
161239
(SETQ TextStream (NC.FetchTextStream Card))
162240
(if (AND TextStream (TEDIT.STREAMCHANGEDP TextStream))
163241
then (TEDIT.PUT TextStream (NC.FetchSubstance Card))
164-
(NC.PutProp Card 'FileVersion (NC.FileCardFileVersionNumber Card]))(* ;;; "Utilities")(DEFINEQ(NC.FileCardFileVersionNumber
242+
(NC.PutProp Card 'FileVersion (NC.FileCardFileVersionNumber Card])
243+
)
244+
245+
246+
247+
(* ;;; "Utilities")
248+
249+
(DEFINEQ
250+
251+
(NC.FileCardFileVersionNumber
165252
(LAMBDA (Card) (* fgh%: "17-Dec-85 18:17")
166253

167254
(* * Return the current version number of the file reffered to by the file card
@@ -170,7 +257,9 @@
170257
(* * fgh |12/17/85| Updated for 1.3)
171258

172259
(FILENAMEFIELD (FULLNAME (fetch (TEXTOBJ TXTFILE) of (TEXTOBJ (NC.FetchTextStream Card))))
173-
'VERSION)))(NC.FileCardTitle
260+
'VERSION)))
261+
262+
(NC.FileCardTitle
174263
(LAMBDA (Card) (* rht%: "25-Mar-87 15:40")
175264

176265
(* * Determine the title for file card ID)
@@ -181,12 +270,16 @@
181270
(CONCAT (FILENAMEFIELD FileName 'NAME)
182271
"."
183272
(OR (FILENAMEFIELD FileName 'EXTENSION)
184-
"")))))(NC.FetchTextStream
273+
"")))))
274+
275+
(NC.FetchTextStream
185276
(LAMBDA (Card) (* fgh%: "17-Dec-85 19:32")
186277

187278
(* * fgh |12/17/85| Updated for 1.3)
188279

189-
(NC.FetchUserDataProp Card 'NoteCardTextStream)))(NC.GetFileFromUser
280+
(NC.FetchUserDataProp Card 'NoteCardTextStream)))
281+
282+
(NC.GetFileFromUser
190283
(LAMBDA (Window DontClearPromptFlg FirstTry) (* rht%: "29-Apr-87 15:00")
191284

192285
(* * Create a file designator)
@@ -217,7 +310,9 @@
217310
Window NIL NIL T))
218311
(NC.GetFileFromUser Window DontClearPromptFlg FirstTry))
219312
(T NIL))
220-
(NC.ClearMsg Window T)))))(NC.MakeFileCardCore
313+
(NC.ClearMsg Window T)))))
314+
315+
(NC.MakeFileCardCore
221316
[LAMBDA (Card Title NoDisplayFlg ParamList InterestedWindow RegionOrPosition)
222317
(* ; "Edited 5-Aug-88 15:48 by Trigg")
223318

@@ -262,13 +357,17 @@
262357
else (SETQ FileName (NC.GetFileFromUser))
263358
(NC.SetSubstance Card FileName)
264359
(NC.SetTitle Card (NC.FileCardTitle Card))
265-
Card])(NC.SetTextStream
360+
Card])
361+
362+
(NC.SetTextStream
266363
(LAMBDA (Card TextStream) (* fgh%: "17-Dec-85 19:30")
267364

268365
(* * fgh |12/17/85| Updated for 1.3)
269366

270367
(NC.SetUserDataProp Card 'NoteCardTextStream TextStream)
271-
TextStream))(NC.FileCardShrinkFn
368+
TextStream))
369+
370+
(NC.FileCardShrinkFn
272371
[LAMBDA (W) (* ; "Edited 5-Feb-88 23:27 by Trigg")
273372

274373
(* ;;; "This is in order to get the right title on the TEdit icon. This is a kludgy finesse around TEdit's shrunken icon title facility.")
@@ -277,7 +376,14 @@
277376
 "rht 2/5/88: Now just calls TextCard's shrink fn, slightly modifying the shrunken icon title.")
278377

279378
(NC.TextCardShrinkFn W (CONCAT "File Card" (CHARACTER 13)
280-
"NC: "]))(RPAQQ NC.FileCardIcon #*(21 18)OOOOOH@@OOOOOH@@OOOOOH@@OOOOOH@@H@@@@H@@H@@@@H@@KMBANH@@JABA@H@@JABA@H@@JABA@H@@KIBALH@@JABA@H@@JABA@H@@JABA@H@@JACMNH@@H@@@@H@@H@@@@H@@OOOOOH@@)(DEFINEQ(NC.AddFileCardType
379+
"NC: "])
380+
)
381+
382+
(RPAQQ NC.FileCardIcon #*(21 18)OOOOOH@@OOOOOH@@OOOOOH@@OOOOOH@@H@@@@H@@H@@@@H@@KMBANH@@JABA@H@@JABA@H@@JABA@H@@KIBALH@@JABA@H@@JABA@H@@JABA@H@@JACMNH@@H@@@@H@@H@@@@H@@OOOOOH@@
383+
)
384+
(DEFINEQ
385+
386+
(NC.AddFileCardType
281387
(LAMBDA NIL (* ; "Edited 5-Dec-87 20:02 by rht:")
282388

283389
(* * Add a file card type to the card types list)
@@ -303,4 +409,21 @@
303409
"Close this note card after saving it in the NoteFile."
304410
)
305411
else Item)))
306-
(LinkIconAttachedBitMap ,NC.FileCardIcon))))))(DECLARE%: DONTEVAL@LOAD (NC.AddFileCardType)(PUTPROP 'File 'ExportSubstanceFn (FUNCTION OPENTEXTSTREAM)))(PUTPROPS NCFILECARD COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1989 1993 1994 2020))(DECLARE%: DONTCOPY (FILEMAP (NIL (1750 2249 (NCAddStub.FileCard 1760 . 2247)) (2433 10425 (NC.MakeFileCard 2443 . 3262) (NC.EditFileSubstance 3264 . 6890) (NC.FileSubstanceDirtyP 6892 . 7274) (NC.GetFileSubstance 7276 . 7654) (NC.MarkFileSubstanceDirty 7656 . 8244) (NC.PutFileSubstance 8246 . 8790) (NC.QuitFileSubstance 8792 . 9660) (NC.FileCardPutFile 9662 . 10423)) (10454 16927 (NC.FileCardFileVersionNumber 10464 . 10891) (NC.FileCardTitle 10893 . 11354) (NC.FetchTextStream 11356 . 11581) (NC.GetFileFromUser 11583 . 13408) (NC.MakeFileCardCore 13410 . 16151) (NC.SetTextStream 16153 . 16400) (NC.FileCardShrinkFn 16402 . 16925)) (17112 18433 (NC.AddFileCardType 17122 . 18431)))))STOP
412+
(LinkIconAttachedBitMap ,NC.FileCardIcon)))))
413+
)
414+
(DECLARE%: DONTEVAL@LOAD
415+
416+
(NC.AddFileCardType)
417+
418+
419+
(PUTPROP 'File 'ExportSubstanceFn (FUNCTION OPENTEXTSTREAM))
420+
)
421+
(DECLARE%: DONTCOPY
422+
(FILEMAP (NIL (1618 2117 (NCAddStub.FileCard 1628 . 2115)) (2301 10247 (NC.MakeFileCard 2311 . 3130) (
423+
NC.EditFileSubstance 3132 . 6758) (NC.FileSubstanceDirtyP 6760 . 7142) (NC.GetFileSubstance 7144 .
424+
7522) (NC.MarkFileSubstanceDirty 7524 . 8112) (NC.PutFileSubstance 8114 . 8658) (NC.QuitFileSubstance
425+
8660 . 9482) (NC.FileCardPutFile 9484 . 10245)) (10276 16749 (NC.FileCardFileVersionNumber 10286 .
426+
10713) (NC.FileCardTitle 10715 . 11176) (NC.FetchTextStream 11178 . 11403) (NC.GetFileFromUser 11405
427+
. 13230) (NC.MakeFileCardCore 13232 . 15973) (NC.SetTextStream 15975 . 16222) (NC.FileCardShrinkFn
428+
16224 . 16747)) (16934 18255 (NC.AddFileCardType 16944 . 18253)))))
429+
STOP

‎library/NCFILECARD.LCOM‎

-191 Bytes
Binary file not shown.

‎system/NCCARDS‎

Lines changed: 18 additions & 18 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 "10-Mar-2024 23:36:16" {DSK}<home>frank>il>notecards>system>NCCARDS.;14 210257
3+
(FILECREATED "25-Mar-2024 12:53:03" {DSK}<home>frank>il>notecards>system>NCCARDS.;16 210260
44

55
:CHANGES-TO (FNS NC.EditPropList)
66

7-
:PREVIOUS-DATE " 8-Mar-2024 15:44:15" {DSK}<home>frank>il>notecards>system>NCCARDS.;13)
7+
:PREVIOUS-DATE "10-Mar-2024 23:36:16" {DSK}<home>frank>il>notecards>system>NCCARDS.;15)
88

99

1010
(PRETTYCOMPRINT NCCARDSCOMS)
@@ -3190,7 +3190,7 @@
31903190
(WINDOWPROP editW 'PROPERTYLIST.PROPNAMES (for Item in propList collect (CAR Item)))
31913191
(* ;
31923192
 "Set the right margin to very-far-away. Prevents stuff from wrapping around")
3193-
(TEDIT.PARALOOKS textObj '(RIGHTMARGIN 1000 TABS (50 (80 . LEFT)))
3193+
(TEDIT.PARALOOKS menuStream '(RIGHTMARGIN 1000 TABS (50 (80 . LEFT)))
31943194
1
31953195
(GETFILEINFO menuStream 'LENGTH)) (* ;
31963196
 "Set the first tab so the fields will line up correctly")
@@ -4028,22 +4028,22 @@ NC.UnfileNoteCard 124110 . 127234) (NC.UpdateUpdateList 127236 . 128078) (NC.Col
40284028
. 129519) (NC.CardSaveFn 129521 . 138318) (NC.DetermineDisplayRegion 138320 . 144299) (NC.AbortCard
40294029
144301 . 144833) (NC.CardNeedsFilingP 144835 . 146303) (NC.TopLevelCardP 146305 . 146635) (
40304030
NC.MakeDummyRegion 146637 . 147128) (NC.ValidCardP 147130 . 147601) (NC.TitleBarButtonEventFn 147603
4031-
. 148656) (NC.InstallTitleBarMiddleMenu 148658 . 149707)) (149745 194931 (NC.AddPropToPropList 149755
4031+
. 148656) (NC.InstallTitleBarMiddleMenu 148658 . 149707)) (149745 194934 (NC.AddPropToPropList 149755
40324032
. 154020) (NC.CloseAllPropListEditors 154022 . 154886) (NC.ClosePropListEditor 154888 . 158690) (
40334033
NC.DelPropFromList 158692 . 160785) (NC.EditPropButtonFN 160787 . 161092) (NC.EditProperties 161094 .
4034-
163491) (NC.EditPropList 163493 . 171312) (NC.ExtractPropList 171314 . 176651) (NC.OpenPropListEditor
4035-
176653 . 182506) (NC.ProcessEditedPropList 182508 . 184252) (NC.PropListEditorOpenP 184254 . 185346) (
4036-
NC.SelectProperty 185348 . 186384) (NC.ShowLinks 186386 . 192504) (NC.StringIsListP 192506 . 193618) (
4037-
NC.PutProp 193620 . 194291) (NC.GetProp 194293 . 194648) (NC.RemProp 194650 . 194929)) (194968 197433
4038-
(NC.FetchBeingDeletedFlg 194978 . 195401) (NC.SetBeingDeletedFlg 195403 . 195837) (
4039-
NC.RemoveDELETEMEImageObjsFromCard 195839 . 196997) (NC.InsureIntegerDate 196999 . 197431)) (197478
4040-
200276 (NC.PlaceMarkerCopyFn 197488 . 197672) (NC.PlaceMarkerDisplayFn 197674 . 198269) (
4041-
NC.PlaceMarkerGetFn 198271 . 198435) (NC.PlaceMarkerImageBoxFn 198437 . 199333) (NC.PlaceMarkerPutFn
4042-
199335 . 199571) (NC.MakePlaceMarker 199573 . 200274)) (200325 208217 (NC.FetchTitleDate 200335 .
4043-
200933) (NC.FetchItemDate 200935 . 201530) (NC.FetchPropListDate 201532 . 202140) (NC.FetchLinksDate
4044-
202142 . 202740) (NC.FetchLinkIconAttachedBitMap 202742 . 207086) (NC.FetchLinkDisplayMode 207088 .
4045-
207388) (NC.FetchDefaultWidth 207390 . 207672) (NC.FetchDefaultHeight 207674 . 207955) (
4046-
NC.FetchLinkAnchorModesSupported 207957 . 208215)) (208218 210081 (NC.SetTitleDate 208228 . 208690) (
4047-
NC.SetItemDate 208692 . 209146) (NC.SetPropListDate 209148 . 209615) (NC.SetLinksDate 209617 . 210079)
4034+
163491) (NC.EditPropList 163493 . 171315) (NC.ExtractPropList 171317 . 176654) (NC.OpenPropListEditor
4035+
176656 . 182509) (NC.ProcessEditedPropList 182511 . 184255) (NC.PropListEditorOpenP 184257 . 185349) (
4036+
NC.SelectProperty 185351 . 186387) (NC.ShowLinks 186389 . 192507) (NC.StringIsListP 192509 . 193621) (
4037+
NC.PutProp 193623 . 194294) (NC.GetProp 194296 . 194651) (NC.RemProp 194653 . 194932)) (194971 197436
4038+
(NC.FetchBeingDeletedFlg 194981 . 195404) (NC.SetBeingDeletedFlg 195406 . 195840) (
4039+
NC.RemoveDELETEMEImageObjsFromCard 195842 . 197000) (NC.InsureIntegerDate 197002 . 197434)) (197481
4040+
200279 (NC.PlaceMarkerCopyFn 197491 . 197675) (NC.PlaceMarkerDisplayFn 197677 . 198272) (
4041+
NC.PlaceMarkerGetFn 198274 . 198438) (NC.PlaceMarkerImageBoxFn 198440 . 199336) (NC.PlaceMarkerPutFn
4042+
199338 . 199574) (NC.MakePlaceMarker 199576 . 200277)) (200328 208220 (NC.FetchTitleDate 200338 .
4043+
200936) (NC.FetchItemDate 200938 . 201533) (NC.FetchPropListDate 201535 . 202143) (NC.FetchLinksDate
4044+
202145 . 202743) (NC.FetchLinkIconAttachedBitMap 202745 . 207089) (NC.FetchLinkDisplayMode 207091 .
4045+
207391) (NC.FetchDefaultWidth 207393 . 207675) (NC.FetchDefaultHeight 207677 . 207958) (
4046+
NC.FetchLinkAnchorModesSupported 207960 . 208218)) (208221 210084 (NC.SetTitleDate 208231 . 208693) (
4047+
NC.SetItemDate 208695 . 209149) (NC.SetPropListDate 209151 . 209618) (NC.SetLinksDate 209620 . 210082)
40484048
))))
40494049
STOP

‎system/NCCARDS.LCOM‎

0 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)