From 18567383e138cd1a94dd6c011fdde08d66f5404b Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 28 Dec 2025 21:31:00 -0800 Subject: [PATCH] TEDIT compatible with new printing architecture Tedit files are of type TEDIT, not TEXT, new interface function TEDIT.TO.IMAGEFILE --- library/tedit/TEDIT | 67 ++++++----- library/tedit/TEDIT-HCPY | 200 +++++++++++++++++--------------- library/tedit/TEDIT-HCPY.LCOM | Bin 10566 -> 10570 bytes library/tedit/TEDIT-LOOKS | 53 ++++----- library/tedit/TEDIT-LOOKS.LCOM | Bin 38350 -> 38185 bytes library/tedit/TEDIT-MENU | 66 +++++------ library/tedit/TEDIT-MENU.LCOM | Bin 55202 -> 55135 bytes library/tedit/TEDIT-PAGE | 111 ++++++------------ library/tedit/TEDIT-PAGE.LCOM | Bin 29677 -> 28261 bytes library/tedit/TEDIT-SCREEN | 48 ++++---- library/tedit/TEDIT-SCREEN.LCOM | Bin 33425 -> 33435 bytes library/tedit/TEDIT-WINDOW | 90 +++++++------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62636 -> 62591 bytes library/tedit/TEDIT.LCOM | Bin 33274 -> 33445 bytes 14 files changed, 309 insertions(+), 326 deletions(-) diff --git a/library/tedit/TEDIT b/library/tedit/TEDIT index 39cb40cc..2522759e 100644 --- a/library/tedit/TEDIT +++ b/library/tedit/TEDIT @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Nov-2025 21:00:34" {WMEDLEY}TEDIT>TEDIT.;844 144838 +(FILECREATED "24-Dec-2025 22:45:39" {WMEDLEY}TEDIT>TEDIT.;847 145111 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.INSERT \TEDIT.INSERT) + :CHANGES-TO (VARS TEDITCOMS) - :PREVIOUS-DATE "28-Oct-2025 00:29:56" {WMEDLEY}TEDIT>TEDIT.;843) + :PREVIOUS-DATE "24-Dec-2025 11:23:12" {WMEDLEY}TEDIT>TEDIT.;846) (PRETTYCOMPRINT TEDITCOMS) @@ -76,8 +76,9 @@ (VARS (TEDITSYSTEMDATE (TEDITSYSTEMDATE] (COMS (* ;  "IMAGETYPE Interface, so the system can decide if a file is a TEdit file.") - (ADDVARS (PRINTFILETYPES (TEDIT (TEST TEDIT.FORMATTEDFILEP) - (EXTENSION (TEDIT TED]) + (FNS TEDIT.IMAGESOURCEP) + (ALISTS (PRINTFILETYPES TEDIT)) + (P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE]) (FILESLOAD (SYSLOAD) POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL) @@ -2317,30 +2318,40 @@ (* ; "IMAGETYPE Interface, so the system can decide if a file is a TEdit file.") +(DEFINEQ -(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.FORMATTEDFILEP) +(TEDIT.IMAGESOURCEP + [LAMBDA (X) (* ; "Edited 23-Dec-2025 11:26 by rmk") + (OR (TEXTSTREAM X T) + (TEDIT.FORMATTEDFILEP X]) +) + +(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.IMAGESOURCEP) (EXTENSION (TEDIT TED)))) + +(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4838 7232 (MAKE-TEDIT-EXPORTS.ALL 4848 . 5394) (UPDATE-TEDIT 5396 . 6325) (EDIT-TEDIT -6327 . 7230)) (8662 36440 (TEDIT 8672 . 11286) (TEXTSTREAM 11288 . 13177) (TEXTSTREAMP 13179 . 13563) -(COERCETEXTSTREAM 13565 . 17776) (TEDIT.CONCAT 17778 . 21080) (TEDITSTRING 21082 . 21996) (TEDIT-SEE -21998 . 22682) (TEDIT.COPY 22684 . 24829) (TEDIT.DELETE 24831 . 26192) (TEDIT.INSERT 26194 . 29163) ( -TEDIT.TERPRI 29165 . 30279) (TEDIT.KILL 30281 . 31263) (TEDIT.QUIT 31265 . 32631) (TEDIT.MOVE 32633 . -33521) (TEDIT.STRINGWIDTH 33523 . 34194) (TEDIT.CHARWIDTH 34196 . 36438)) (36441 38382 (TEXTOBJ 36451 - . 36916) (COERCETEXTOBJ 36918 . 38380)) (39782 41432 (TDRIBBLE 39792 . 41430)) (41473 53369 ( -TEDIT.INSERT.OBJECT 41483 . 45190) (TEDIT.EDIT.OBJECT 45192 . 48132) (TEDIT.OBJECT.CHANGED 48134 . -51324) (TEDIT.MAP.OBJECTS 51326 . 52897) (\TEDIT.FIRST.OBJPIECE 52899 . 53132) (\TEDIT.NEXT.OBJPIECE -53134 . 53367)) (53392 60835 (\TEDIT.CONCAT.PAGEFRAMES 53402 . 58469) (\TEDIT.GET.PAGE.HEADINGS 58471 - . 59500) (\TEDIT.CONCAT.INSTALL.HEADINGS 59502 . 60833)) (60836 64443 (\TEDIT.MOVE.MSG 60846 . 62927) - (\TEDIT.READONLY 62929 . 64441)) (64444 70335 (TEDIT.NCHARS 64454 . 64827) (TEDIT.RPLCHARCODE 64829 - . 67819) (TEDIT.NTHCHARCODE 67821 . 69864) (TEDIT.NTHCHAR 69866 . 70333)) (70381 127158 (\TEDIT1 -70391 . 72468) (\TEDIT.INSERT 72470 . 78583) (\TEDIT.MOVE 78585 . 86491) (\TEDIT.COPY 86493 . 91024) ( -\TEDIT.REPLACE.SELPIECES 91026 . 95562) (\TEDIT.INSERT.SELPIECES 95564 . 98561) (\TEDIT.RESTARTFN -98563 . 101068) (\TEDIT.CHARDELETE 101070 . 103999) (\TEDIT.COPYPIECE 104001 . 109163) ( -\TEDIT.APPLY.OBJFN 109165 . 112251) (\TEDIT.DELETE 112253 . 116621) (\TEDIT.DIFFUSE.PARALOOKS 116623 - . 118894) (\TEDIT.WORDDELETE 118896 . 120511) (\TEDIT.WORDDELETE.FORWARD 120513 . 122302) ( -\TEDIT.FINISHEDIT? 122304 . 127156)) (127159 127818 (\TEDIT.THELP 127169 . 127816)) (127852 136983 ( -\TEDIT.PARAPIECES 127862 . 129836) (\TEDIT.PARACHNOS 129838 . 130730) (\TEDIT.PARA.FIRST 130732 . -133833) (\TEDIT.PARA.LAST 133835 . 136981)) (136984 144079 (\TEDIT.WORD.FIRST 136994 . 140998) ( -\TEDIT.WORD.LAST 141000 . 144077)) (144280 144557 (TEDITSYSTEMDATE 144290 . 144555))))) + (FILEMAP (NIL (4840 7234 (MAKE-TEDIT-EXPORTS.ALL 4850 . 5396) (UPDATE-TEDIT 5398 . 6327) (EDIT-TEDIT +6329 . 7232)) (8664 36442 (TEDIT 8674 . 11288) (TEXTSTREAM 11290 . 13179) (TEXTSTREAMP 13181 . 13565) +(COERCETEXTSTREAM 13567 . 17778) (TEDIT.CONCAT 17780 . 21082) (TEDITSTRING 21084 . 21998) (TEDIT-SEE +22000 . 22684) (TEDIT.COPY 22686 . 24831) (TEDIT.DELETE 24833 . 26194) (TEDIT.INSERT 26196 . 29165) ( +TEDIT.TERPRI 29167 . 30281) (TEDIT.KILL 30283 . 31265) (TEDIT.QUIT 31267 . 32633) (TEDIT.MOVE 32635 . +33523) (TEDIT.STRINGWIDTH 33525 . 34196) (TEDIT.CHARWIDTH 34198 . 36440)) (36443 38384 (TEXTOBJ 36453 + . 36918) (COERCETEXTOBJ 36920 . 38382)) (39784 41434 (TDRIBBLE 39794 . 41432)) (41475 53371 ( +TEDIT.INSERT.OBJECT 41485 . 45192) (TEDIT.EDIT.OBJECT 45194 . 48134) (TEDIT.OBJECT.CHANGED 48136 . +51326) (TEDIT.MAP.OBJECTS 51328 . 52899) (\TEDIT.FIRST.OBJPIECE 52901 . 53134) (\TEDIT.NEXT.OBJPIECE +53136 . 53369)) (53394 60837 (\TEDIT.CONCAT.PAGEFRAMES 53404 . 58471) (\TEDIT.GET.PAGE.HEADINGS 58473 + . 59502) (\TEDIT.CONCAT.INSTALL.HEADINGS 59504 . 60835)) (60838 64445 (\TEDIT.MOVE.MSG 60848 . 62929) + (\TEDIT.READONLY 62931 . 64443)) (64446 70337 (TEDIT.NCHARS 64456 . 64829) (TEDIT.RPLCHARCODE 64831 + . 67821) (TEDIT.NTHCHARCODE 67823 . 69866) (TEDIT.NTHCHAR 69868 . 70335)) (70383 127160 (\TEDIT1 +70393 . 72470) (\TEDIT.INSERT 72472 . 78585) (\TEDIT.MOVE 78587 . 86493) (\TEDIT.COPY 86495 . 91026) ( +\TEDIT.REPLACE.SELPIECES 91028 . 95564) (\TEDIT.INSERT.SELPIECES 95566 . 98563) (\TEDIT.RESTARTFN +98565 . 101070) (\TEDIT.CHARDELETE 101072 . 104001) (\TEDIT.COPYPIECE 104003 . 109165) ( +\TEDIT.APPLY.OBJFN 109167 . 112253) (\TEDIT.DELETE 112255 . 116623) (\TEDIT.DIFFUSE.PARALOOKS 116625 + . 118896) (\TEDIT.WORDDELETE 118898 . 120513) (\TEDIT.WORDDELETE.FORWARD 120515 . 122304) ( +\TEDIT.FINISHEDIT? 122306 . 127158)) (127161 127820 (\TEDIT.THELP 127171 . 127818)) (127854 136985 ( +\TEDIT.PARAPIECES 127864 . 129838) (\TEDIT.PARACHNOS 129840 . 130732) (\TEDIT.PARA.FIRST 130734 . +133835) (\TEDIT.PARA.LAST 133837 . 136983)) (136986 144081 (\TEDIT.WORD.FIRST 136996 . 141000) ( +\TEDIT.WORD.LAST 141002 . 144079)) (144282 144559 (TEDITSYSTEMDATE 144292 . 144557)) (144695 144902 ( +TEDIT.IMAGESOURCEP 144705 . 144900))))) STOP diff --git a/library/tedit/TEDIT-HCPY b/library/tedit/TEDIT-HCPY index 0348a30a..0f58054c 100644 --- a/library/tedit/TEDIT-HCPY +++ b/library/tedit/TEDIT-HCPY @@ -1,12 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Sep-2025 17:08:05" {WMEDLEY}TEDIT>TEDIT-HCPY.;186 30742 +(FILECREATED "24-Dec-2025 11:16:22" {WMEDLEY}TEDIT>TEDIT-HCPY.;194 32124 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.HARDCOPYFN) + :CHANGES-TO (FNS TEDIT.HARDCOPY \TEDIT.PRINT.MENU TEDIT.FORMAT.HARDCOPY TEDIT.IMAGEFILE.MESSAGE + ) + (VARS TEDIT-HCPYCOMS) - :PREVIOUS-DATE "19-Sep-2025 08:35:34" {WMEDLEY}TEDIT>TEDIT-HCPY.;185) + :PREVIOUS-DATE "11-Dec-2025 23:23:30" {WMEDLEY}TEDIT>TEDIT-HCPY.;189) (PRETTYCOMPRINT TEDIT-HCPYCOMS) @@ -15,9 +17,10 @@ ((COMS (* ;; "Generic interface functions and common code") - (FNS TEDIT.HARDCOPY \TEDIT.PRINT.MENU TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE - \TEDIT.HARDCOPY.FORMATLINE.HEADINGS \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYFMTSPEC - \TEDIT.INTEGER.IMAGEBOX \TEDIT.DISPLAY.DIACRITIC)) + (FNS TEDIT.HARDCOPY TEDIT.FORMAT.HARDCOPY TEDIT.IMAGEFILE.MESSAGE \TEDIT.PRINT.MENU + \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE.HEADINGS + \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX + \TEDIT.DISPLAY.DIACRITIC)) (COMS (* ;; "Functions for scaling regions as needed during hardcopy.") @@ -27,9 +30,9 @@ (INITVARS (TEDIT.DEFAULTPAGEREGION (\TEDIT.SCALEREGION MICASPERINCH (CREATEREGION 1.1 0.75 6.4 9.25] (COMS - (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc. THIS IS SCREWY") + (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc. Eliminated postscript, but this still may be screwy") - (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPYFILEFN \TEDIT.POSTSCRIPT.HARDCOPY)) + (FNS \TEDIT.HARDCOPYFILEFN)) [COMS (* ;; "vars for Japanese Line Break") @@ -56,73 +59,114 @@ (TEDIT.HARDCOPY [LAMBDA (STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS) + (* ; "Edited 17-Dec-2025 01:06 by rmk") (* ; "Edited 6-Mar-2024 23:33 by rmk") (* ; "Edited 5-Jan-88 16:09 by jds") (* ;; "Send the text to a printer, unless DONTSEND. If DONTSEND and we can't find a server, we'll get the DEFAULTPRINTERTYPE.") - (CL:UNLESS SERVER (SETQ SERVER DEFAULTPRINTINGHOST)) + (CL:UNLESS SERVER + (SETQ SERVER (CAR (DEFAULTPRINTERS)))) (COND [(OR SERVER DONTSEND) (for IMAGETYPE in (PRINTERPROP (PRINTERTYPE SERVER) 'CANPRINT) - do (RETURN (TEDIT.FORMAT.HARDCOPY STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS + do (RETURN (TEDIT.FORMAT.HARDCOPY STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE)) finally (ERROR (CONCAT "Can't print TEDIT documents on a " (PRINTERTYPE SERVER) " printer."] (T (TEDIT.PROMPTPRINT (TEXTOBJ STREAM) "Can't HARDCOPY: No print server specified." T]) +(TEDIT.FORMAT.HARDCOPY + [LAMBDA (TSTREAM IMAGESTREAM DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# STARTPG + ENDPG QUIET) (* ; "Edited 14-Dec-2025 17:40 by rmk") + (* ; "Edited 8-Dec-2025 18:08 by rmk") + (* ; "Edited 7-Dec-2025 15:06 by rmk") + (* ; "Edited 19-Sep-2025 22:04 by rmk") + (* ; "Edited 18-Sep-2025 10:11 by rmk") + (* ; "Edited 12-Sep-2025 23:54 by rmk") + (* ; "Edited 5-Jun-2025 08:24 by rmk") + (* ; "Edited 22-Apr-2025 08:12 by rmk") + (* ; "Edited 30-Aug-2024 15:45 by rmk") + (* ; "Edited 5-Apr-2024 08:01 by rmk") + (* ; "Edited 19-Jan-2024 23:39 by rmk") + (* ; "Edited 15-Nov-2023 23:56 by rmk") + (* ; "Edited 4-Jul-2023 11:16 by rmk") + (* ; "Edited 2-Oct-2022 00:00 by rmk") + (* ; + "Edited 25-May-93 13:06 by sybalsky:mv:envos") + + (* ;; "Format a document for hardcopy. Returns NIL if the before-print-fn said not to print.") + + (* ;; "TEXTSTREAM is either already a textstream or somehow denotes a tedit-formatted file, otherwise an error. We don't here try to decide that a non-formatted file is a plain text file, as opposed binary or anything else.") + + (RESETLST + (LET [(IMAGEFILE (TEDIT.TO.IMAGEFILE TSTREAM IMAGESTREAM (OR IMAGETYPE DEFAULTPRINTERTYPE) + `(,@PRINTOPTIONS FIRSTPG# ,FIRSTPG# STARTPG ,STARTPG ENDPG + ,ENDPG DOCUMENT.NAME ,BREAKPAGETITLE] + (CL:UNLESS (OR DONTSEND (EQ IMAGEFILE IMAGESTREAM)) + + (* ;; "If the caller gave us an already open image stream, not just a filename (or NIL), we assume that the caller will close it and send to the printer, if necessary.") + + (SEND.FILE.TO.PRINTER IMAGEFILE SERVER `(DOCUMENT.NAME ,BREAKPAGETITLE + ,@PRINTOPTIONS DOCUMENT.NAME + "TEdit Hardcopy Output"))) + (CL:UNLESS QUIET (TEDIT.IMAGEFILE.MESSAGE TSTREAM)) + IMAGEFILE))]) + +(TEDIT.IMAGEFILE.MESSAGE + [LAMBDA (TSTREAM) (* ; "Edited 14-Dec-2025 17:40 by rmk") + + (* ;; "Description of last imagefile goes in promptwindow") + + (LET* ((LASTIMAGEFILE (GETTEXTPROP TSTREAM 'LASTIMAGEFILE)) + (NPAGES (pop LASTIMAGEFILE)) + (IMAGESTREAM (pop LASTIMAGEFILE)) + (PRINTERNAME (pop LASTIMAGEFILE))) + (TEDIT.PROMPTPRINT TSTREAM [CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES) + "" + "s") + (if PRINTERNAME + then (CONCAT " printed on " PRINTERNAME) + elseif (STREAMP IMAGESTREAM) + then " printed" + else (CONCAT " on " (PSEUDOFILENAME IMAGESTREAM] + T]) + (\TEDIT.PRINT.MENU - [LAMBDA (TSTREAM) (* ; "Edited 19-Sep-2025 07:43 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 17-Dec-2025 00:09 by rmk") + (* ; "Edited 14-Dec-2025 17:38 by rmk") + (* ; "Edited 13-Dec-2025 08:35 by rmk") + (* ; "Edited 19-Sep-2025 07:43 by rmk") (* ; "Edited 28-Jun-2024 22:09 by rmk") - (* ; "Edited 25-Jun-2023 13:16 by rmk") - (* ; "Edited 6-Jun-2023 17:48 by rmk") - (LET ((W (GETTOBJ (TEXTOBJ TSTREAM) - PRIMARYPANE)) - FILE&TYPE) + (* ; "Edited 25-Jun-2023 13:16 by rmk") + (SETQ TSTREAM (TEXTSTREAM (GETTOBJ (TEXTOBJ TSTREAM) + PRIMARYPANE))) + (TEDIT.PROMPTCLEAR TSTREAM) (* ; "Edited 6-Jun-2023 17:48 by rmk") + (LET (FILE&TYPE) (SELECTQ [MENU (create MENU ITEMS _ '(("Print to a file" 'FILE "Puts image on a file; prompts for filename and format" ) ("Send to a printer" 'PRINTER "Sends image to a printer of your choosing"] - (FILE (CL:WHEN (SETQ FILE&TYPE (GetImageFile W)) - (TEDIT.TO.IMAGEFILE W (CAR FILE&TYPE) - (CDR FILE&TYPE)))) - (PRINTER [SEND.FILE.TO.PRINTER (TEXTSTREAM W) - (GetPrinterName) - `(HEADING ,(GETTEXTPROP W 'FILENAME]) - NIL]) - -(TEDIT.HCPYFILE - [LAMBDA (TSTREAM FILE BREAKPAGETITLE) (* ; "Edited 18-Sep-2025 11:21 by rmk") - (* ; "Edited 29-Jun-2024 16:33 by rmk") - (* ; "Edited 4-Oct-2022 09:23 by rmk") - (* ; "Edited 1-Oct-2022 22:12 by rmk") - - (* ;; "Not sure that this is ever called. Not documented.") - (* ; "Edited 12-Jun-90 18:36 by mitani") - - (* ;; "Create a hardcopy-format FILE from the text on TSTREAM, with the file type depending on what the default printer is.") - - (LET ((IMAGETYPE DEFAULTPRINTERTYPE) - TXTFILE) - (CL:UNLESS FILE - [SETQ FILE (\TEDIT.MAKEFILENAME (TEDIT.GETINPUT TSTREAM (CONCAT IMAGETYPE - " file name: ") - (CL:WHEN (SETQ TXTFILE (GETTEXTPROP TSTREAM - 'FILENAME)) - (* ; - "There was a file, so supply default") - (PACKFILENAME 'VERSION NIL 'EXTENSION - (CAR (EXTENSIONS.FOR.IMAGEFILETYPE - IMAGETYPE)) - 'BODY TXTFILE))]) - (if FILE - then [TEDIT.TO.IMAGEFILE TSTREAM FILE IMAGETYPE `(BREAKPAGEFILENAME `BREAKPAGETITLE] - else (TEDIT.PROMPTPRINT TSTREAM "No hardcopy file--aborted" T T) - NIL]) + (FILE [LET [(FILENAME (GETTEXTPROP TSTREAM 'FILENAME] + (CL:WHEN FILENAME + (SETQ FILENAME (PACKFILENAME + 'VERSION NIL 'EXTENSION + [L-CASE (CAR (EXTENSIONS.FOR.IMAGEFILETYPE + (CAR (PRINTERPROP (PRINTERTYPE + :DEFAULTPRINTER) + 'CANPRINT] + 'BODY FILENAME))) + (CL:WHEN (SETQ FILE&TYPE (GetImageFile FILENAME)) + (TEDIT.TO.IMAGEFILE TSTREAM (CAR FILE&TYPE) + (CDR FILE&TYPE)))]) + (PRINTER [SEND.FILE.TO.PRINTER TSTREAM (GetPrinterName) + `(HEADING ,(GETTEXTPROP TSTREAM 'FILENAME]) + NIL) + (TEDIT.IMAGEFILE.MESSAGE TSTREAM]) (\TEDIT.HARDCOPY.DISPLAYLINE [LAMBDA (TSTREAM LINE REGION PRSTREAM FORMATTINGSTATE) (* ; "Edited 21-Apr-2025 19:02 by rmk") @@ -420,29 +464,12 @@ -(* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc. THIS IS SCREWY") +(* ;; +"Support for the window-menu's HARDCOPY button, LISTFILES, etc. Eliminated postscript, but this still may be screwy" +) (DEFINEQ -(TEDIT.HARDCOPYFN - [LAMBDA (WINDOW IMAGEFILE IMAGETYPE) (* ; "Edited 19-Sep-2025 13:49 by rmk") - (* ; "Edited 12-Sep-2025 21:50 by rmk") - (* ; "Edited 13-Dec-2024 22:33 by rmk") - (* ; "Edited 29-Jun-2024 14:42 by rmk") - (* ; "Edited 20-Mar-2024 10:49 by rmk") - (* ; "Edited 25-Sep-2023 16:29 by rmk") - (* ; "Edited 4-Jul-2023 11:16 by rmk") - (* ; "Edited 21-Sep-2021 15:33 by rmk:") - - (* ;; - "This is the TEdit HARDCOPYFN, hooking into the system's standard Hardcopy window-menu operation.") - - (TEDIT.TO.IMAGEFILE (CL:IF (FGETTOBJ (TEXTOBJ WINDOW) - MENUFLG) - (\TEDIT.MAINW WINDOW) - WINDOW) - IMAGEFILE IMAGETYPE]) - (\TEDIT.HARDCOPYFILEFN [LAMBDA (W EXT) (* ; "Edited 25-Sep-2023 16:19 by rmk") (LET [(STRM (OR (GETTOBJ (TEXTOBJ W) @@ -455,22 +482,6 @@ (PACKFILENAME 'VERSION NIL 'EXTENSION (OR EXT 'IMAGEFILE) 'BODY (FULLNAME STRM)))]) - -(\TEDIT.POSTSCRIPT.HARDCOPY - [LAMBDA (FILE PFILE) (* ; "Edited 4-Oct-2022 10:40 by rmk") - (* ; "Edited 1-Oct-2022 22:08 by rmk") - (* ; "Edited 12-Jun-90 18:35 by mitani") - - (* ;; "Send the document FILE to the printer (or to a print file, as determined by PFILE).") - - (CL:WITH-OPEN-STREAM (TEXT-STREAM (OPENTEXTSTREAM FILE)) - (RESETLST - [RESETSAVE (\TEDIT.MARKACTIVE (TEXTOBJ TEXT-STREAM)) - '(AND (\TEDIT.MARKINACTIVE OLDVALUE] - [RESETSAVE NIL `(AND (CLOSEF? ',PFILE] - (replace (TEXTOBJ EDITOPACTIVE) of (TEXTOBJ TEXT-STREAM) with 'Hardcopy) - (TEDIT.FORMAT.HARDCOPY TEXT-STREAM PFILE T NIL NIL NIL 'POSTSCRIPT) - PFILE)]) ) @@ -508,11 +519,10 @@ (CLOSEF DOC]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2653 25392 (TEDIT.HARDCOPY 2663 . 3796) (\TEDIT.PRINT.MENU 3798 . 5139) (TEDIT.HCPYFILE - 5141 . 7122) (\TEDIT.HARDCOPY.DISPLAYLINE 7124 . 16347) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 16349 . -18078) (\TEDIT.HARDCOPY.MODIFYLOOKS 18080 . 20261) (\TEDIT.HCPYFMTSPEC 20263 . 23721) ( -\TEDIT.INTEGER.IMAGEBOX 23723 . 24394) (\TEDIT.DISPLAY.DIACRITIC 24396 . 25390)) (25467 26297 ( -\TEDIT.SCALEREGION 25477 . 26295)) (26550 29299 (TEDIT.HARDCOPYFN 26560 . 27801) ( -\TEDIT.HARDCOPYFILEFN 27803 . 28364) (\TEDIT.POSTSCRIPT.HARDCOPY 28366 . 29297)) (29918 30719 ( -TEDIT-BOOK 29928 . 30717))))) + (FILEMAP (NIL (2824 28911 (TEDIT.HARDCOPY 2834 . 4092) (TEDIT.FORMAT.HARDCOPY 4094 . 7179) ( +TEDIT.IMAGEFILE.MESSAGE 7181 . 8236) (\TEDIT.PRINT.MENU 8238 . 10641) (\TEDIT.HARDCOPY.DISPLAYLINE +10643 . 19866) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 19868 . 21597) (\TEDIT.HARDCOPY.MODIFYLOOKS 21599 + . 23780) (\TEDIT.HCPYFMTSPEC 23782 . 27240) (\TEDIT.INTEGER.IMAGEBOX 27242 . 27913) ( +\TEDIT.DISPLAY.DIACRITIC 27915 . 28909)) (28986 29816 (\TEDIT.SCALEREGION 28996 . 29814)) (30108 30681 + (\TEDIT.HARDCOPYFILEFN 30118 . 30679)) (31300 32101 (TEDIT-BOOK 31310 . 32099))))) STOP diff --git a/library/tedit/TEDIT-HCPY.LCOM b/library/tedit/TEDIT-HCPY.LCOM index 55a52469f3b0a5313a5212c398150b5dbbfe1aad..6c061d587887d86e0a3d119c24b363a46ffadea5 100644 GIT binary patch delta 2613 zcmZ`*O>7%g5cWE48a4$bZ3Q$<)5)fFZAjdGyX&8IB$TbajyG|3x4Y}4O)Jr~Hm%$I zDRG4Ym3*LgsGbl~?;L@up;F6_azg@f;lc@t6DO$1i8J%wI<^C;WxY3VX7;^#GvCa- zAH1KuPZmxn+C-stb3&1o6cCal>71fGyqg))wFHO~QM#mhPEF@z_2GACuR(nkq++F9 zhHi~yGATiIsZpyQ_$g7OgcvVcWi#)YMqm~|I_Pxzj&QzD*FaT>qR|y0*@SDTYz0Zz zv+N)_XWA7A8AZpNGlFEv@Ctdyz0%@ZbH=pEjzLx5M>+xVdBgL?P(D%0yI1ngoS%T4 z>zVVGQ}HJXXb(t)bgrwYIsB`#1awM>2|9ftYz`(M@?JC&=`B1R=!@V_pbw(&j_R$0 zUC)_w18yZ`v&g(0I2UIiOX&U6Z&o!hJ1!^Io#j$eDtM~hP+|(J#YoON>_U>45l=YV11*$+Nf<{Ks1$p*%RyU@)(^Q zA^kG6{X~BrKGh@;_yNXc4vL_Jvi4dH4RhSUa%>+JG`NVWvo1O}u!6FQtW@|7x3vgq z@J(;t^iYt2qUHI4J3WSrEck)p;R0zLOuN7-B17|1#WDlr5&{Ls4t$iMx0i+fh;YfP zJUw!q`P;w6#)a3yX&{`A@hP}H)cT1`=O`Nng~-C|+fvEf-9BBK57qoNCgD0mL;Z~2 zSvc|erRFP)EDc2BMAlvgBtTd)!;&0bffFJUZ<) z+WHna_ZsW>8d4%5wo!3xUn1oSSusxUjA$1yG+|_{cD$^vC|cd&wIEGg5M`-YF-PFWmb*4^DtIq`sxv!8|2q-VB3Dhj~qW03Q8vUhb*isOlt@D{T*&@bE!hTQw*~2`^9ns73 z?#Dx%z7eVNc@P9D9U5;wuUaR>9nPw9x9>h#+UX8}5S{rt$0fJ<$Oo>^Deh8%ufvgZ zXI|xJE^_|mM^h|pVIesFIKee`pNvi+2%C`zUv`~{MJ7}YjmH=%s`Aoupz#wLAq}`~>w9K<$t)L&HtVtZvgn2OgR0UG51)=|GJSOTtL??U#bev{sYzk`SNKhs zIH%`*4W5Y+;a|7aU!Q>=}^rNw> zNB9EiKgNE)ZZ6kX>Z|UvG@Vje8Af+^%oJW~08m3@b}paH9q&t-Ze` ziTI`|Vk>T0vG)RE7%18a6n33R$Ircuc71XFnkZ>x9Ahux$={!wq;`Ci4#h+ieh?4n aR;(YX2eCJ=!x^P8{*E(_Si*jCZ2ITjXg7&87HwQk2E%oDNUl# z4HByP2ejM;D;8|nB1qUEP=t_>C>!_z6tQMgegJ}V@AWuNTc~A??(^JpzwbNWec=7* z-CG@&@^gN3XHFL73`n_xs1?M_{ad*aEt`UPqIVXj)NDbP?|(aawq!$V3lgPTr2>4- z{YS%EPbj`vkrJtRvSd}vqG#%XX~2<);d$iM$josq3yPRiWpXQ$o-NraD7c=vVmUQ` z&cLllcVc)YQ&7|d#L1P&R8-55tI_u+p#(A*W=XGA0@t(bz_J(1jvu5zSdT`8e&g$t z9{C~q=C}%&j1{C^&#Ah6DQF4~t_9A*HOOVjz43E?CJ(0PIUZzGC^~jg4?tCc1vb5) z?wTNH!!Aa0LF#ttEM8rfps3qy2lhbI$U*GVkeY`C?CiF-?lgDP2~afhPi)%09;SqO zr>mx2gMy*OlNc2!g466k7erVE3%`LMAf{Ek+Q%_Lh|Hf5@Yhd2KlKfbN6F78UTJ^R zxHcR=U^9)Ibn4Mp=MKuOU*FftR>X>)q{C$>w7)qr!q*B(Nmal% zZ6i(dN(TPh9sHurX($)nI=$W@3Bg*x1}FtqRmXc$1z4!K z1ten0r6X2=JFE_4kI}Rh6@=JZh@>zy6w&t<=gZr)!@!+C#JO4D2iDu<3^2ALtZkiQ z{4yHY@QvuF^EwYRNMoIuXCYe+*4sRTREgQANIfr8&@Ura9nn?wC6iu`L7S60Tj+&s zw-!Jab*&edx+^jY$)9|=tth>0gDiKd1i8Y}S#XRxs5wBcP20B|8&nBaOpi5X?T|_} zWU8mKXtm_AOzdsgT;FYMZ121eZ=*2g=GJd)@7`%P5}@fhNOqy`=9XNpIcOK%3C2k( zh31AuM?=6C%CG={)3U79ZD_=XS@B1|94 zOg!v^Rqc*!@M32gV;>KPJO2h>z_&2@u@%EtmS6B%n+W6@MIHBKAq-lYW_O_njY8pkn#%TG{dgL{0@= zlyV9pHyeuz5wbHd`qEhr+Q#vN$^Hml7c1a;bp>|?Kt386Z$BRXY5dU}Gv*j^HJgeE z$DYjX=w^jWvP7-_2*Xl0&(m!IJ;r4OEr+_3@Cm9E7-V=#1`7Iu;|0$+@X+-b20%Tp z_f%?eOjpd~Is%)Gwgn-|mERhQa?d)H8h=YHmRATL^<$nJpr40O;-m2lAhB*7*Tgp` zd`Iv;_&TKcnKeeKSD$0RFLl&DDA$1<8`_L;MMY=_DA|H^mTb=fBfN z3rqH#8zTEDIT>TEDIT-LOOKS.;459 155349 +(FILECREATED " 7-Dec-2025 16:32:32" {WMEDLEY}tedit>TEDIT-LOOKS.;460 155196 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE) + :CHANGES-TO (VARS TEDIT-LOOKSCOMS) - :PREVIOUS-DATE " 5-Oct-2025 10:57:43" {WMEDLEY}TEDIT>TEDIT-LOOKS.;457) + :PREVIOUS-DATE " 6-Oct-2025 20:50:59" {WMEDLEY}tedit>TEDIT-LOOKS.;459) (PRETTYCOMPRINT TEDIT-LOOKSCOMS) @@ -60,7 +60,6 @@ (* ;; "Public entries") (FNS TEDIT.LOOKS TEDIT.GET.LOOKS TEDIT.SUBLOOKS TEDIT.FINDLOOKS) - [INITVARS (TEDIT.FONTCLASSES '(DISPLAY PDF POSTSCRIPT INTERPRESS] (FNS \TEDIT.CHANGE.CHARLOOKS \TEDIT.CHANGE.CHARLOOKS.NEW \TEDIT.CHARLOOKS.CHANGE.FONT \TEDIT.FONT.NEXTSIZE \TEDIT.LOOKS \TEDIT.FONTCOPY \TEDIT.COERCE.FONTCLASS \TEDIT.FONTCLASS.TO.FONT)) @@ -1375,8 +1374,6 @@ (TEDIT.NORMALIZECARET TEXTOBJ) (RETURN (\TEDIT.COPYSEL (FGETTOBJ TEXTOBJ SEL])]) ) - -(RPAQ? TEDIT.FONTCLASSES '(DISPLAY PDF POSTSCRIPT INTERPRESS)) (DEFINEQ (\TEDIT.CHANGE.CHARLOOKS @@ -2461,26 +2458,26 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22099 24041 (\TEDIT.CHARLOOKS.DEFPRINT 22109 . 23245) (\TEDIT.PARALOOKS.DEFPRINT 23247 - . 24039)) (24145 24531 (\TEDIT.CREATE.FACE.MENU 24155 . 24327) (\TEDIT.CREATE.SIZE.MENU 24329 . 24529 -)) (25535 27424 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25545 . 27422)) (27696 52953 ( -\TEDIT.CHARLOOKS.FROM.FONT 27706 . 29990) (\TEDIT.EQCLOOKS 29992 . 33023) (\TEDIT.SAMECLOOKS 33025 . -36196) (TEDIT.CARETLOOKS 36198 . 37744) (TEDIT.COPY.LOOKS 37746 . 41029) ( -\TEDIT.UNPARSE.CHARLOOKS.LIST 41031 . 44525) (\TEDIT.MODIFYLOOKS 44527 . 46687) (TEDIT.NEW.FONT 46689 - . 47136) (\TEDIT.CARETLOOKS.VERIFY 47138 . 47975) (\TEDIT.CARETPIECE 47977 . 48282) ( -\TEDIT.GET.INSERT.CHARLOOKS 48284 . 51331) (\TEDIT.GET.TERMSA.WIDTHS 51333 . 51749) ( -\TEDIT.PARSE.CHARLOOKS.LIST 51751 . 52951)) (52954 65081 (\TEDIT.MCCS.TRANSLATE 52964 . 58817) ( -\TEDIT.CONVERT.TO.FORMATTED 58819 . 65079)) (65953 73290 (\TEDIT.UNIQUIFY.CHARLOOKS 65963 . 67623) ( -\TEDIT.UNIQUIFY.PARALOOKS 67625 . 68892) (\TEDIT.UNIQUIFY.ALL 68894 . 70982) ( -\TEDIT.FLUSH.UNUSED.LOOKS 70984 . 73288)) (73323 85281 (TEDIT.LOOKS 73333 . 75722) (TEDIT.GET.LOOKS -75724 . 78059) (TEDIT.SUBLOOKS 78061 . 82441) (TEDIT.FINDLOOKS 82443 . 85279)) (85350 115000 ( -\TEDIT.CHANGE.CHARLOOKS 85360 . 94138) (\TEDIT.CHANGE.CHARLOOKS.NEW 94140 . 97955) ( -\TEDIT.CHARLOOKS.CHANGE.FONT 97957 . 106264) (\TEDIT.FONT.NEXTSIZE 106266 . 107887) (\TEDIT.LOOKS -107889 . 111218) (\TEDIT.FONTCOPY 111220 . 112721) (\TEDIT.COERCE.FONTCLASS 112723 . 113874) ( -\TEDIT.FONTCLASS.TO.FONT 113876 . 114998)) (115043 146691 (\TEDIT.EQFMTSPEC 115053 . 118268) ( -TEDIT.GET.PARALOOKS 118270 . 122317) (\TEDIT.PARSE.PARALOOKS.LIST 122319 . 130352) (TEDIT.PARALOOKS -130354 . 131394) (\TEDIT.CHANGE.PARALOOKS 131396 . 138364) (\TEDIT.CHANGE.PARALOOKS.NEW 138366 . -142349) (TEDIT.COPY.PARALOOKS 142351 . 145025) (\TEDIT.PARABOUNDS 145027 . 146689)) (146751 154467 ( -TEDIT.SUBPARALOOKS 146761 . 150863) (SAMEPARALOOKS 150865 . 154465)) (154468 155155 ( -\TEDIT.MARK.REVISION 154478 . 155153))))) + (FILEMAP (NIL (22014 23956 (\TEDIT.CHARLOOKS.DEFPRINT 22024 . 23160) (\TEDIT.PARALOOKS.DEFPRINT 23162 + . 23954)) (24060 24446 (\TEDIT.CREATE.FACE.MENU 24070 . 24242) (\TEDIT.CREATE.SIZE.MENU 24244 . 24444 +)) (25450 27339 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25460 . 27337)) (27611 52868 ( +\TEDIT.CHARLOOKS.FROM.FONT 27621 . 29905) (\TEDIT.EQCLOOKS 29907 . 32938) (\TEDIT.SAMECLOOKS 32940 . +36111) (TEDIT.CARETLOOKS 36113 . 37659) (TEDIT.COPY.LOOKS 37661 . 40944) ( +\TEDIT.UNPARSE.CHARLOOKS.LIST 40946 . 44440) (\TEDIT.MODIFYLOOKS 44442 . 46602) (TEDIT.NEW.FONT 46604 + . 47051) (\TEDIT.CARETLOOKS.VERIFY 47053 . 47890) (\TEDIT.CARETPIECE 47892 . 48197) ( +\TEDIT.GET.INSERT.CHARLOOKS 48199 . 51246) (\TEDIT.GET.TERMSA.WIDTHS 51248 . 51664) ( +\TEDIT.PARSE.CHARLOOKS.LIST 51666 . 52866)) (52869 64996 (\TEDIT.MCCS.TRANSLATE 52879 . 58732) ( +\TEDIT.CONVERT.TO.FORMATTED 58734 . 64994)) (65868 73205 (\TEDIT.UNIQUIFY.CHARLOOKS 65878 . 67538) ( +\TEDIT.UNIQUIFY.PARALOOKS 67540 . 68807) (\TEDIT.UNIQUIFY.ALL 68809 . 70897) ( +\TEDIT.FLUSH.UNUSED.LOOKS 70899 . 73203)) (73238 85196 (TEDIT.LOOKS 73248 . 75637) (TEDIT.GET.LOOKS +75639 . 77974) (TEDIT.SUBLOOKS 77976 . 82356) (TEDIT.FINDLOOKS 82358 . 85194)) (85197 114847 ( +\TEDIT.CHANGE.CHARLOOKS 85207 . 93985) (\TEDIT.CHANGE.CHARLOOKS.NEW 93987 . 97802) ( +\TEDIT.CHARLOOKS.CHANGE.FONT 97804 . 106111) (\TEDIT.FONT.NEXTSIZE 106113 . 107734) (\TEDIT.LOOKS +107736 . 111065) (\TEDIT.FONTCOPY 111067 . 112568) (\TEDIT.COERCE.FONTCLASS 112570 . 113721) ( +\TEDIT.FONTCLASS.TO.FONT 113723 . 114845)) (114890 146538 (\TEDIT.EQFMTSPEC 114900 . 118115) ( +TEDIT.GET.PARALOOKS 118117 . 122164) (\TEDIT.PARSE.PARALOOKS.LIST 122166 . 130199) (TEDIT.PARALOOKS +130201 . 131241) (\TEDIT.CHANGE.PARALOOKS 131243 . 138211) (\TEDIT.CHANGE.PARALOOKS.NEW 138213 . +142196) (TEDIT.COPY.PARALOOKS 142198 . 144872) (\TEDIT.PARABOUNDS 144874 . 146536)) (146598 154314 ( +TEDIT.SUBPARALOOKS 146608 . 150710) (SAMEPARALOOKS 150712 . 154312)) (154315 155002 ( +\TEDIT.MARK.REVISION 154325 . 155000))))) STOP diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM index 802c0d03f298ed9f38e77b6a681a2f4f58a379fc..066f0a1552dac306f0d36b44660325e55156333b 100644 GIT binary patch delta 490 zcmZvZ%}T>S6oqLO7lWu!Q4z#TP)L=8{-xR|V%khJ7&9f4)>gXdPtc&PC3c~R6r`=- zN|`5csjkGAaOJ`m(imO1DBRVBbIx}-A1~pj=kR?gvL>ibT}Z?d62#MTGU4CD$x^rD zG~CXXjaA(i3_|v(xRFZ7qJTJ%{wdbwWK2%RIjDI~{jAw`Pn`xh7j5r+S%%hG=h$r> zf!hL3D;Ng+mx`juL8I#D4D;;DsTdbUyrvsCXJN$$0S<<+a&UF9k5vPguQyNKnpgEM zw}!JrT$19MG{`}xY#F@f2_QMQtC%~O3N``0s8|$&&hx*eb7Y@JLC#yasFMN}R3C(i zp*i*$ip&g)kuvOYEb=xHzPlOGOv+vt=h#;-GmD@S_=*}aZPCOfo9c%c80qK75&shd z{0eLUd+G16W@Uj*4pfAGB{`C3p0Hi)9a N+v;t3V${?P^bJgZh`Im( delta 682 zcmbtRJ#P~+7*;b{2%#3yq06gND_xN8lrOjBifEm)ub4V#=j?4-5-DvSdjWRQ2zt}fSm;=5h9cY2@f9L$M5sykDm%xp9^od=9WFVcji?}6%3V9 zfXhLt^zLBs+%U?`gYoSNDL1vhTEq1sAP4^3DBlaJ*n!=ww|8=M+CS{=L+{yX_H-$L z?s(mAhN1RNLSik5VbDJYCu$1;(?q`SJFvfVX1B)*=hLRFL=8JdPWF6~;jbi6#<*ImLomweHB!iq4gdw=LlSQ=?G=p7w_h)` ziV&!Tb+~M6kB;0sfPWWOwwfzJt?B^!N8OeDTVw9>$IP2oipSh^NTR`=)D+3sgo0?z z?5Ne2R?MYbD?w6FGy)~H(P6@s0UjHcSYKKf?EyE6HK6>%U_O68sL%iEeMIQTY|Ci= zgjxLiK;3Xd*|hX`Vbu=A#YT>XDDQP=XHfp-g5H@p38hMXMG`Xpc>53yH*ZfM-EK?+ j{h_`E)atMf5$i${3h46dFunQ6O%!RZ!T&`=F&F43IQYD4 diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU index cc340649..6794e9d7 100644 --- a/library/tedit/TEDIT-MENU +++ b/library/tedit/TEDIT-MENU @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Oct-2025 12:55:36" {WMEDLEY}TEDIT>TEDIT-MENU.;498 183397 +(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}tedit>TEDIT-MENU.;501 183343 :EDIT-BY rmk - :CHANGES-TO (FNS MARGINBAR.NEUTRALIZE \TEDIT.PARALOOKS.TO.MARBAR) + :CHANGES-TO (VARS TEDIT-MENUCOMS) - :PREVIOUS-DATE "19-Oct-2025 15:14:00" {WMEDLEY}TEDIT>TEDIT-MENU.;496) + :PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}tedit>TEDIT-MENU.;499) (PRETTYCOMPRINT TEDIT-MENUCOMS) @@ -67,7 +67,7 @@ (* ;; "") (* ; "CHARMENU") - [INITVARS (TEDIT.FONTDEVICES '(DISPLAY PDF POSTSCRIPT)) + [INITVARS (TEDIT.FONTDEVICES '(DISPLAY PDF)) (TEDIT.FONTFAMILIES '(Classic Modern Terminal Helvetica TimesRoman Gacha] (FNS \TEDIT.CHARMENU.CREATE \TEDIT.CHARMENU.START \TEDIT.CHARMENU.SPEC \TEDIT.CHARMENU.PARSE \TEDIT.CHARMENU.FILLIN \TEDIT.SHOW.CHARLOOKS \TEDIT.APPLY.CHARLOOKS @@ -1952,7 +1952,7 @@ (* ; "CHARMENU") -(RPAQ? TEDIT.FONTDEVICES '(DISPLAY PDF POSTSCRIPT)) +(RPAQ? TEDIT.FONTDEVICES '(DISPLAY PDF)) (RPAQ? TEDIT.FONTFAMILIES '(Classic Modern Terminal Helvetica TimesRoman Gacha)) (DEFINEQ @@ -2907,32 +2907,32 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4972 16610 (TEDIT.ADD.MENUITEM 4982 . 7099) (TEDIT.DEFAULT.MENUFN 7101 . 13822) ( -TEDIT.REMOVE.MENUITEM 13824 . 14821) (\TEDIT.CREATEMENU 14823 . 15388) (\TEDIT.MENU.WHENHELDFN 15390 - . 16295) (\TEDIT.MENU.WHENSELECTEDFN 16297 . 16608)) (17424 65459 (DRAWMARGINSCALE 17434 . 20893) ( -MARGINBAR 20895 . 28020) (MARGINBAR.CREATE 28022 . 32220) (MB.MARGINBAR.BUTTONEVENTINFN 32222 . 40024) - (MB.MARGINBAR.SELFN.TABS 40026 . 45266) (MB.MARGINBAR.SELFN.TABS.KIND 45268 . 46203) ( -MARGINBAR.GETSTATEFN 46205 . 50192) (MARGINBAR.SETSTATEFN 50194 . 50404) (MARGINBAR.NEUTRALIZE 50406 - . 51081) (MARGINBAR.LOOKS 51083 . 54189) (MB.MARGINBAR.SIZEFN 54191 . 54977) (MB.MARGINBAR.DISPLAYFN -54979 . 58040) (MDESCALE 58042 . 58582) (MSCALE 58584 . 58914) (MB.MARGINBAR.SHOWTAB 58916 . 61239) ( -MB.MARGINBAR.TABTRACK 61241 . 62626) (MARGINBAR.INIT 62628 . 64021) (\TEDIT.PARALOOKS.TO.MARBAR 64023 - . 65457)) (66284 73566 (TEDIT.MENUSTREAM 66294 . 67294) (TEDITMENUP 67296 . 68265) (\TEDIT.MENU.START - 68267 . 72614) (\TEDIT.MENU.OPEN? 72616 . 72990) (\TEDIT.MENU.BUTTONEVENTFN 72992 . 73564)) (73885 -81936 (\TEDIT.MENU.CREATE 73895 . 75835) (\TEDIT.MENU.PARSE 75837 . 79526) (\TEDIT.MENU.NEUTRALIZE -79528 . 81599) (\TEDITMENU.RECORD.UNFORMATTED 81601 . 81934)) (82002 101783 ( -\TEDIT.EXPANDEDMENU.CREATE 82012 . 87479) (\TEDIT.EXPANDEDMENU.START 87481 . 89105) ( -\TEDIT.EXPANDEDMENU.FN 89107 . 92362) (\TEDIT.EXPANDEDMENU.ACTIONFN 92364 . 101781)) (101845 121270 ( -\TEDIT.PARAMENU.CREATE 101855 . 110586) (\TEDIT.PARAMENU.START 110588 . 111842) ( -\TEDIT.APPLY.PARALOOKS 111844 . 112896) (\TEDIT.SHOW.PARALOOKS 112898 . 115615) ( -\TEDIT.PARAMENU.FILLIN 115617 . 120366) (\TEDIT.PARAMENU.RESHAPEFN 120368 . 121268)) (121475 148317 ( -\TEDIT.CHARMENU.CREATE 121485 . 124089) (\TEDIT.CHARMENU.START 124091 . 125381) (\TEDIT.CHARMENU.SPEC -125383 . 130066) (\TEDIT.CHARMENU.PARSE 130068 . 133236) (\TEDIT.CHARMENU.FILLIN 133238 . 137868) ( -\TEDIT.SHOW.CHARLOOKS 137870 . 141415) (\TEDIT.APPLY.CHARLOOKS 141417 . 142578) ( -\TEDIT.OFFSETTYPE.STATEFN 142580 . 144543) (\TEDIT.OTHER.STATECHANGEFN 144545 . 146190) ( -\TEDIT.OTHER.SELECTFN 146192 . 148315)) (148379 177437 (\TEDIT.PAGEMENU.CREATE 148389 . 156901) ( -\TEDIT.PAGEMENU.START 156903 . 157254) (\TEDIT.SHOW.PAGELOOKS 157256 . 159142) (\TEDIT.PAGEMENU.FILLIN - 159144 . 160694) (\TEDIT.PAGEREGION.UNPARSE 160696 . 170095) (\TEDIT.APPLY.PAGELOOKS 170097 . 172024) - (\TEDIT.CHANGE.PAGELOOKS 172026 . 176593) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176595 . 177435)) ( -177438 183241 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177448 . 180260) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN -180262 . 181687) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181689 . 183239))))) + (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) ( +TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347 + . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) ( +MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981) + (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) ( +MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363 + . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN +54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) ( +MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980 + . 65414)) (66241 73523 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START + 68224 . 72571) (\TEDIT.MENU.OPEN? 72573 . 72947) (\TEDIT.MENU.BUTTONEVENTFN 72949 . 73521)) (73842 +81893 (\TEDIT.MENU.CREATE 73852 . 75792) (\TEDIT.MENU.PARSE 75794 . 79483) (\TEDIT.MENU.NEUTRALIZE +79485 . 81556) (\TEDITMENU.RECORD.UNFORMATTED 81558 . 81891)) (81959 101740 ( +\TEDIT.EXPANDEDMENU.CREATE 81969 . 87436) (\TEDIT.EXPANDEDMENU.START 87438 . 89062) ( +\TEDIT.EXPANDEDMENU.FN 89064 . 92319) (\TEDIT.EXPANDEDMENU.ACTIONFN 92321 . 101738)) (101802 121227 ( +\TEDIT.PARAMENU.CREATE 101812 . 110543) (\TEDIT.PARAMENU.START 110545 . 111799) ( +\TEDIT.APPLY.PARALOOKS 111801 . 112853) (\TEDIT.SHOW.PARALOOKS 112855 . 115572) ( +\TEDIT.PARAMENU.FILLIN 115574 . 120323) (\TEDIT.PARAMENU.RESHAPEFN 120325 . 121225)) (121421 148263 ( +\TEDIT.CHARMENU.CREATE 121431 . 124035) (\TEDIT.CHARMENU.START 124037 . 125327) (\TEDIT.CHARMENU.SPEC +125329 . 130012) (\TEDIT.CHARMENU.PARSE 130014 . 133182) (\TEDIT.CHARMENU.FILLIN 133184 . 137814) ( +\TEDIT.SHOW.CHARLOOKS 137816 . 141361) (\TEDIT.APPLY.CHARLOOKS 141363 . 142524) ( +\TEDIT.OFFSETTYPE.STATEFN 142526 . 144489) (\TEDIT.OTHER.STATECHANGEFN 144491 . 146136) ( +\TEDIT.OTHER.SELECTFN 146138 . 148261)) (148325 177383 (\TEDIT.PAGEMENU.CREATE 148335 . 156847) ( +\TEDIT.PAGEMENU.START 156849 . 157200) (\TEDIT.SHOW.PAGELOOKS 157202 . 159088) (\TEDIT.PAGEMENU.FILLIN + 159090 . 160640) (\TEDIT.PAGEREGION.UNPARSE 160642 . 170041) (\TEDIT.APPLY.PAGELOOKS 170043 . 171970) + (\TEDIT.CHANGE.PAGELOOKS 171972 . 176539) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176541 . 177381)) ( +177384 183187 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177394 . 180206) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN +180208 . 181633) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181635 . 183185))))) STOP diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM index 7be47f74510f87eb3d857b460193e8ee87bc86e8..8c35a52dc1e1ef10776debc2adc8559dbd0c993a 100644 GIT binary patch delta 398 zcmZ3qp85Vd<_Y1#hDN$BsmZ!V21cd|1_o9JhE_%svsCL#Qd2TZ>_S{!JVSJSUHwA! ztW6CJH5Is&3=I+Ljf|~~jjfC(3QxsAw3W|zVtrYU|OENO^(iJlE z6qMXTeS8#ad&SX?^Ukx>-8Qxyy? zjEzl<6|BHMaEeqY%FR~bvU2ut^mBI&)(!Dj&me)#s*3XT-D*et}Z^Vk+n8CGMPz5iA9xmm?36jX}MXDY4&MW lO-)S&jmf^(1K5GIn_n>3WZ`oWObT3^bI+aPnCx^t0RTIoY@GlA delta 428 zcmcb=j(O2~<_Y1#Mn<~+$tAi*21cd|hDKJVrdGxivs9fzTwOdv?7*b1ud83Ep0$ak zg{A_R5{h~QD+4ntQ*$MSq@vX1{M>@foYWMB)QWFFscq$HLA)nb}w4m46plS{+R)5q00$kh?(1O-$}A&xXtQm791b#?J^jjXlF$xJFr zEUJXK7s=JyU}q~BS{NH!nk!g={G{s?sZf-gt-xjF?BVF=?i#Ec;;*3L<`)cd@8kw& zsQ^s{tAHTaFi-!`U|koW{Xj<=S|SCKsgC5;cJUV*Bm05lmbPn@!K1;y_XR|5^e7PcnHC diff --git a/library/tedit/TEDIT-PAGE b/library/tedit/TEDIT-PAGE index af52c28e..7efa83c9 100644 --- a/library/tedit/TEDIT-PAGE +++ b/library/tedit/TEDIT-PAGE @@ -1,14 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "27-Sep-2025 16:25:26"  -{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-PAGE.;234 133685 +(FILECREATED "25-Dec-2025 15:07:57" {WMEDLEY}tedit>TEDIT-PAGE.;239 130445 :EDIT-BY rmk :CHANGES-TO (FNS TEDIT.TO.IMAGEFILE) - :PREVIOUS-DATE "19-Sep-2025 22:09:03" -{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-PAGE.;232) + :PREVIOUS-DATE "24-Dec-2025 11:16:05" {WMEDLEY}tedit>TEDIT-PAGE.;238) (PRETTYCOMPRINT TEDIT-PAGECOMS) @@ -52,7 +50,7 @@ 72 72 NIL 1) (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1] - (FNS TEDIT.FORMAT.HARDCOPY TEDIT.TO.IMAGEFILE) + (FNS TEDIT.TO.IMAGEFILE) (COMS (* ;; "Perform page layout, based on a regular expression of typed regions.") @@ -633,45 +631,11 @@ (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1))) (DEFINEQ -(TEDIT.FORMAT.HARDCOPY - [LAMBDA (TEXTSTREAM IMAGESTREAM DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# - STARTPG ENDPG QUIET) (* ; "Edited 19-Sep-2025 22:04 by rmk") - (* ; "Edited 18-Sep-2025 10:11 by rmk") - (* ; "Edited 12-Sep-2025 23:54 by rmk") - (* ; "Edited 5-Jun-2025 08:24 by rmk") - (* ; "Edited 22-Apr-2025 08:12 by rmk") - (* ; "Edited 30-Aug-2024 15:45 by rmk") - (* ; "Edited 5-Apr-2024 08:01 by rmk") - (* ; "Edited 19-Jan-2024 23:39 by rmk") - (* ; "Edited 15-Nov-2023 23:56 by rmk") - (* ; "Edited 4-Jul-2023 11:16 by rmk") - (* ; "Edited 2-Oct-2022 00:00 by rmk") - (* ; - "Edited 25-May-93 13:06 by sybalsky:mv:envos") - - (* ;; "Format a document for hardcopy. Returns the number of pages printed (not the final page number!). Returns NIL if the before-print-fn said not to print.") - - (* ;; "TEXTSTREAM is either already a textstream or somehow denotes a tedit-formatted file, otherwise an error. We don't here try to decide that a non-formatted file is a plain text file, as opposed binary or anything else.") - - (RESETLST - (SETQ TEXTSTREAM (if (TEXTSTREAM TEXTSTREAM T) - elseif (TEDIT.FORMATTEDFILEP TEXTSTREAM) - then [RESETSAVE (SETQ TEXTSTREAM (OPENTEXTSTREAM TEXTSTREAM)) - `(PROGN (CLOSEF? OLDVALUE] - TEXTSTREAM - else (ERROR TEXTSTREAM "is not a Tedit stream"))) - (CL:UNLESS BREAKPAGETITLE - (SETQ BREAKPAGETITLE (if (LISTGET PRINTOPTIONS 'DOCUMENT.NAME) - elseif (GETTEXTPROP TEXTSTREAM 'FILENAME) - elseif [AND (GETTEXTPROP TEXTSTREAM 'FILESTREAM) - (FULLNAME (GETTEXTPROP TEXTSTREAM 'FILESTREAM] - else "TEdit Hardcopy Output"))) - [TEDIT.TO.IMAGEFILE TEXTSTREAM IMAGESTREAM (OR IMAGETYPE DEFAULTPRINTERTYPE) - `(,@PRINTOPTIONS FIRSTPG# ,FIRSTPG# STARTPG ,STARTPG ENDPG ,ENDPG QUIET ,QUIET - BREAKPAGEFILENAME ,BREAKPAGETITLE])]) - (TEDIT.TO.IMAGEFILE - [LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 27-Sep-2025 14:05 by rmk") + [LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS) (* ; "Edited 25-Dec-2025 15:07 by rmk") + (* ; "Edited 20-Dec-2025 23:03 by rmk") + (* ; "Edited 14-Dec-2025 17:38 by rmk") + (* ; "Edited 27-Sep-2025 14:05 by rmk") (* ; "Edited 19-Sep-2025 22:08 by rmk") (* ;; "Format a document for hardcopy. Returns the number of pages printed (not the final page number!). Returns NIL if the before-print-fn said not to print.") @@ -685,6 +649,8 @@ `(PROGN (CLOSEF? OLDVALUE] TSTREAM else (ERROR TSTREAM "is not a Tedit stream"))) + (CL:WHEN (GETTEXTPROP TSTREAM 'MENUFLG) + (SETQ TSTREAM (TEXTSTREAM (\TEDIT.MAINW TSTREAM)))) (CL:UNLESS IMAGEFILE (CL:WHEN (GETTEXTPROP TSTREAM 'FILENAME) [SETQ IMAGEFILE (PACKFILENAME 'VERSION NIL 'EXTENSION (CAR ( @@ -692,6 +658,7 @@ IMAGETYPE)) 'BODY (GETTEXTPROP TSTREAM 'FILENAME])) + (PUTTEXTPROP TSTREAM 'LASTIMAGEFILE NIL) (PROG* ((FIRSTPG# (LISTGET OPTIONS 'FIRSTPG#)) (TEXTOBJ (FTEXTOBJ TSTREAM)) [FORMATTINGSTATE (create PAGEFORMATTINGSTATE @@ -707,7 +674,7 @@ (CDR FIRSTPG#)) PAGE#TEXT _ (AND (LISTP FIRSTPG#) (CAR FIRSTPG#] - IMAGESTREAM PAGEREGION SCRATCHFILE NPAGES) + IMAGESTREAM PAGEREGION SCRATCHFILE) (CL:WHEN (EQ 'DON'T (APPLY* (OR (GETTEXTPROP TEXTOBJ 'BEFOREHARDCOPYFN) (FUNCTION NILL)) TSTREAM)) (* ; @@ -719,11 +686,15 @@ (SETPFS FORMATTINGSTATE PRESSREGION TEDIT.DEFAULTPAGEREGION) (* ;  "Print in the usual region on the page") - (SETQ IMAGESTREAM (OR (IMAGESTREAMP IMAGEFILE) + + (* ;; "TEDIT puts its own headings on the page") + + [SETQ IMAGESTREAM (OR (IMAGESTREAMP IMAGEFILE) (OPENIMAGESTREAM [OR IMAGEFILE (SETQ IMAGEFILE (OPENSTREAM "{NODIRCORE}" 'OUTPUT] - IMAGETYPE OPTIONS))) + IMAGETYPE + `(HEADING NIL ,@OPTIONS] (* ;; "The right margin must be big enough to prevent line wrap on landscaped 14 inch paper, with Postscript's scaling of .01-point increments. (~ 101,000). This will cause a performance hit. Sigh. JDS 9/5/89") @@ -751,19 +722,12 @@ (APPLY* (OR (GETTEXTPROP TEXTOBJ 'AFTERHARDCOPYFN) (FUNCTION NILL)) TSTREAM) - (SETQ NPAGES (GETPFS FORMATTINGSTATE PAGECOUNT)) - (CL:UNLESS (LISTGET OPTIONS 'QUIET) - (TEDIT.PROMPTPRINT TSTREAM [CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES) - "" - "s") - (if (PRINTERNAME IMAGESTREAM) - then (CONCAT " printed on " (PRINTERNAME - IMAGESTREAM)) - elseif (STREAMP (FULLNAME IMAGESTREAM)) - then " printed" - else (CONCAT " on " (PSEUDOFILENAME - (FULLNAME IMAGESTREAM] - T)) + + (* ;; "So caller can formulate a prompt message TEDIT.IMAGEFILE.MESSAGE") + + (PUTTEXTPROP TSTREAM 'LASTIMAGEFILE (LIST (GETPFS FORMATTINGSTATE PAGECOUNT) + (FULLNAME IMAGESTREAM) + (PRINTERNAME IMAGESTREAM))) (RETURN (CLOSEF IMAGESTREAM))))]) ) @@ -2093,19 +2057,18 @@ (RETURN (DREMOVE NIL $$VAL]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (12237 15849 (\TEDIT.PARSE.PAGEFRAMES 12247 . 14026) (\TEDIT.PUT.PAGEFRAMES 14028 . -14852) (\TEDIT.UNPARSE.PAGEFRAMES 14854 . 15847)) (15912 37929 (TEDIT.SINGLE.PAGEFORMAT 15922 . 26915) - (TEDIT.COMPOUND.PAGEFORMAT 26917 . 27896) (TEDIT.PAGEFORMAT 27898 . 35187) (TEDIT.GET.PAGEFORMAT -35189 . 37927)) (38216 47749 (TEDIT.FORMAT.HARDCOPY 38226 . 41261) (TEDIT.TO.IMAGEFILE 41263 . 47747)) - (47836 101088 (\TEDIT.FORMATBOX 47846 . 61270) (\TEDIT.FORMATHEADING 61272 . 65918) ( -\TEDIT.FORMATPAGE 65920 . 75109) (\TEDIT.FORMATTEXTBOX 75111 . 91624) (\TEDIT.FORMATFOLIO 91626 . -96943) (\TEDIT.FORMAT.FOUNDBOX? 96945 . 98984) (\TEDIT.SKIP.SPECIALCOND 98986 . 101086)) (101168 -106223 (\TEDIT.HARDCOPY.PAGEHEADINGS 101178 . 106221)) (106332 114383 (\TEDIT.HARDCOPY-COLUMN-END -106342 . 114381)) (114428 119369 (SCALEPAGEUNITS 114438 . 115579) (SCALEPAGEXUNITS 115581 . 116351) ( -SCALEPAGEYUNITS 116353 . 117124) (\TEDIT.PAPERHEIGHT 117126 . 118061) (\TEDIT.PAPERWIDTH 118063 . -119367)) (119785 123353 (ROMANNUMERALS 119795 . 123351)) (123392 130658 (TEDIT.PAGENO.CREATE 123402 . -123778) (\TEDIT.PAGENO.OBJINIT 123780 . 125063) (\TEDIT.PAGENO.BUTTONEVENTINFN 125065 . 126131) ( -\TEDIT.PAGENO.IMAGEBOXFN 126133 . 128283) (\TEDIT.PAGENO.DISPLAYFN 128285 . 129935) ( -\TEDIT.PAGENO.GETFN 129937 . 130329) (\TEDIT.PAGENO.PUTFN 130331 . 130656)) (130723 133662 ( -\TEDIT.FORMAT.FOOTNOTE 130733 . 133660))))) + (FILEMAP (NIL (12133 15745 (\TEDIT.PARSE.PAGEFRAMES 12143 . 13922) (\TEDIT.PUT.PAGEFRAMES 13924 . +14748) (\TEDIT.UNPARSE.PAGEFRAMES 14750 . 15743)) (15808 37825 (TEDIT.SINGLE.PAGEFORMAT 15818 . 26811) + (TEDIT.COMPOUND.PAGEFORMAT 26813 . 27792) (TEDIT.PAGEFORMAT 27794 . 35083) (TEDIT.GET.PAGEFORMAT +35085 . 37823)) (38112 44509 (TEDIT.TO.IMAGEFILE 38122 . 44507)) (44596 97848 (\TEDIT.FORMATBOX 44606 + . 58030) (\TEDIT.FORMATHEADING 58032 . 62678) (\TEDIT.FORMATPAGE 62680 . 71869) (\TEDIT.FORMATTEXTBOX + 71871 . 88384) (\TEDIT.FORMATFOLIO 88386 . 93703) (\TEDIT.FORMAT.FOUNDBOX? 93705 . 95744) ( +\TEDIT.SKIP.SPECIALCOND 95746 . 97846)) (97928 102983 (\TEDIT.HARDCOPY.PAGEHEADINGS 97938 . 102981)) ( +103092 111143 (\TEDIT.HARDCOPY-COLUMN-END 103102 . 111141)) (111188 116129 (SCALEPAGEUNITS 111198 . +112339) (SCALEPAGEXUNITS 112341 . 113111) (SCALEPAGEYUNITS 113113 . 113884) (\TEDIT.PAPERHEIGHT 113886 + . 114821) (\TEDIT.PAPERWIDTH 114823 . 116127)) (116545 120113 (ROMANNUMERALS 116555 . 120111)) ( +120152 127418 (TEDIT.PAGENO.CREATE 120162 . 120538) (\TEDIT.PAGENO.OBJINIT 120540 . 121823) ( +\TEDIT.PAGENO.BUTTONEVENTINFN 121825 . 122891) (\TEDIT.PAGENO.IMAGEBOXFN 122893 . 125043) ( +\TEDIT.PAGENO.DISPLAYFN 125045 . 126695) (\TEDIT.PAGENO.GETFN 126697 . 127089) (\TEDIT.PAGENO.PUTFN +127091 . 127416)) (127483 130422 (\TEDIT.FORMAT.FOOTNOTE 127493 . 130420))))) STOP diff --git a/library/tedit/TEDIT-PAGE.LCOM b/library/tedit/TEDIT-PAGE.LCOM index 48af16b5e0b2b0ab61f7b84925072c0b953caf31..dcf4d3137f26d645f3d29f8e30032691d3e86926 100644 GIT binary patch delta 1568 zcma)6OK%%h6wZVykU>q$5Ve*m^dHE4q7<=wGL+7QLNynBDD6uUP;^HU- zi7KkRLzUQ|j@Ti@Pe4Rjv50^T`~}3Oi>e5z;xBOK+KvNs(OKB{JNKOLe&?QZ?$amS z<3G5sT0^a9_Busbk~JV&O)A&4vIqsSGq}6A)9-a*@Ck@;n7Gt*X#4)#{hh7-&Ha0~ z4tm|4gIh5*?YI~iO2vraglMBD+>w4QWJU%MaaXHM7d# z2eIvYQ3jMzMBENogqr>huWf!dKR3fA!VW)!-!Vyq`E2pSl|lA5Mjc^0pHD93JC{xp z;mbr|dn}+MbU(@*8TfYW&KNqvNwRo!GZ9jMDQD%GjbpxvFbz3Bmqm9Lk(U{_U(Rrn zV_^9e<6I*Al35-m!ULrGZmD&dykt+~k6&c#A93%3xKw8n?cd@L7f#&S@t0i5p%Qlf zaUoeeewC@8QgjxRJVV<_E}u_77R8H#H;Lx_1vkm3--w4pVb{5^Fwr^LpB%z@?10fP zURIvvaWcXeX9~KkL&NbSYJpCw5NyOTZN)+82Z$vILfeaJ=ou~rT~fi?a2y6StqM(= zIS)tPsz%^_*65|I%0^uGTcBc{%?L@F>#=KuP1^%ilCbpDV?8o%8l^&*Z36Xi3yp99 z3XbfU8(D4}jo7|JL9XbTgqx>=iBA5N08upvjK=M(6PakDOhk_~6PcucUB4<3iHwsO z*()-RY-`feb7pk~L2;%TpIx(=T0IG|}N7#3dJx)GWUKWJMXXsViC zw_vF1D%3ohu&1Qx7;S$e2Bj*&IyFq&Yl2eN0c}_aP$UgZ-&>ABt|}vH8BeWKykL5U zTgJjs&kUL%XVVrNVT@~1Ewe2A`g^#R(2fH-bb*v{S}{9j*DGMzVTAtI@KMzMlMzv{ z;-{Annk{zPaD+4EF9JBx?Hj&H6bWWF`IJ>a`nvEH6QG6L?76EjV-cE>~|Z zw{A|a*S0olo71Icy|yuZV|i&~`Hqy5r*Ah~>y6FTslYP5(YW5KweC#2dckmm`;?{4 z>Zwbjl%9YDFDmrS{lTk6F(+qovULAjsm<(xIh9KBuvFVdKe`8c`?EPg;wKX0MWdwW zZC%4R0WZEbp8w+ijNZJRcT z888tnQZSOn^5Lwcg7TtF8`}Z}-1c5svE7NR_6ke41a8P;kaHmEZjDG<*sCP=D-^p0 zBKY=#Ueu~3^chR9+pLNzhJ|=xt+Vt%s9`^41g5f=DFg~;zFJ2AQ`CT70U;9buD;aR zhAXw!QoXr#2h3aBTer4(NX!1CvEc(C694Jg`B(b)#aOOQgwTBhn71DmSbhz4YO z?i-jB)|Jd_1ABB|0~@q~b$ed7!NBHzX$TA)f`VCb9a>2PhlC;Zhd~>_hRC1eN8`u* zHNN^%yusbm%+Vf1eb5{AhW(Gu@Ta&+_f*{MFMFf@S7+|F zx%JY?2waF7zc$eELN|Bn9%l|PSaV?g?}tqKnB6Pvy^kXD;|qa}EquWi9uGyui=fCPoLe0KvK0&zC}|n;W+kt=C<=R`gstl6)q=S14)S07;Rc;NYyxUUAEs zJ!@1zLhmULMM+*lhp8AHl~$|E#VQiCSy%+D5n^B>@w*CH0g#cHsNlyk+)J5L5!3jK#s0Gt zjGc$AR$~)?d3cajv8M(*WW?cb>bRD{Q~1C*@kDKPna5&g&_yC-M9c(kyIU~}hMmWN z@9_!z;;6uPshLMr@>^pwJG)~-;boG$|NQjH2^df0&9VdIlW^%0JXk3YBwpz#|JsTf vPx#jOuzx}u@_$`9g4&-eMSp8%^e7@sCg@q;UcKIz0Do*Yx%2bt!$bc7`^|?G diff --git a/library/tedit/TEDIT-SCREEN b/library/tedit/TEDIT-SCREEN index fba40237..cdc04516 100644 --- a/library/tedit/TEDIT-SCREEN +++ b/library/tedit/TEDIT-SCREEN @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "21-Nov-2025 16:36:15" {WMEDLEY}TEDIT>TEDIT-SCREEN.;913 186644 +(FILECREATED " 7-Dec-2025 16:28:01" {WMEDLEY}TEDIT>TEDIT-SCREEN.;914 186683 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.FORMATLINE) + :CHANGES-TO (FNS \TEDIT.FORMATLINE.SETUP.PARA) - :PREVIOUS-DATE "26-Oct-2025 17:10:29" {WMEDLEY}TEDIT>TEDIT-SCREEN.;912) + :PREVIOUS-DATE "21-Nov-2025 16:36:15" {WMEDLEY}TEDIT>TEDIT-SCREEN.;913) (PRETTYCOMPRINT TEDIT-SCREENCOMS) @@ -1224,7 +1224,8 @@ (RETURN LINE]) (\TEDIT.FORMATLINE.SETUP.PARA - [LAMBDA (TEXTOBJ PC LINE IMAGESTREAM LINETYPE) (* ; "Edited 19-Feb-2025 13:37 by rmk") + [LAMBDA (TEXTOBJ PC LINE IMAGESTREAM LINETYPE) (* ; "Edited 7-Dec-2025 16:26 by rmk") + (* ; "Edited 19-Feb-2025 13:37 by rmk") (* ; "Edited 8-Feb-2025 23:36 by rmk") (* ; "Edited 7-Feb-2025 08:09 by rmk") (* ; "Edited 22-Nov-2024 11:14 by rmk") @@ -1259,9 +1260,8 @@ (* ;; "Coerce the image stream and PARALOOKS for HARDCOPYDISPLAY.") [SETQ IMAGESTREAM (OR (FGETTOBJ TEXTOBJ DISPLAYHCPYDS) - (FSETTOBJ TEXTOBJ DISPLAYHCPYDS (OPENIMAGESTREAM - '{NODIRCORE} - 'POSTSCRIPT] + (FSETTOBJ TEXTOBJ DISPLAYHCPYDS (OPENIMAGESTREAM NIL + DEFAULTPRINTERTYPE] (SETQ SCALE (DSPSCALE NIL IMAGESTREAM)) [SETQ PLOOKS (create PARALOOKS using PLOOKS FMTHARDCOPYSCALE _ SCALE RIGHTMAR _ (SCALEUP SCALE (FGETPLOOKS PLOOKS RIGHTMAR)) @@ -2863,21 +2863,21 @@ (\TEDIT.LINE.TALLP LINE PHEIGHT))))]) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (26214 28430 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26224 . 28428)) (35884 119488 ( -\TEDIT.FORMATLINE 35894 . 71000) (\TEDIT.FORMATLINE.SETUP.PARA 71002 . 76168) ( -\TEDIT.FORMATLINE.HORIZONTAL 76170 . 80987) (\TEDIT.FORMATLINE.VERTICAL 80989 . 83440) ( -\TEDIT.FORMATLINE.JUSTIFY 83442 . 89463) (\TEDIT.FORMATLINE.TABS 89465 . 97493) (\TEDIT.SCALE.TABS -97495 . 98286) (\TEDIT.FORMATLINE.PURGE.SPACES 98288 . 99715) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN -99717 . 100794) (\TEDIT.FORMATLINE.EMPTY 100796 . 105616) (\TEDIT.FORMATLINE.UPDATELOOKS 105618 . -111799) (\TEDIT.FORMATLINE.LASTLEGAL 111801 . 115251) (\TEDIT.LINES.ABOVE 115253 . 118864) ( -\TEDIT.CHNO.TO.YTOP 118866 . 119486)) (119765 140345 (\TEDIT.DISPLAYLINE 119775 . 132285) ( -\TEDIT.DISPLAYLINE.TABS 132287 . 135091) (\TEDIT.LINECACHE 135093 . 135821) (\TEDIT.CREATE.LINECACHE -135823 . 136659) (\TEDIT.BLTCHAR 136661 . 139288) (\TEDIT.DIACRITIC.SHIFT 139290 . 140343)) (140960 -186621 (\TEDIT.BACKFORMAT 140970 . 143524) (\TEDIT.PREVIOUS.LINEBREAK 143526 . 146329) ( -\TEDIT.UPDATE.LINES 146331 . 152637) (\TEDIT.PANE.CREATELINES 152639 . 154929) ( -\TEDIT.SUFFIXLINE.CREATE 154931 . 156546) (\TEDIT.LINES.BELOW 156548 . 161158) (\TEDIT.MEASURED.LINES -161160 . 163169) (\TEDIT.VALID.LASTCHNOS 163171 . 166947) (\TEDIT.VALID.NEXTCHNOS 166949 . 170423) ( -\TEDIT.LASTVALIDLINE 170425 . 175096) (\TEDIT.NEXTVALIDLINE 175098 . 178068) ( -\TEDIT.CLEARPANE.BELOW.LINE 178070 . 180176) (\TEDIT.INSERTLINE 180178 . 181564) (\TEDIT.LINE.BOTTOM -181566 . 184796) (\TEDIT.SHOW.AT.BOTTOMP 184798 . 185908) (\TEDIT.SHOW.AT.TOPP 185910 . 186619))))) + (FILEMAP (NIL (26225 28441 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26235 . 28439)) (35895 119527 ( +\TEDIT.FORMATLINE 35905 . 71011) (\TEDIT.FORMATLINE.SETUP.PARA 71013 . 76207) ( +\TEDIT.FORMATLINE.HORIZONTAL 76209 . 81026) (\TEDIT.FORMATLINE.VERTICAL 81028 . 83479) ( +\TEDIT.FORMATLINE.JUSTIFY 83481 . 89502) (\TEDIT.FORMATLINE.TABS 89504 . 97532) (\TEDIT.SCALE.TABS +97534 . 98325) (\TEDIT.FORMATLINE.PURGE.SPACES 98327 . 99754) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN +99756 . 100833) (\TEDIT.FORMATLINE.EMPTY 100835 . 105655) (\TEDIT.FORMATLINE.UPDATELOOKS 105657 . +111838) (\TEDIT.FORMATLINE.LASTLEGAL 111840 . 115290) (\TEDIT.LINES.ABOVE 115292 . 118903) ( +\TEDIT.CHNO.TO.YTOP 118905 . 119525)) (119804 140384 (\TEDIT.DISPLAYLINE 119814 . 132324) ( +\TEDIT.DISPLAYLINE.TABS 132326 . 135130) (\TEDIT.LINECACHE 135132 . 135860) (\TEDIT.CREATE.LINECACHE +135862 . 136698) (\TEDIT.BLTCHAR 136700 . 139327) (\TEDIT.DIACRITIC.SHIFT 139329 . 140382)) (140999 +186660 (\TEDIT.BACKFORMAT 141009 . 143563) (\TEDIT.PREVIOUS.LINEBREAK 143565 . 146368) ( +\TEDIT.UPDATE.LINES 146370 . 152676) (\TEDIT.PANE.CREATELINES 152678 . 154968) ( +\TEDIT.SUFFIXLINE.CREATE 154970 . 156585) (\TEDIT.LINES.BELOW 156587 . 161197) (\TEDIT.MEASURED.LINES +161199 . 163208) (\TEDIT.VALID.LASTCHNOS 163210 . 166986) (\TEDIT.VALID.NEXTCHNOS 166988 . 170462) ( +\TEDIT.LASTVALIDLINE 170464 . 175135) (\TEDIT.NEXTVALIDLINE 175137 . 178107) ( +\TEDIT.CLEARPANE.BELOW.LINE 178109 . 180215) (\TEDIT.INSERTLINE 180217 . 181603) (\TEDIT.LINE.BOTTOM +181605 . 184835) (\TEDIT.SHOW.AT.BOTTOMP 184837 . 185947) (\TEDIT.SHOW.AT.TOPP 185949 . 186658))))) STOP diff --git a/library/tedit/TEDIT-SCREEN.LCOM b/library/tedit/TEDIT-SCREEN.LCOM index ba69abb31ff2fad3dce63ecd5c959b446458d864..fc170b8170150dc290d59fbe4bc332aa4eafb964 100644 GIT binary patch delta 541 zcmZvY&2G~`6oqj>2!-y5fRqGX%%%yoHNWn}s~UT(S`3agp76hD)kdYNRFL@F6m?ax zKuAO*R;=I+s)!{kRy+U?z#H%gIE_J-;I2ODoO{pFog6kk9yZ?JZNZ9{j5j@k2nQU5 zM1+V;cEii82Td3F2~mU;g>>?D$#&Zd4|n#!O-D+>NssUQE;P3`o{zWSKg$fcz2;Jy zDH&@S8JSe3f8()@oc=imSOkHf_L+mL!1KKxgoT!Ovf-%ol4==Tg1!97%fHoW5Mo}% zPhR((ragFZb$YS!^pb<@oAzzzoBh#VzVad4Z7m-;?~?6P)%^N=AljS7v;(CRG7!umWjzPXptF8nF0dDdR{<-$XY{UiGf|lCn6y3Yb%?I%$i7%5s^=GS*pPh8j2v?9a~PHBJZ6Kd$Pwf4McoGuoxbg! G9sdS>5s7&K delta 530 zcmZvYPfHt76vg|3lp-!%C?>_=WeQ@_%rNiYO!8JvXI^k%oEhFs+ES!cR73*02_gh_ zIlroeNm+iSTr#GH?%v##)6N3ZtcOzDHz>e6v6)n%d!kO+#ehr&LK$w8;!-SZWu{l zNiUZH81r`P2sK|(z-`B2OkW|q*#MC$`94f~nHdyd!8vAfFep2_0^5Rg^e^-lk;zhJ zw1$}eQQJk2`gg6h@h$AHwC>S3IDS#QKX>?WUy`oW=TltQR zQs6d*Zun6Fb7(0DdA4M}7fCDk-etgSHXBpNDMfL{DM{LHDOjfzxXi+B2J!3&1h7kB zDag`kDq!yF&+FY)7osqhfy{grrg@@(a~t%Ri|QNTj6!o-*7SQy$v96v<(aTEDIT>TEDIT-WINDOW.;881 231034 +(FILECREATED "24-Dec-2025 11:22:33" {WMEDLEY}TEDIT>TEDIT-WINDOW.;883 231422 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.WINDOW.CREATE) + :CHANGES-TO (FNS \TEDIT.MINIMAL.WINDOW.SETUP TEDIT.PROMPTCLEAR TEDIT.PROMPTPRINT) - :PREVIOUS-DATE "25-Oct-2025 10:33:08" {WMEDLEY}TEDIT>TEDIT-WINDOW.;878) + :PREVIOUS-DATE "15-Nov-2025 01:27:38" {WMEDLEY}tedit>TEDIT-WINDOW.;881) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -608,7 +608,9 @@ (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE]) (\TEDIT.MINIMAL.WINDOW.SETUP - [LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 19-Oct-2025 14:55 by rmk") + [LAMBDA (PANEWINDOW TSTREAM PROPS) (* ; "Edited 23-Dec-2025 23:41 by rmk") + (* ; "Edited 20-Dec-2025 23:04 by rmk") + (* ; "Edited 19-Oct-2025 14:55 by rmk") (* ; "Edited 20-Apr-2025 15:19 by rmk") (* ; "Edited 30-Nov-2024 13:32 by rmk") (* ; "Edited 4-Nov-2024 19:46 by rmk") @@ -687,8 +689,7 @@ (WINDOWPROP PANEWINDOW 'CURSOROUTFN (FUNCTION \TEDIT.CURSOROUTFN)) (WINDOWPROP PANEWINDOW 'BUTTONEVENTFN (FUNCTION \TEDIT.BUTTONEVENTFN)) (WINDOWPROP PANEWINDOW 'RIGHTBUTTONFN (FUNCTION \TEDIT.BUTTONEVENTFN)) - (WINDOWPROP PANEWINDOW 'HARDCOPYFN (FUNCTION TEDIT.HARDCOPYFN)) - (WINDOWPROP PANEWINDOW 'HARDCOPYFILEFN (FUNCTION \TEDIT.HARDCOPYFILEFN)) + (WINDOWPROP PANEWINDOW 'IMAGETYPE 'TEDIT) (* ; "For hardcopy") (WINDOWPROP PANEWINDOW 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN)) (WINDOWPROP PANEWINDOW 'REPAINTFN (FUNCTION \TEDIT.REPAINTFN)) (WINDOWPROP PANEWINDOW 'AFTERMOVEFN (FUNCTION \TEDIT.AFTERMOVEFN)) @@ -2059,7 +2060,8 @@ PROMPTWINDOW]) (TEDIT.PROMPTPRINT - [LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?) (* ; "Edited 29-Dec-2024 14:45 by rmk") + [LAMBDA (TSTREAM MSG CLEAR? FLASH?) (* ; "Edited 14-Dec-2025 17:41 by rmk") + (* ; "Edited 29-Dec-2024 14:45 by rmk") (* ; "Edited 26-Nov-2023 10:10 by rmk") (* ; "Edited 10-Sep-2023 00:27 by rmk") (* ; "Edited 30-Jul-2023 08:52 by rmk") @@ -2070,7 +2072,7 @@ (* ;; "Print a message in the editor's prompt window (if none, use the global promptwindow). Optionally clear the window first.") - (LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM T)) + (LET ((TEXTOBJ (TEXTOBJ TSTREAM T)) PWINDOW MAINWINDOW) (if TEXTOBJ then (CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ)) @@ -2078,7 +2080,7 @@ (CAR (NLSETQ (SELECTQ PWINDOW (DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND) (GETPROMPTWINDOW MAINWINDOW))) - (NIL (CL:WHEN TEXTSTREAM + (NIL (CL:WHEN TSTREAM [GETPROMPTWINDOW MAINWINDOW NIL NIL (NOT (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND])) PWINDOW]) (* ; @@ -2097,15 +2099,15 @@ else (PROMPTPRINT MSG]) (TEDIT.PROMPTCLEAR - [LAMBDA (TSTREAM FONT) (* ; "Edited 18-Sep-2025 23:08 by rmk") + [LAMBDA (TSTREAM FONT) (* ; "Edited 14-Dec-2025 17:34 by rmk") + (* ; "Edited 18-Sep-2025 23:08 by rmk") (* ; "Edited 14-Mar-98 12:52 by rmk:") (* ; "Edited 14-Oct-87 15:35 by bvm:") (* ;; "Clears the promptwindow attached to TSTREAM and shrinks it back to a single line in font FONT (or TEDIT.PROMPT.FONT) if it has grown. [TSTREAM could actually be a stream on the promptwindow itself.--is that true, does this code need to deal with that?]") (LET* [(MW (\TEDIT.MAINW TSTREAM)) - (PW (AND MW (WINDOWPROP (\TEDIT.MAINW TSTREAM) - 'TEDIT.PROMPTWINDOW] + (PW (AND MW (GETPROMPTWINDOW MW NIL NIL (NOT (GETTEXTPROP TSTREAM 'PWINDOW.ON.DEMAND] (CL:WHEN PW (WINDOWPROP PW 'TEDIT.NLINES 1) (CL:WHEN [AND (SETQ MW (WINDOWPROP PW 'MAINWINDOW)) @@ -3662,36 +3664,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17100 17996 (TEDIT.DEFER.UPDATES 17110 . 17994)) (17997 45089 (\TEDIT.WINDOW.CREATE -18007 . 24870) (\TEDIT.WINDOW.GETREGION 24872 . 29576) (\TEDIT.WINDOW.SETUP 29578 . 33908) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33910 . 41721) (\TEDIT.CLEARPANE 41723 . 42440) (\TEDIT.FILL.PANES 42442 - . 45087)) (45090 68791 (\TEDIT.CURSORMOVEDFN 45100 . 50710) (\TEDIT.CURSOROUTFN 50712 . 51400) ( -\TEDIT.ACTIVE.WINDOWP 51402 . 52472) (\TEDIT.EXPANDFN 52474 . 53037) (\TEDIT.MAINW 53039 . 54319) ( -\TEDIT.MAINSTREAM 54321 . 54655) (\TEDIT.PRIMARYPANE 54657 . 55427) (\TEDIT.PANELIST 55429 . 55925) ( -\TEDIT.NEWREGIONFN 55927 . 58443) (\TEDIT.SET.WINDOW.EXTENT 58445 . 63427) (\TEDIT.SHRINK.ICONCREATE -63429 . 66162) (\TEDIT.SHRINKFN 66164 . 66573) (\TEDIT.PANEREGION 66575 . 68789)) (68823 101869 ( -\TEDIT.BUTTONEVENTFN 68833 . 81806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81808 . 89071) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 89073 . 90915) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90917 . 94587) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 94589 . 97019) (\TEDIT.BUTTONEVENTFN.INTITLE 97021 . 98856) ( -\TEDIT.COPYINSERTFN 98858 . 99990) (\TEDIT.FOREIGN.COPY 99992 . 101867)) (101870 119433 ( -\TEDIT.PANE.SPLIT 101880 . 105828) (\TEDIT.SPLITW 105830 . 113889) (\TEDIT.UNSPLITW 113891 . 118090) ( -\TEDIT.LINKPANES 118092 . 118855) (\TEDIT.UNLINKPANE 118857 . 119431)) (120867 121758 (TEDITWINDOWP -120877 . 121756)) (121795 124898 (TEDIT.GETINPUT 121805 . 124248) (\TEDIT.MAKEFILENAME 124250 . 124896 -)) (124947 132597 (TEDIT.PROMPTWINDOW 124957 . 125271) (TEDIT.PROMPTPRINT 125273 . 127900) ( -TEDIT.PROMPTCLEAR 127902 . 129644) (TEDIT.PROMPTFLASH 129646 . 130904) (\TEDIT.PROMPT.PAGEFULLFN -130906 . 132595)) (132835 143413 (\TEDIT.FILENAME 132845 . 133617) (\TEDIT.DEFAULT.TITLE 133619 . -135998) (\TEDIT.WINDOW.TITLE 136000 . 138169) (\TEDIT.LIKELY.FILENAME 138171 . 140895) ( -\TEDIT.UPDATE.TITLE 140897 . 143411)) (143456 155940 (TEDIT.DEACTIVATE.WINDOW 143466 . 149039) ( -\TEDIT.RESHAPEFN 149041 . 151126) (\TEDIT.REPAINTFN 151128 . 151352) (\TEDIT.CLOSESPLITS 151354 . -153799) (\TEDIT.CLOSEPANE 153801 . 155938)) (155941 198740 (\TEDIT.SCROLLFN 155951 . 158182) ( -\TEDIT.SCROLLCH.TOP 158184 . 160295) (\TEDIT.SCROLLCH.BOTTOM 160297 . 164627) (\TEDIT.SCROLLUP 164629 - . 170355) (\TEDIT.TOPLINE.YTOP 170357 . 172026) (\TEDIT.SCROLLDOWN 172028 . 179067) ( -\TEDIT.SCROLL.CARET 179069 . 181907) (\TEDIT.VISIBLECARETP 181909 . 184203) (\TEDIT.VISIBLECHARP -184205 . 185296) (\TEDIT.BITMAPLINES 185298 . 189218) (\TEDIT.SETPANE.TOPLINE 189220 . 189832) ( -\TEDIT.SHIFTLINES 189834 . 198738)) (198741 209610 (\TEDIT.ONSCREEN? 198751 . 203302) ( -\TEDIT.ONSCREEN.REGION 203304 . 206955) (\TEDIT.AFTERMOVEFN 206957 . 207854) (OFFSCREENP 207856 . -209608)) (209652 212466 (\TEDIT.PROCIDLEFN 209662 . 211322) (\TEDIT.PROCENTRYFN 211324 . 211769) ( -\TEDIT.PROCEXITFN 211771 . 212464)) (212545 225770 (\TEDIT.DOWNCARET 212555 . 213348) ( -\TEDIT.FLASHCARET 213350 . 215461) (\TEDIT.UPCARET 215463 . 216567) (TEDIT.NORMALIZECARET 216569 . -219787) (\TEDIT.SETCARET 219789 . 225140) (\TEDIT.CARET 225142 . 225768))))) + (FILEMAP (NIL (17143 18039 (TEDIT.DEFER.UPDATES 17153 . 18037)) (18040 45281 (\TEDIT.WINDOW.CREATE +18050 . 24913) (\TEDIT.WINDOW.GETREGION 24915 . 29619) (\TEDIT.WINDOW.SETUP 29621 . 33951) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33953 . 41913) (\TEDIT.CLEARPANE 41915 . 42632) (\TEDIT.FILL.PANES 42634 + . 45279)) (45282 68983 (\TEDIT.CURSORMOVEDFN 45292 . 50902) (\TEDIT.CURSOROUTFN 50904 . 51592) ( +\TEDIT.ACTIVE.WINDOWP 51594 . 52664) (\TEDIT.EXPANDFN 52666 . 53229) (\TEDIT.MAINW 53231 . 54511) ( +\TEDIT.MAINSTREAM 54513 . 54847) (\TEDIT.PRIMARYPANE 54849 . 55619) (\TEDIT.PANELIST 55621 . 56117) ( +\TEDIT.NEWREGIONFN 56119 . 58635) (\TEDIT.SET.WINDOW.EXTENT 58637 . 63619) (\TEDIT.SHRINK.ICONCREATE +63621 . 66354) (\TEDIT.SHRINKFN 66356 . 66765) (\TEDIT.PANEREGION 66767 . 68981)) (69015 102061 ( +\TEDIT.BUTTONEVENTFN 69025 . 81998) (\TEDIT.BUTTONEVENTFN.DOOPERATION 82000 . 89263) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 89265 . 91107) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 91109 . 94779) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 94781 . 97211) (\TEDIT.BUTTONEVENTFN.INTITLE 97213 . 99048) ( +\TEDIT.COPYINSERTFN 99050 . 100182) (\TEDIT.FOREIGN.COPY 100184 . 102059)) (102062 119625 ( +\TEDIT.PANE.SPLIT 102072 . 106020) (\TEDIT.SPLITW 106022 . 114081) (\TEDIT.UNSPLITW 114083 . 118282) ( +\TEDIT.LINKPANES 118284 . 119047) (\TEDIT.UNLINKPANE 119049 . 119623)) (121059 121950 (TEDITWINDOWP +121069 . 121948)) (121987 125090 (TEDIT.GETINPUT 121997 . 124440) (\TEDIT.MAKEFILENAME 124442 . 125088 +)) (125139 132985 (TEDIT.PROMPTWINDOW 125149 . 125463) (TEDIT.PROMPTPRINT 125465 . 128195) ( +TEDIT.PROMPTCLEAR 128197 . 130032) (TEDIT.PROMPTFLASH 130034 . 131292) (\TEDIT.PROMPT.PAGEFULLFN +131294 . 132983)) (133223 143801 (\TEDIT.FILENAME 133233 . 134005) (\TEDIT.DEFAULT.TITLE 134007 . +136386) (\TEDIT.WINDOW.TITLE 136388 . 138557) (\TEDIT.LIKELY.FILENAME 138559 . 141283) ( +\TEDIT.UPDATE.TITLE 141285 . 143799)) (143844 156328 (TEDIT.DEACTIVATE.WINDOW 143854 . 149427) ( +\TEDIT.RESHAPEFN 149429 . 151514) (\TEDIT.REPAINTFN 151516 . 151740) (\TEDIT.CLOSESPLITS 151742 . +154187) (\TEDIT.CLOSEPANE 154189 . 156326)) (156329 199128 (\TEDIT.SCROLLFN 156339 . 158570) ( +\TEDIT.SCROLLCH.TOP 158572 . 160683) (\TEDIT.SCROLLCH.BOTTOM 160685 . 165015) (\TEDIT.SCROLLUP 165017 + . 170743) (\TEDIT.TOPLINE.YTOP 170745 . 172414) (\TEDIT.SCROLLDOWN 172416 . 179455) ( +\TEDIT.SCROLL.CARET 179457 . 182295) (\TEDIT.VISIBLECARETP 182297 . 184591) (\TEDIT.VISIBLECHARP +184593 . 185684) (\TEDIT.BITMAPLINES 185686 . 189606) (\TEDIT.SETPANE.TOPLINE 189608 . 190220) ( +\TEDIT.SHIFTLINES 190222 . 199126)) (199129 209998 (\TEDIT.ONSCREEN? 199139 . 203690) ( +\TEDIT.ONSCREEN.REGION 203692 . 207343) (\TEDIT.AFTERMOVEFN 207345 . 208242) (OFFSCREENP 208244 . +209996)) (210040 212854 (\TEDIT.PROCIDLEFN 210050 . 211710) (\TEDIT.PROCENTRYFN 211712 . 212157) ( +\TEDIT.PROCEXITFN 212159 . 212852)) (212933 226158 (\TEDIT.DOWNCARET 212943 . 213736) ( +\TEDIT.FLASHCARET 213738 . 215849) (\TEDIT.UPCARET 215851 . 216955) (TEDIT.NORMALIZECARET 216957 . +220175) (\TEDIT.SETCARET 220177 . 225528) (\TEDIT.CARET 225530 . 226156))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 4b6b6bdf22914d269b4975f40b6b5279127616a6..02c73d4d5efc1a6134303412bb4ec76666222377 100644 GIT binary patch delta 1309 zcmZux&u`O66mE(@yAcSLwm`}cJ+g;wR;t%C;~CpQ0!%zJEUC@5~2ty5CVj_ zaHzO)qA~|=fH-ggB*={eh{H;&UF{#hZEp)V{sVZn)8IzUA@cX;dvD(R-h1=%%Z_iK zcRcLRP-DTpd})E|lmj76N}G&rTx-@?1FCgGONVxoiKfmr-XBRH&(5A(y8-of&-0*6 z(lo6Os~7KFUai75-h|d0)%mvaWGj+RB3-C&d;h)PequlwF(^&%R({RyF9eKjS;4LG6GLPtEkW(^6T;!V^5b44i%1}JHpbz$1wp$VqlVHSJed1X*=Mm* z!ZDa8NzWagTNeUaUJ%Q+4<^UJg<`(!M{-dGes0!b3ug8vEs}A^33Fd&KnYQ{Ns-H; zw_yahO@D|8+#;KFY-UTjURF0Z#ZXr1C(%k~ z5hE3yb|Ry0kgmVmX>y^%5TDH*jgpF?gQJ=G8kveC#4!J7@ytA@7PNwJ1)DCToJY)} zUf_g+>N+@kE1?{`K3ek!e_wxI8Qi>KOxFL}IWaML>gNgkO;sj3t8e#TT|IRrgVpTs z>et=r$D6O#vCMp1`amoLf>8SX5Qu4FGqAa6?Nz8a6?*D;lbpX#2~Icr<*>y|oTSx9R)PODdPkMOeGGabxX} zXe<*HONH~U=d)_WoP^at?Bz<^PbWtaU>#|?AvSY!GX2p~2`XX4mc5`E&(|asirAbF zu5V<;Ag!Y770oI_VS95fPpx)2f8kVap?!I>nHSpB39&QvQ^yEe9TlSCOvV)M&je{$q7OY81N9RJWXPlgB~5h6_3Zwh-I08 zAbXI53m_k2PO)S}|Y)#)v2VW|2+%v=tX%DbeNUQ*_) z6|p5R;L1!0^kLK7r$sETJ7F4YYS4ppd!NEqLWkE>8r^^cfc2DcR^AoYBadHH3}nFp z(5N^!b9zhGop_1Q8jLq3hgbx%68o*%VOG+uB1>ELssYai28c;PL6y@)-J_xH7cS)t ze1A*%<lxm^SW+&3F>6DvQ;X)^QUSHG<`oND1^|(j#r? zcsx<}n?z}wLWPX(S5<>>Rn7*BlGJWMzd_G5mJ-*UsHS{sVH6cxFla)wqhQw|c?cgr zAWEzu@qJ<9&Ffj7XDjVjx8LT}dvV>&&wLvh8p+CP#&@Dxtt;K;lTvMgQJbK!ST0Es55V=o_KC&AuJ2rfG3^4(sal2 zrll5Y#GrB&#NLxB@p-qf)$LV7O51|2)+v<#6QmPpI4iMti2;&3-;m;}v!!>mkv(pN pNm*S7aw{^}DZ|udtW2B!C%{0R5bk@N#egv+LX3{JU)=xo_&;&vVM+i1 diff --git a/library/tedit/TEDIT.LCOM b/library/tedit/TEDIT.LCOM index bcfdf700b92e4552bfe92b97e4f9e8a4793a22cb..cfdf23b6563f2fe3063243018eba6e4a085dccca 100644 GIT binary patch delta 597 zcmbu4PfG$p7{*s4s3EAJ=u+^u5bPXWob_MM$;F+mq1D}XXU%SvN=c=r9y$mfs#}M` zd$&G;^g;SMotjl4gKo{`g?XRn_dd_pL;U?I{&KQmq!U)7mN1e=1`LCyGc=Wdy-p2t z7?3)@Bw3nCQbJU?=r(HY+fMVQQHRETr`y}3&}#RunypJ{wm`K*$ANjPuInn)&-+sU zCo`{Nq}kkIMW301S)dx5f5cK@^cmY-$^l7d2qB|ZY&%;q{Q#tei=tZ!Fi_8D74C*X z!jdEjn&S{cjT9xul(UeSSl<>b4}4mdU{;9UB6@sNr`HBkd@z65eV6*gi)D0cj{>r3dU|?F z3Mq*tKqD}%F|smHGgQ*#(s1+iadi%Ibp)EHfZ`aKOD7vJDsz}97@C+^7+Xw^W|VPv z^9#n~7)=GMfFRc}Pyf(hT^FFS3Q9&6y8g)}5dQ-`Z)9m@YNn*XHL+Ha(RlND#<}^M zFBH0SSvb15ggFKUD`*4+dHRKb+!YcT;0ok(f&HqW5#kyg0=3x9KgicH1Sk$vHrb&` WmPu1{^NgB#tUPEEax8wHK3o7H`DoGr