Skip to content

Commit d4b8656

Browse files
rmkaplanrmkaplan
authored
TEDIT: Fix image object glitch plus minor extensions (#2049)
* Paren error when selection looks set to INVERTED * Add SET, SHADE, and SHADEHEIGHT properties to TEDIT.SELPROP * Add QUIET as optional last argument to TEDIT.FORMAT.HARDCOPY, suppress prompt-window message * COLLECT? argument to TEDIT.MAP.OBJECTS can specify what kind of information to collect.
1 parent 0aa52aa commit d4b8656

8 files changed

+130
-118
lines changed

‎library/tedit/TEDIT

+39-31
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "20-Feb-2025 08:50:50" {WMEDLEY}<library>tedit>TEDIT.;763 154870
3+
(FILECREATED "25-Feb-2025 15:07:03" {WMEDLEY}<library>TEDIT>TEDIT.;765 155339
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS TEDITSTRING)
7+
:CHANGES-TO (FNS TEDIT.MAP.OBJECTS TEDIT.INSERT.OBJECT)
88

9-
:PREVIOUS-DATE "19-Feb-2025 13:30:08" {WMEDLEY}<library>tedit>TEDIT.;762)
9+
:PREVIOUS-DATE "20-Feb-2025 08:50:50" {WMEDLEY}<library>TEDIT>TEDIT.;763)
1010

1111

1212
(PRETTYCOMPRINT TEDITCOMS)
@@ -749,7 +749,8 @@
749749
(DEFINEQ
750750

751751
(TEDIT.INSERT.OBJECT
752-
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 2-Feb-2025 11:37 by rmk")
752+
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 25-Feb-2025 11:18 by rmk")
753+
(* ; "Edited 2-Feb-2025 11:37 by rmk")
753754
(* ; "Edited 26-Dec-2024 10:13 by rmk")
754755
(* ; "Edited 21-Oct-2024 00:26 by rmk")
755756
(* ; "Edited 2-Aug-2024 08:46 by rmk")
@@ -815,7 +816,7 @@
815816
(CL:WHEN (type? SELECTION CH#)
816817
(SETQ CH# (GETSEL CH# CH#)))
817818
(CL:WHEN (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE)
818-
(\TEDIT.DELETE TEXTOBJ SEL T))
819+
(\TEDIT.DELETE TEXTOBJ SEL))
819820
(CL:WHEN CH#
820821
(\TEDIT.UPDATE.SEL SEL (IMIN CH# (ADD1 (TEXTLEN TEXTOBJ)))
821822
0
@@ -948,7 +949,8 @@
948949
else (TEDIT.PROMPTPRINT TSTREAM "Changed object not found in document" T])
949950

950951
(TEDIT.MAP.OBJECTS
951-
[LAMBDA (TSTREAM FN FNARG COLLECT?) (* ; "Edited 23-Apr-2024 09:15 by rmk")
952+
[LAMBDA (TSTREAM FN FNARG COLLECT?) (* ; "Edited 25-Feb-2025 15:06 by rmk")
953+
(* ; "Edited 23-Apr-2024 09:15 by rmk")
952954
(* ; "Edited 16-Mar-2024 10:03 by rmk")
953955
(* ; "Edited 4-Mar-2024 16:12 by rmk")
954956
(* ; "Edited 6-Nov-2022 12:15 by rmk")
@@ -963,7 +965,13 @@
963965
when (AND (EQ OBJECT.PTYPE (PTYPE PC))
964966
(type? IMAGEOBJ (SETQ OBJ (PCONTENTS PC)))
965967
(SETQ FNVAL (APPLY* FN CH# OBJ FNARG)))
966-
do (CL:WHEN COLLECT?
968+
do (SELECTQ COLLECT?
969+
(NIL)
970+
(OBJECT (PUSH $$VAL OBJ))
971+
(CH# (PUSH $$VAL CH#))
972+
(VALUE (PUSH $$VAL CH#)
973+
FNVAL)
974+
(FIRST (RETURN (LIST CH# OBJ FNVAL)))
967975
(PUSH $$VAL (LIST CH# OBJ FNVAL)))
968976
(CL:WHEN (EQ FNVAL 'STOP)
969977
(GO $$OUT)) finally (RETURN (DREVERSE $$VAL])
@@ -2492,7 +2500,7 @@
24922500
(* ; "TEDIT Support information")
24932501

24942502

2495-
(RPAQQ TEDITSYSTEMDATE "20-Feb-2025 08:50:50")
2503+
(RPAQQ TEDITSYSTEMDATE "25-Feb-2025 15:07:03")
24962504

24972505

24982506

@@ -2502,27 +2510,27 @@
25022510
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
25032511
(EXTENSION (TEDIT))))
25042512
(DECLARE%: DONTCOPY
2505-
(FILEMAP (NIL (4625 6968 (MAKE-TEDIT-EXPORTS.ALL 4635 . 5181) (UPDATE-TEDIT 5183 . 6197) (EDIT-TEDIT
2506-
6199 . 6966)) (8662 36896 (TEDIT 8672 . 11250) (TEXTSTREAM 11252 . 13172) (TEXTSTREAMP 13174 . 13558)
2507-
(TEDITMENUP 13560 . 14326) (COERCETEXTSTREAM 14328 . 18539) (TEDIT.CONCAT 18541 . 21847) (TEDITSTRING
2508-
21849 . 22763) (TEDIT-SEE 22765 . 23324) (TEDIT.COPY 23326 . 25471) (TEDIT.DELETE 25473 . 26725) (
2509-
TEDIT.INSERT 26727 . 29685) (TEDIT.TERPRI 29687 . 30801) (TEDIT.KILL 30803 . 31719) (TEDIT.QUIT 31721
2510-
. 33087) (TEDIT.MOVE 33089 . 33977) (TEDIT.STRINGWIDTH 33979 . 34650) (TEDIT.CHARWIDTH 34652 . 36894)
2511-
) (36897 38838 (TEXTOBJ 36907 . 37372) (COERCETEXTOBJ 37374 . 38836)) (40238 41294 (TDRIBBLE 40248 .
2512-
41292)) (41335 56439 (TEDIT.INSERT.OBJECT 41345 . 46079) (TEDIT.EDIT.OBJECT 46081 . 48422) (
2513-
TEDIT.FIND.OBJECT 48424 . 49932) (TEDIT.FIND.OBJECT.BACKWARD 49934 . 51861) (TEDIT.OBJECT.CHANGED
2514-
51863 . 54730) (TEDIT.MAP.OBJECTS 54732 . 55967) (\TEDIT.FIRST.OBJPIECE 55969 . 56202) (
2515-
\TEDIT.NEXT.OBJPIECE 56204 . 56437)) (56462 63905 (\TEDIT.CONCAT.PAGEFRAMES 56472 . 61539) (
2516-
\TEDIT.GET.PAGE.HEADINGS 61541 . 62570) (\TEDIT.CONCAT.INSTALL.HEADINGS 62572 . 63903)) (63906 67335 (
2517-
\TEDIT.MOVE.MSG 63916 . 65997) (\TEDIT.READONLY 65999 . 67333)) (67336 82172 (TEDIT.NCHARS 67346 .
2518-
67719) (TEDIT.RPLCHARCODE 67721 . 75736) (TEDIT.NTHCHARCODE 75738 . 78095) (TEDIT.NTHCHAR 78097 .
2519-
78355) (\TEDIT.PIECE.NTHCHARCODE 78357 . 82170)) (82218 136670 (\TEDIT1 82228 . 84305) (\TEDIT.INSERT
2520-
84307 . 90284) (\TEDIT.MOVE 90286 . 97636) (\TEDIT.COPY 97638 . 101616) (\TEDIT.REPLACE.SELPIECES
2521-
101618 . 105598) (\TEDIT.INSERT.SELPIECES 105600 . 108485) (\TEDIT.RESTARTFN 108487 . 110992) (
2522-
\TEDIT.CHARDELETE 110994 . 113821) (\TEDIT.COPYPIECE 113823 . 118671) (\TEDIT.APPLY.OBJFN 118673 .
2523-
121870) (\TEDIT.DELETE 121872 . 126800) (\TEDIT.DIFFUSE.PARALOOKS 126802 . 129073) (\TEDIT.WORDDELETE
2524-
129075 . 130631) (\TEDIT.WORDDELETE.FORWARD 130633 . 132305) (\TEDIT.FINISHEDIT? 132307 . 136668)) (
2525-
136671 137330 (\TEDIT.THELP 136681 . 137328)) (137364 145254 (\TEDIT.PARAPIECES 137374 . 139348) (
2526-
\TEDIT.PARA.FIRST 139350 . 142217) (\TEDIT.PARA.LAST 142219 . 145252)) (145255 154220 (
2527-
\TEDIT.WORD.FIRST 145265 . 149921) (\TEDIT.WORD.LAST 149923 . 154218)))))
2513+
(FILEMAP (NIL (4651 6994 (MAKE-TEDIT-EXPORTS.ALL 4661 . 5207) (UPDATE-TEDIT 5209 . 6223) (EDIT-TEDIT
2514+
6225 . 6992)) (8688 36922 (TEDIT 8698 . 11276) (TEXTSTREAM 11278 . 13198) (TEXTSTREAMP 13200 . 13584)
2515+
(TEDITMENUP 13586 . 14352) (COERCETEXTSTREAM 14354 . 18565) (TEDIT.CONCAT 18567 . 21873) (TEDITSTRING
2516+
21875 . 22789) (TEDIT-SEE 22791 . 23350) (TEDIT.COPY 23352 . 25497) (TEDIT.DELETE 25499 . 26751) (
2517+
TEDIT.INSERT 26753 . 29711) (TEDIT.TERPRI 29713 . 30827) (TEDIT.KILL 30829 . 31745) (TEDIT.QUIT 31747
2518+
. 33113) (TEDIT.MOVE 33115 . 34003) (TEDIT.STRINGWIDTH 34005 . 34676) (TEDIT.CHARWIDTH 34678 . 36920)
2519+
) (36923 38864 (TEXTOBJ 36933 . 37398) (COERCETEXTOBJ 37400 . 38862)) (40264 41320 (TDRIBBLE 40274 .
2520+
41318)) (41361 56908 (TEDIT.INSERT.OBJECT 41371 . 46212) (TEDIT.EDIT.OBJECT 46214 . 48555) (
2521+
TEDIT.FIND.OBJECT 48557 . 50065) (TEDIT.FIND.OBJECT.BACKWARD 50067 . 51994) (TEDIT.OBJECT.CHANGED
2522+
51996 . 54863) (TEDIT.MAP.OBJECTS 54865 . 56436) (\TEDIT.FIRST.OBJPIECE 56438 . 56671) (
2523+
\TEDIT.NEXT.OBJPIECE 56673 . 56906)) (56931 64374 (\TEDIT.CONCAT.PAGEFRAMES 56941 . 62008) (
2524+
\TEDIT.GET.PAGE.HEADINGS 62010 . 63039) (\TEDIT.CONCAT.INSTALL.HEADINGS 63041 . 64372)) (64375 67804 (
2525+
\TEDIT.MOVE.MSG 64385 . 66466) (\TEDIT.READONLY 66468 . 67802)) (67805 82641 (TEDIT.NCHARS 67815 .
2526+
68188) (TEDIT.RPLCHARCODE 68190 . 76205) (TEDIT.NTHCHARCODE 76207 . 78564) (TEDIT.NTHCHAR 78566 .
2527+
78824) (\TEDIT.PIECE.NTHCHARCODE 78826 . 82639)) (82687 137139 (\TEDIT1 82697 . 84774) (\TEDIT.INSERT
2528+
84776 . 90753) (\TEDIT.MOVE 90755 . 98105) (\TEDIT.COPY 98107 . 102085) (\TEDIT.REPLACE.SELPIECES
2529+
102087 . 106067) (\TEDIT.INSERT.SELPIECES 106069 . 108954) (\TEDIT.RESTARTFN 108956 . 111461) (
2530+
\TEDIT.CHARDELETE 111463 . 114290) (\TEDIT.COPYPIECE 114292 . 119140) (\TEDIT.APPLY.OBJFN 119142 .
2531+
122339) (\TEDIT.DELETE 122341 . 127269) (\TEDIT.DIFFUSE.PARALOOKS 127271 . 129542) (\TEDIT.WORDDELETE
2532+
129544 . 131100) (\TEDIT.WORDDELETE.FORWARD 131102 . 132774) (\TEDIT.FINISHEDIT? 132776 . 137137)) (
2533+
137140 137799 (\TEDIT.THELP 137150 . 137797)) (137833 145723 (\TEDIT.PARAPIECES 137843 . 139817) (
2534+
\TEDIT.PARA.FIRST 139819 . 142686) (\TEDIT.PARA.LAST 142688 . 145721)) (145724 154689 (
2535+
\TEDIT.WORD.FIRST 145734 . 150390) (\TEDIT.WORD.LAST 150392 . 154687)))))
25282536
STOP

‎library/tedit/TEDIT-PAGE

+30-30
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "19-Feb-2025 13:33:12" {WMEDLEY}<library>tedit>TEDIT-PAGE.;207 133407
3+
(FILECREATED "23-Feb-2025 10:06:16" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;208 133418
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (MACROS \FIRST-COLUMN-START)
8-
(FNS \TEDIT.FORMATPAGE \TEDIT.FORMATTEXTBOX \TEDIT.SKIP.SPECIALCOND
9-
\TEDIT.HARDCOPY.PAGEHEADINGS \TEDIT.HARDCOPY-COLUMN-END)
7+
:CHANGES-TO (FNS TEDIT.FORMAT.HARDCOPY)
108

11-
:PREVIOUS-DATE " 8-Feb-2025 23:42:12" {WMEDLEY}<library>tedit>TEDIT-PAGE.;206)
9+
:PREVIOUS-DATE "19-Feb-2025 13:33:12" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;207)
1210

1311

1412
(PRETTYCOMPRINT TEDIT-PAGECOMS)
@@ -632,7 +630,8 @@
632630

633631
(TEDIT.FORMAT.HARDCOPY
634632
[LAMBDA (TEXTSTREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# STARTPG
635-
ENDPG) (* ; "Edited 30-Aug-2024 15:45 by rmk")
633+
ENDPG QUIET) (* ; "Edited 23-Feb-2025 09:59 by rmk")
634+
(* ; "Edited 30-Aug-2024 15:45 by rmk")
636635
(* ; "Edited 10-Jul-2024 23:34 by rmk")
637636
(* ; "Edited 29-Jun-2024 10:32 by rmk")
638637
(* ; "Edited 5-Apr-2024 08:01 by rmk")
@@ -702,7 +701,7 @@
702701
[SETQ SCRATCHFILE (OR FILE (PRINTER.SCRATCH.FILE (TEXTSTREAM TEXTSTREAM]
703702
(RESETLST (* ;
704703
 "Set up to do the user's cleanup on the way out, as well.")
705-
(TEDIT.PROMPTPRINT TEXTOBJ "Formatting for print..." T)
704+
(CL:UNLESS QUIET (TEDIT.PROMPTPRINT TEXTOBJ "Formatting for print..." T))
706705
[COND
707706
((AND FILE (OPENP FILE)
708707
(IMAGESTREAMTYPE FILE)) (* ;
@@ -759,15 +758,16 @@
759758
(FUNCTION NILL))
760759
TEXTSTREAM))
761760
(SETQ NPAGES (GETPFS FORMATTINGSTATE PAGECOUNT))
762-
(TEDIT.PROMPTPRINT TEXTOBJ (CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES)
763-
""
764-
"s")
765-
" printed"
766-
(CL:IF (EQ FILE SCRATCHFILE)
767-
(CONCAT " to " (OR TARGETFILENAME (FULLNAME
768-
FILE)))
769-
""))
770-
T)
761+
(CL:UNLESS QUIET
762+
(TEDIT.PROMPTPRINT TEXTOBJ (CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES)
763+
""
764+
"s")
765+
" printed"
766+
(CL:IF (EQ FILE SCRATCHFILE)
767+
(CONCAT " to " (OR TARGETFILENAME
768+
(FULLNAME FILE)))
769+
""))
770+
T))
771771
(RETURN NPAGES)))])
772772
)
773773

@@ -2084,18 +2084,18 @@
20842084
(RETURN (DREMOVE NIL $$VAL])
20852085
)
20862086
(DECLARE%: DONTCOPY
2087-
(FILEMAP (NIL (12266 15878 (\TEDIT.PARSE.PAGEFRAMES 12276 . 14055) (\TEDIT.PUT.PAGEFRAMES 14057 .
2088-
14881) (\TEDIT.UNPARSE.PAGEFRAMES 14883 . 15876)) (15941 37839 (TEDIT.SINGLE.PAGEFORMAT 15951 . 26825)
2089-
(TEDIT.COMPOUND.PAGEFORMAT 26827 . 27806) (TEDIT.PAGEFORMAT 27808 . 35097) (TEDIT.GET.PAGEFORMAT
2090-
35099 . 37837)) (38126 48628 (TEDIT.FORMAT.HARDCOPY 38136 . 48626)) (48715 101192 (\TEDIT.FORMATBOX
2091-
48725 . 61828) (\TEDIT.FORMATHEADING 61830 . 66476) (\TEDIT.FORMATPAGE 66478 . 75345) (
2092-
\TEDIT.FORMATTEXTBOX 75347 . 91728) (\TEDIT.FORMATFOLIO 91730 . 97047) (\TEDIT.FORMAT.FOUNDBOX? 97049
2093-
. 99088) (\TEDIT.SKIP.SPECIALCOND 99090 . 101190)) (101272 105981 (\TEDIT.HARDCOPY.PAGEHEADINGS
2094-
101282 . 105979)) (106090 114141 (\TEDIT.HARDCOPY-COLUMN-END 106100 . 114139)) (114186 119127 (
2095-
SCALEPAGEUNITS 114196 . 115337) (SCALEPAGEXUNITS 115339 . 116109) (SCALEPAGEYUNITS 116111 . 116882) (
2096-
\TEDIT.PAPERHEIGHT 116884 . 117819) (\TEDIT.PAPERWIDTH 117821 . 119125)) (119543 123111 (ROMANNUMERALS
2097-
119553 . 123109)) (123150 130416 (TEDIT.PAGENO.CREATE 123160 . 123536) (\TEDIT.PAGENO.OBJINIT 123538
2098-
. 124821) (\TEDIT.PAGENO.BUTTONEVENTINFN 124823 . 125889) (\TEDIT.PAGENO.IMAGEBOXFN 125891 . 128041)
2099-
(\TEDIT.PAGENO.DISPLAYFN 128043 . 129693) (\TEDIT.PAGENO.GETFN 129695 . 130087) (\TEDIT.PAGENO.PUTFN
2100-
130089 . 130414)) (130481 133384 (\TEDIT.FORMAT.FOOTNOTE 130491 . 133382)))))
2087+
(FILEMAP (NIL (12098 15710 (\TEDIT.PARSE.PAGEFRAMES 12108 . 13887) (\TEDIT.PUT.PAGEFRAMES 13889 .
2088+
14713) (\TEDIT.UNPARSE.PAGEFRAMES 14715 . 15708)) (15773 37671 (TEDIT.SINGLE.PAGEFORMAT 15783 . 26657)
2089+
(TEDIT.COMPOUND.PAGEFORMAT 26659 . 27638) (TEDIT.PAGEFORMAT 27640 . 34929) (TEDIT.GET.PAGEFORMAT
2090+
34931 . 37669)) (37958 48639 (TEDIT.FORMAT.HARDCOPY 37968 . 48637)) (48726 101203 (\TEDIT.FORMATBOX
2091+
48736 . 61839) (\TEDIT.FORMATHEADING 61841 . 66487) (\TEDIT.FORMATPAGE 66489 . 75356) (
2092+
\TEDIT.FORMATTEXTBOX 75358 . 91739) (\TEDIT.FORMATFOLIO 91741 . 97058) (\TEDIT.FORMAT.FOUNDBOX? 97060
2093+
. 99099) (\TEDIT.SKIP.SPECIALCOND 99101 . 101201)) (101283 105992 (\TEDIT.HARDCOPY.PAGEHEADINGS
2094+
101293 . 105990)) (106101 114152 (\TEDIT.HARDCOPY-COLUMN-END 106111 . 114150)) (114197 119138 (
2095+
SCALEPAGEUNITS 114207 . 115348) (SCALEPAGEXUNITS 115350 . 116120) (SCALEPAGEYUNITS 116122 . 116893) (
2096+
\TEDIT.PAPERHEIGHT 116895 . 117830) (\TEDIT.PAPERWIDTH 117832 . 119136)) (119554 123122 (ROMANNUMERALS
2097+
119564 . 123120)) (123161 130427 (TEDIT.PAGENO.CREATE 123171 . 123547) (\TEDIT.PAGENO.OBJINIT 123549
2098+
. 124832) (\TEDIT.PAGENO.BUTTONEVENTINFN 124834 . 125900) (\TEDIT.PAGENO.IMAGEBOXFN 125902 . 128052)
2099+
(\TEDIT.PAGENO.DISPLAYFN 128054 . 129704) (\TEDIT.PAGENO.GETFN 129706 . 130098) (\TEDIT.PAGENO.PUTFN
2100+
130100 . 130425)) (130492 133395 (\TEDIT.FORMAT.FOOTNOTE 130502 . 133393)))))
21012101
STOP

‎library/tedit/TEDIT-PAGE.LCOM

-183 Bytes
Binary file not shown.

‎library/tedit/TEDIT-SCREEN

+23-24
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "19-Feb-2025 13:38:09" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;864 188987
3+
(FILECREATED "25-Feb-2025 10:40:05" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;866 188857
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS \TEDIT.FORMATLINE \TEDIT.FORMATLINE.SETUP.PARA \TEDIT.FORMATLINE.HORIZONTAL
8-
\TEDIT.FORMATLINE.VERTICAL \TEDIT.FORMATLINE.TABS \TEDIT.FORMATLINE.EMPTY
9-
\TEDIT.DISPLAYLINE \TEDIT.DISPLAYLINE.TABS \TEDIT.LINE.BOTTOM
10-
\TEDIT.LASTVALIDLINE)
7+
:CHANGES-TO (FNS \TEDIT.FORMATLINE)
118

12-
:PREVIOUS-DATE "12-Feb-2025 19:34:33" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;862)
9+
:PREVIOUS-DATE "19-Feb-2025 13:38:09" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;864)
1310

1411

1512
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
@@ -690,6 +687,7 @@
690687

691688
(\TEDIT.FORMATLINE
692689
[LAMBDA (TSTREAM CH#1 LINE REGION IMAGESTREAM FORMATTINGSTATE)
690+
(* ; "Edited 25-Feb-2025 10:39 by rmk")
693691
(* ; "Edited 19-Feb-2025 13:36 by rmk")
694692
(* ; "Edited 10-Feb-2025 09:59 by rmk")
695693
(* ; "Edited 8-Feb-2025 23:36 by rmk")
@@ -940,7 +938,8 @@
940938
(SETQ BOX (APPLY* (IMAGEOBJPROP CH 'IMAGEBOXFN)
941939
CH BOXSTREAM TX (CL:IF (EQ LINETYPE 'HARDCOPYDISPLAY)
942940
(SCALEDOWN SCALE WIDTH)
943-
WIDTH)))
941+
WIDTH)
942+
TSTREAM))
944943
(IMAGEOBJPROP CH 'BOUNDBOX BOX)
945944
(SETQ TRUEASCENT (IMAX TRUEASCENT (IPLUS (IDIFFERENCE (fetch (IMAGEBOX YSIZE)
946945
of BOX)
@@ -2885,21 +2884,21 @@
28852884
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
28862885
)
28872886
(DECLARE%: DONTCOPY
2888-
(FILEMAP (NIL (28270 30486 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28280 . 30484)) (37891 120398 (
2889-
\TEDIT.FORMATLINE 37901 . 73065) (\TEDIT.FORMATLINE.SETUP.PARA 73067 . 78233) (
2890-
\TEDIT.FORMATLINE.HORIZONTAL 78235 . 82808) (\TEDIT.FORMATLINE.VERTICAL 82810 . 85261) (
2891-
\TEDIT.FORMATLINE.JUSTIFY 85263 . 91284) (\TEDIT.FORMATLINE.TABS 91286 . 99314) (\TEDIT.SCALE.TABS
2892-
99316 . 100107) (\TEDIT.FORMATLINE.PURGE.SPACES 100109 . 101536) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
2893-
101538 . 102439) (\TEDIT.FORMATLINE.EMPTY 102441 . 107468) (\TEDIT.FORMATLINE.UPDATELOOKS 107470 .
2894-
113592) (\TEDIT.FORMATLINE.LASTLEGAL 113594 . 117134) (\TEDIT.LINES.ABOVE 117136 . 120396)) (120515
2895-
122430 (\TLVALIDATE 120525 . 122428)) (122628 144166 (\TEDIT.DISPLAYLINE 122638 . 136278) (
2896-
\TEDIT.DISPLAYLINE.TABS 136280 . 139084) (\TEDIT.LINECACHE 139086 . 139814) (\TEDIT.CREATE.LINECACHE
2897-
139816 . 140652) (\TEDIT.BLTCHAR 140654 . 143281) (\TEDIT.DIACRITIC.SHIFT 143283 . 144164)) (144781
2898-
188964 (\TEDIT.BACKFORMAT 144791 . 147345) (\TEDIT.PREVIOUS.LINEBREAK 147347 . 150070) (
2899-
\TEDIT.UPDATE.LINES 150072 . 154942) (\TEDIT.PANE.CREATELINES 154944 . 158047) (
2900-
\TEDIT.SUFFIXLINE.CREATE 158049 . 159424) (\TEDIT.LINES.BELOW 159426 . 163887) (\TEDIT.MEASURED.LINES
2901-
163889 . 165789) (\TEDIT.VALID.LINES 165791 . 174052) (\TEDIT.LASTVALIDLINE 174054 . 178979) (
2902-
\TEDIT.NEXTVALIDLINE 178981 . 180411) (\TEDIT.CLEARPANE.BELOW.LINE 180413 . 182519) (\TEDIT.INSERTLINE
2903-
182521 . 183907) (\TEDIT.LINE.BOTTOM 183909 . 187139) (\TEDIT.SHOW.AT.BOTTOMP 187141 . 188251) (
2904-
\TEDIT.SHOW.AT.TOPP 188253 . 188962)))))
2887+
(FILEMAP (NIL (27983 30199 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 27993 . 30197)) (37604 120268 (
2888+
\TEDIT.FORMATLINE 37614 . 72935) (\TEDIT.FORMATLINE.SETUP.PARA 72937 . 78103) (
2889+
\TEDIT.FORMATLINE.HORIZONTAL 78105 . 82678) (\TEDIT.FORMATLINE.VERTICAL 82680 . 85131) (
2890+
\TEDIT.FORMATLINE.JUSTIFY 85133 . 91154) (\TEDIT.FORMATLINE.TABS 91156 . 99184) (\TEDIT.SCALE.TABS
2891+
99186 . 99977) (\TEDIT.FORMATLINE.PURGE.SPACES 99979 . 101406) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
2892+
101408 . 102309) (\TEDIT.FORMATLINE.EMPTY 102311 . 107338) (\TEDIT.FORMATLINE.UPDATELOOKS 107340 .
2893+
113462) (\TEDIT.FORMATLINE.LASTLEGAL 113464 . 117004) (\TEDIT.LINES.ABOVE 117006 . 120266)) (120385
2894+
122300 (\TLVALIDATE 120395 . 122298)) (122498 144036 (\TEDIT.DISPLAYLINE 122508 . 136148) (
2895+
\TEDIT.DISPLAYLINE.TABS 136150 . 138954) (\TEDIT.LINECACHE 138956 . 139684) (\TEDIT.CREATE.LINECACHE
2896+
139686 . 140522) (\TEDIT.BLTCHAR 140524 . 143151) (\TEDIT.DIACRITIC.SHIFT 143153 . 144034)) (144651
2897+
188834 (\TEDIT.BACKFORMAT 144661 . 147215) (\TEDIT.PREVIOUS.LINEBREAK 147217 . 149940) (
2898+
\TEDIT.UPDATE.LINES 149942 . 154812) (\TEDIT.PANE.CREATELINES 154814 . 157917) (
2899+
\TEDIT.SUFFIXLINE.CREATE 157919 . 159294) (\TEDIT.LINES.BELOW 159296 . 163757) (\TEDIT.MEASURED.LINES
2900+
163759 . 165659) (\TEDIT.VALID.LINES 165661 . 173922) (\TEDIT.LASTVALIDLINE 173924 . 178849) (
2901+
\TEDIT.NEXTVALIDLINE 178851 . 180281) (\TEDIT.CLEARPANE.BELOW.LINE 180283 . 182389) (\TEDIT.INSERTLINE
2902+
182391 . 183777) (\TEDIT.LINE.BOTTOM 183779 . 187009) (\TEDIT.SHOW.AT.BOTTOMP 187011 . 188121) (
2903+
\TEDIT.SHOW.AT.TOPP 188123 . 188832)))))
29052904
STOP

‎library/tedit/TEDIT-SCREEN.LCOM

-395 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)