From 0470d4dc946558aa791d2c0c3369f4b20a9ce9f2 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 4 Feb 2026 18:07:14 -0800 Subject: [PATCH] Addresses the page layout menu #2447 and #2457 --- library/tedit/TEDIT-BUTTONS | 88 ++++++-------------- library/tedit/TEDIT-BUTTONS.LCOM | Bin 35367 -> 35137 bytes library/tedit/TEDIT-MENU | 138 ++++++++++++++----------------- library/tedit/TEDIT-MENU.LCOM | Bin 55135 -> 54898 bytes library/tedit/TEDIT-PAGE | 44 +++++----- library/tedit/TEDIT-PAGE.LCOM | Bin 28257 -> 28463 bytes 6 files changed, 114 insertions(+), 156 deletions(-) diff --git a/library/tedit/TEDIT-BUTTONS b/library/tedit/TEDIT-BUTTONS index f015ff00..bb2ccdbe 100644 --- a/library/tedit/TEDIT-BUTTONS +++ b/library/tedit/TEDIT-BUTTONS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "19-Oct-2025 10:44:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;229 125526 +(FILECREATED "25-Jan-2026 09:14:04" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;230 123301 :EDIT-BY rmk - :CHANGES-TO (FNS MB.ADD) + :CHANGES-TO (VARS TEDIT-BUTTONSCOMS) - :PREVIOUS-DATE "30-Apr-2025 14:09:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;228) + :PREVIOUS-DATE "19-Oct-2025 10:44:18" {WMEDLEY}TEDIT>TEDIT-BUTTONS.;229) (PRETTYCOMPRINT TEDIT-BUTTONSCOMS) @@ -36,10 +36,9 @@ (* ;; "Mutually exclusive togggles with a single enclosing object") - (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.WHENOPERATEDONFN MB.NWAY.SIZEFN - MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN - MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ - MB.NWAY.SETSTATEFN) + (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.SIZEFN MB.NWAY.SELECT + MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN MB.NWAY.INIT + MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ MB.NWAY.SETSTATEFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT] [COMS (* ; "TOGGLE") (FNS MB.TOGGLE.CREATE MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE @@ -922,39 +921,6 @@ (APPLY* (IMAGEOBJPROP SOBJ 'DISPLAYFN) SOBJ STREAM]) -(MB.NWAY.WHENOPERATEDONFN - [LAMBDA (OBJ PANE OPERATION SEL) (* ; "Edited 21-Oct-2024 00:26 by rmk") - (* ; "Edited 24-Aug-2024 23:38 by rmk") - (* ; "Edited 13-Aug-2024 23:43 by rmk") - (* ; "Edited 2-Aug-2024 00:36 by rmk") - (* ; "Edited 21-Jul-2024 13:17 by rmk") - (* ; "Edited 17-Jul-2024 21:51 by rmk") - (* ; "Edited 9-Apr-2023 15:57 by rmk") - (* ; "Edited 13-Sep-2022 12:09 by rmk") - (* ; "Edited 30-May-91 22:16 by jds") - - (* ;; "Perhaps the selected subobject should be stored here, as the state?") - - (* ;; "Mouse tracking and highlighting happens in the BUTTONEVENTINFN (MB.NWAYBUTTON.SELFN). The code here applies the STATECHANGEFN on the main object") - - (NOTUSED) - (SELECTQ OPERATION - (SELECTED [AND NIL (\TEDIT.THELP) - (LET [(SELECTED (IMAGEOBJPROP OBJ 'SELECTED] - (if (IMAGEOBJPROP OBJ 'STATECHANGEFN) - then (\TEDIT.THELP) - (APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN) - OBJ SELECTED SEL PANE) - elseif (AND NIL SELECTED (IMAGEOBJPROP SELECTED 'STATECHANGEFN)) - then - (* ;; - "This is nuked out: the selected object may be should have done its own thing?") - - (APPLY* (IMAGEOBJPROP SELECTED 'STATECHANGEFN) - OBJ SELECTED SEL PANE]) - ((HIGHLIGHTED UNHIGHLIGHTED DESELECTED)) - NIL]) - (MB.NWAY.SIZEFN [LAMBDA (OBJ STREAM CURX RIGHTMARGIN) (* ; "Edited 20-Aug-2024 15:12 by rmk") (* ; "Edited 22-Jul-2024 11:31 by rmk") @@ -1971,25 +1937,25 @@ (MB.FIELD.INIT) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3221 19357 (MB.ADD 3231 . 9943) (MB.DELETE 9945 . 10319) (MB.GET 10321 . 17091) ( -MB.GET.MBARG 17093 . 18762) (TEDIT.BACKTOMAIN 18764 . 19355)) (19401 39337 (MB.BUTTONEVENTINFN 19411 - . 20979) (MB.DISPLAYFN 20981 . 23040) (MB.SETIMAGE 23042 . 24210) (MB.SIZEFN 24212 . 25760) ( -MB.WHENOPERATEDONFN 25762 . 27711) (MB.COPYFN 27713 . 28171) (MB.GETFN 28173 . 29134) (MB.PUTFN 29136 - . 30236) (MB.SHOWSELFN 30238 . 31747) (MB.CREATE 31749 . 35772) (MB.CHANGENAME 35774 . 36256) ( -MB.INIT 36258 . 37719) (MB.TRACK.UNTIL 37721 . 38416) (MB.DON'T 38418 . 38714) (MB.SPEC.REMAINDER -38716 . 39335)) (39499 49504 (MB.3STATE.CREATE 39509 . 40373) (MB.3STATE.DISPLAYFN 40375 . 41361) ( -MB.3STATE.SHOWSELFN 41363 . 43674) (MB.3STATE.INIT 43676 . 45087) (MB.3STATE.SETSTATEFN 45089 . 45747) - (MB.3STATE.BUTTONEVENTINFN 45749 . 49502)) (49659 80755 (MB.NWAY.CREATE 49669 . 55852) ( -MB.NWAY.DISPLAYFN 55854 . 56717) (MB.NWAY.WHENOPERATEDONFN 56719 . 58909) (MB.NWAY.SIZEFN 58911 . -62847) (MB.NWAY.SELECT 62849 . 66419) (MB.NWAY.BUTTONEVENTINFN 66421 . 69633) (MB.NWAY.NEWMENUBUTTON -69635 . 70347) (MB.NWAY.COPYFN 70349 . 71316) (MB.NWAY.INIT 71318 . 72809) (MB.NWAY.ARRANGEBUTTONS -72811 . 74782) (MB.NWAY.ADDITEM 74784 . 78933) (MB.NWAY.FINDSUBOBJ 78935 . 79449) (MB.NWAY.SETSTATEFN -79451 . 80753)) (80834 92833 (MB.TOGGLE.CREATE 80844 . 81839) (MB.TOGGLE.DISPLAYFN 81841 . 83324) ( -MB.TOGGLE.INIT 83326 . 85125) (MB.SET.TOGGLE 85127 . 86328) (MB.TOGGLE.SETSTATEFN 86330 . 87170) ( -MB.TOGGLE.BUTTONEVENTINFN 87172 . 91488) (MB.TOGGLE.WHENOPERATEDONFN 91490 . 92831)) (92914 125447 ( -MB.FIELD.CREATE 92924 . 98375) (MB.FIELD.DISPLAYFN 98377 . 99168) (MB.FIELD.IMAGEBOXFN 99170 . 100652) - (MB.FIELD.PREFIXCREATE 100654 . 104590) (MB.FIELD.SUFFIXCREATE 104592 . 106252) (MB.FIELD.INIT 106254 - . 108021) (MB.FIELD.WHENOPERATEDONFN 108023 . 109294) (MB.FIELD.GETSTATEFN 109296 . 113230) ( -MB.FIELD.SETSTATEFN 113232 . 118036) (MB.FIELD.BUTTONEVENTINFN 118038 . 120343) (MB.FIELD.SIZEFN -120345 . 120585) (MB.FIELD.INSURETYPE 120587 . 125445))))) + (FILEMAP (NIL (3188 19324 (MB.ADD 3198 . 9910) (MB.DELETE 9912 . 10286) (MB.GET 10288 . 17058) ( +MB.GET.MBARG 17060 . 18729) (TEDIT.BACKTOMAIN 18731 . 19322)) (19368 39304 (MB.BUTTONEVENTINFN 19378 + . 20946) (MB.DISPLAYFN 20948 . 23007) (MB.SETIMAGE 23009 . 24177) (MB.SIZEFN 24179 . 25727) ( +MB.WHENOPERATEDONFN 25729 . 27678) (MB.COPYFN 27680 . 28138) (MB.GETFN 28140 . 29101) (MB.PUTFN 29103 + . 30203) (MB.SHOWSELFN 30205 . 31714) (MB.CREATE 31716 . 35739) (MB.CHANGENAME 35741 . 36223) ( +MB.INIT 36225 . 37686) (MB.TRACK.UNTIL 37688 . 38383) (MB.DON'T 38385 . 38681) (MB.SPEC.REMAINDER +38683 . 39302)) (39466 49471 (MB.3STATE.CREATE 39476 . 40340) (MB.3STATE.DISPLAYFN 40342 . 41328) ( +MB.3STATE.SHOWSELFN 41330 . 43641) (MB.3STATE.INIT 43643 . 45054) (MB.3STATE.SETSTATEFN 45056 . 45714) + (MB.3STATE.BUTTONEVENTINFN 45716 . 49469)) (49626 78530 (MB.NWAY.CREATE 49636 . 55819) ( +MB.NWAY.DISPLAYFN 55821 . 56684) (MB.NWAY.SIZEFN 56686 . 60622) (MB.NWAY.SELECT 60624 . 64194) ( +MB.NWAY.BUTTONEVENTINFN 64196 . 67408) (MB.NWAY.NEWMENUBUTTON 67410 . 68122) (MB.NWAY.COPYFN 68124 . +69091) (MB.NWAY.INIT 69093 . 70584) (MB.NWAY.ARRANGEBUTTONS 70586 . 72557) (MB.NWAY.ADDITEM 72559 . +76708) (MB.NWAY.FINDSUBOBJ 76710 . 77224) (MB.NWAY.SETSTATEFN 77226 . 78528)) (78609 90608 ( +MB.TOGGLE.CREATE 78619 . 79614) (MB.TOGGLE.DISPLAYFN 79616 . 81099) (MB.TOGGLE.INIT 81101 . 82900) ( +MB.SET.TOGGLE 82902 . 84103) (MB.TOGGLE.SETSTATEFN 84105 . 84945) (MB.TOGGLE.BUTTONEVENTINFN 84947 . +89263) (MB.TOGGLE.WHENOPERATEDONFN 89265 . 90606)) (90689 123222 (MB.FIELD.CREATE 90699 . 96150) ( +MB.FIELD.DISPLAYFN 96152 . 96943) (MB.FIELD.IMAGEBOXFN 96945 . 98427) (MB.FIELD.PREFIXCREATE 98429 . +102365) (MB.FIELD.SUFFIXCREATE 102367 . 104027) (MB.FIELD.INIT 104029 . 105796) ( +MB.FIELD.WHENOPERATEDONFN 105798 . 107069) (MB.FIELD.GETSTATEFN 107071 . 111005) (MB.FIELD.SETSTATEFN +111007 . 115811) (MB.FIELD.BUTTONEVENTINFN 115813 . 118118) (MB.FIELD.SIZEFN 118120 . 118360) ( +MB.FIELD.INSURETYPE 118362 . 123220))))) STOP diff --git a/library/tedit/TEDIT-BUTTONS.LCOM b/library/tedit/TEDIT-BUTTONS.LCOM index 5fd325814497f27709e434bd2691ecc91b73fa8b..ae82ac19f855c0f2067c5bb6168907b34aa6a405 100644 GIT binary patch delta 556 zcmZ2Jh3ViVrU~I9My9%6iFvw421aHI29{QaCRPTf6SJ+Pj14puxRi{H5weD+Rwkxa zhQ<^3izVmfmtw@8z>kW853JnSI_X~FR_YKxm zunGur4fFI54c2u58aG*yQG$_cVy!kim#>qaql?SrcRH$@1()|+?V3_ap8Wy-Cn+&lb@ysOIsKt=}|y2VX}FK z-saAXx3ZJ_+gt>Ie((!-jMQ`X4~TU0Q{bBXxXpdCcDpTI5Tb2G`dhtv3w={^apI zpN973^=s|_K9CpES$0;h8Km4GC5LGEj7bhQW}}h4s7n^qdV^f7 zSxuYMr~uMAfh%=y{_rfTf`WU@8K&s(GoRv21V1En1f0*H)?gqYT%2> z=h4Uky56zX2;NHa_%_+kh{8A#6lqNAUzplSF%kce+ztEpi(i?TSSXBhda4}4$16#^ zbK_KejP3p=nlYm8wB^0Ei0w zbrstedit>TEDIT-MENU.;501 183343 +(FILECREATED "27-Jan-2026 10:42:09" {WMEDLEY}TEDIT>TEDIT-MENU.;508 182646 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-MENUCOMS) + :CHANGES-TO (FNS \TEDIT.CHANGE.PAGELOOKS \TEDIT.PAGEMENU.CREATE) - :PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}tedit>TEDIT-MENU.;499) + :PREVIOUS-DATE "25-Jan-2026 11:05:25" {WMEDLEY}tedit>TEDIT-MENU.;505) (PRETTYCOMPRINT TEDIT-MENUCOMS) @@ -1381,7 +1381,8 @@ (DEFINEQ (\TEDIT.EXPANDEDMENU.CREATE - [LAMBDA NIL (* ; "Edited 29-May-2025 09:31 by rmk") + [LAMBDA NIL (* ; "Edited 25-Jan-2026 10:52 by rmk") + (* ; "Edited 29-May-2025 09:31 by rmk") (* ; "Edited 8-Mar-2025 12:27 by rmk") (* ; "Edited 7-Jan-2025 16:05 by rmk") (* ; "Edited 8-Nov-2024 08:35 by rmk") @@ -1463,13 +1464,15 @@ TAB (FIELD (IDENTIFIER SERVER) (PRELABEL "server:") - (FIELDTYPE SYMBOL)) + (FIELDTYPE SYMBOL) + (EMPTYVALUE NIL)) (FIELD (IDENTIFIER COPIES) (PRELABEL "copies:") + (EMPTYVALUE 1) (FIELDTYPE POSITIVENUMBER)) - 2 - (NWAY (IDENTIFIER SIDES) - (BUTTONS (One% Side Duplex))) + 3 + (TOGGLE (IDENTIFIER DOUBLE-SIDED) + (LABEL "Double-sided")) EOL TAB TAB (FIELD (IDENTIFIER MESSAGE/PHONE#) (PRELABEL "Message/Phone#:") (FIELDTYPE STRING]) @@ -1546,7 +1549,8 @@ (RETURN 'DON'T]) (\TEDIT.EXPANDEDMENU.ACTIONFN - [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM) (* ; "Edited 29-May-2025 09:29 by rmk") + [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM) (* ; "Edited 25-Jan-2026 11:05 by rmk") + (* ; "Edited 29-May-2025 09:29 by rmk") (* ; "Edited 11-May-2025 15:01 by rmk") (* ; "Edited 6-Apr-2025 14:39 by rmk") (* ; "Edited 18-Mar-2025 23:54 by rmk") @@ -1564,11 +1568,11 @@ (* ;  "MBFN for TEdit default menu item buttons.") (ERSETQ (RESETLST + (RESETSAVE NIL (LIST [FUNCTION (LAMBDA (SEL) + (FSETSEL SEL SET NIL] + MENUSEL)) (LET ((MENUTEXTOBJ (FTEXTOBJ MENUSTREAM)) STATES STATE) - [RESETSAVE (PROG1 OBJ - (IMAGEOBJPROP OBJ 'MENUBUTTON.SELECTED T)) - '(AND (IMAGEOBJPROP OLDVALUE 'MENUBUTTON.SELECTED NIL] (SELECTQ (IMAGEOBJPROP OBJ 'IDENTIFIER) (QUIT (* ; "Is it OK to quit the main edit?") (\TEDIT.FINISHEDIT? MAINSTREAM)) @@ -1636,29 +1640,21 @@ ) (EQ 'ON (LISTGET STATES 'CONFIRM)) (EQ 'ON (LISTGET STATES 'USENEWLOOKS])]) - (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES SIDES MESSAGE/PHONE#) + (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES DOUBLE-SIDED MESSAGE/PHONE#) MENUSTREAM 'STATE MENUSEL)) - (LET ((SERVER (LISTGET STATES 'SERVER)) - (COPIES (LISTGET STATES 'COPIES)) - (SIDES (LISTGET STATES 'SIDES)) + (LET ((COPIES (LISTGET STATES 'COPIES)) (MSG (LISTGET STATES 'MESSAGE/PHONE#)) PRINTOPTIONS) - (CL:UNLESS (AND SERVER (SETQ SERVER (\TEDIT.MAKEFILENAME - SERVER))) - (TEDIT.PROMPTPRINT MAINSTREAM - "Using default print server.")) (CL:WHEN COPIES (SETQ PRINTOPTIONS (LIST '%#COPIES COPIES))) - (CL:WHEN SIDES - (push PRINTOPTIONS '%#SIDES (SELECTQ SIDES - (One% Side 1) - (Duplex 2) - NIL))) + (CL:WHEN (LISTGET STATES 'DOUBLE-SIDED) + (push PRINTOPTIONS '%#SIDES 2)) (CL:WHEN MSG (push PRINTOPTIONS 'MESSAGE (\TEDIT.MAKEFILENAME MSG))) - (TEDIT.HARDCOPY MAINSTREAM NIL NIL NIL SERVER PRINTOPTIONS))) - (ERROR))))]) + (SEND.FILE.TO.PRINTER MAINSTREAM (LISTGET STATES 'SERVER) + PRINTOPTIONS))) + (SHOULDNT))))]) ) @@ -2371,7 +2367,8 @@ (DEFINEQ (\TEDIT.PAGEMENU.CREATE - [LAMBDA (TSTREAM) (* ; "Edited 5-Jun-2025 18:41 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 26-Jan-2026 12:03 by rmk") + (* ; "Edited 5-Jun-2025 18:41 by rmk") (* ; "Edited 11-May-2025 14:40 by rmk") (* ; "Edited 27-Jan-2025 08:51 by rmk") (* ; "Edited 7-Jan-2025 15:47 by rmk") @@ -2411,16 +2408,10 @@ EOL "Paper Size: " (NWAY (IDENTIFIER PAPERSIZE) (BUTTONS (Letter Legal A4)) (INITSTATE Letter)) - 8 + 16 (TOGGLE (LABEL "Landscape")) - 7 - (FIELD (IDENTIFIER STARTINGPAGE#) - (PRELABEL "Starting page #:") - (LABELFONT (HELVETICA 10)) - (FIELDTYPE POSITIVENUMBER)) EOL - (TEXT (STRING "For page: ") - (FONT (HELVETICA 10))) + (TEXT (STRING "For page: ")) (NWAY (IDENTIFIER PAGEID) (BUTTONS (|First(&Default)| Other% Left Other% Right))) EOL @@ -2430,8 +2421,7 @@ (* ;; "Page numbers") 5 - (TEXT (STRING "Page numbers: ") - (FONT (HELVETICA 10))) + (TEXT (STRING "Page numbers: ")) (NWAY (IDENTIFIER PAGENOS) (BUTTONS (No Yes Heading)) (INITSTATE Yes)) @@ -2460,8 +2450,7 @@ (* ;; "Margins") - EOL 5 (TEXT (STRING "Margins: ") - (FONT (HELVETICA 10))) + EOL 5 (TEXT (STRING "Margins: ")) (FIELD (IDENTIFIER LEFTMARGIN) (PRELABEL "Left") (POSTLABEL "picas") @@ -2489,7 +2478,6 @@ EOL 5 (FIELD (IDENTIFIER COLUMNS) (PRELABEL "Columns:") - (LABELFONT (HELVETICA 10)) (INITSTATE 1) (FIELDTYPE POSITIVENUMBER)) 4 @@ -2735,7 +2723,8 @@ (TEDIT.BACKTOMAIN MENUSTREAM]) (\TEDIT.CHANGE.PAGELOOKS - [LAMBDA (MAINTEXTSTREAM PAGELOOKS) (* ; "Edited 11-May-2025 15:04 by rmk") + [LAMBDA (MAINTEXTSTREAM PAGELOOKS) (* ; "Edited 27-Jan-2026 10:41 by rmk") + (* ; "Edited 11-May-2025 15:04 by rmk") (* ; "Edited 24-Dec-2024 21:28 by rmk") (* ; "Edited 20-Oct-2024 17:17 by rmk") (* ; "Edited 30-Aug-2024 23:43 by rmk") @@ -2754,8 +2743,8 @@ ((OFF NEUTRAL) (RPLACA PLTAIL NIL)) NIL)) - (SELECTQ PAGENOS - (Yes (* ; + (SELECTQ (L-CASE PAGENOS T) + ((Yes T) (* ;  "Page number format specfified in pagelooks menu") (CL:UNLESS (AND (LISTGET PAGELOOKS 'PAGENUMBERX) (LISTGET PAGELOOKS 'PAGENUMBERY)) @@ -2776,7 +2765,7 @@ (* ;; "Page numbers formatted/printed by image object in header paragraphs") (push PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#))) - NIL) + (SHOULDNT)) (CL:UNLESS (LISTGET PAGELOOKS 'COLUMNS) (LISTPUT PAGELOOKS 'COLUMNS 1) (RETURN)) @@ -2786,9 +2775,6 @@ (TEDIT.PROMPTPRINT MAINTEXTOBJ "Please specify the space between columns" T T) (RETURN)) [push PAGEPROPS 'LANDSCAPE? (EQ 'ON (LISTGET PAGELOOKS 'LANDSCAPE] - - (* ;; "**EMPTY** may come from field values in the pagelooks menue") - (TEDIT.PAGEFORMAT MAINTEXTOBJ (TEDIT.SINGLE.PAGEFORMAT PAGENOS (LISTGET PAGELOOKS 'PAGENUMBERX) (LISTGET PAGELOOKS 'PAGENUMBERY) @@ -2907,32 +2893,32 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (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))))) + (FILEMAP (NIL (4960 16598 (TEDIT.ADD.MENUITEM 4970 . 7087) (TEDIT.DEFAULT.MENUFN 7089 . 13810) ( +TEDIT.REMOVE.MENUITEM 13812 . 14809) (\TEDIT.CREATEMENU 14811 . 15376) (\TEDIT.MENU.WHENHELDFN 15378 + . 16283) (\TEDIT.MENU.WHENSELECTEDFN 16285 . 16596)) (17412 65447 (DRAWMARGINSCALE 17422 . 20881) ( +MARGINBAR 20883 . 28008) (MARGINBAR.CREATE 28010 . 32208) (MB.MARGINBAR.BUTTONEVENTINFN 32210 . 40012) + (MB.MARGINBAR.SELFN.TABS 40014 . 45254) (MB.MARGINBAR.SELFN.TABS.KIND 45256 . 46191) ( +MARGINBAR.GETSTATEFN 46193 . 50180) (MARGINBAR.SETSTATEFN 50182 . 50392) (MARGINBAR.NEUTRALIZE 50394 + . 51069) (MARGINBAR.LOOKS 51071 . 54177) (MB.MARGINBAR.SIZEFN 54179 . 54965) (MB.MARGINBAR.DISPLAYFN +54967 . 58028) (MDESCALE 58030 . 58570) (MSCALE 58572 . 58902) (MB.MARGINBAR.SHOWTAB 58904 . 61227) ( +MB.MARGINBAR.TABTRACK 61229 . 62614) (MARGINBAR.INIT 62616 . 64009) (\TEDIT.PARALOOKS.TO.MARBAR 64011 + . 65445)) (66272 73554 (TEDIT.MENUSTREAM 66282 . 67282) (TEDITMENUP 67284 . 68253) (\TEDIT.MENU.START + 68255 . 72602) (\TEDIT.MENU.OPEN? 72604 . 72978) (\TEDIT.MENU.BUTTONEVENTFN 72980 . 73552)) (73873 +81924 (\TEDIT.MENU.CREATE 73883 . 75823) (\TEDIT.MENU.PARSE 75825 . 79514) (\TEDIT.MENU.NEUTRALIZE +79516 . 81587) (\TEDITMENU.RECORD.UNFORMATTED 81589 . 81922)) (81990 101392 ( +\TEDIT.EXPANDEDMENU.CREATE 82000 . 87678) (\TEDIT.EXPANDEDMENU.START 87680 . 89304) ( +\TEDIT.EXPANDEDMENU.FN 89306 . 92561) (\TEDIT.EXPANDEDMENU.ACTIONFN 92563 . 101390)) (101454 120879 ( +\TEDIT.PARAMENU.CREATE 101464 . 110195) (\TEDIT.PARAMENU.START 110197 . 111451) ( +\TEDIT.APPLY.PARALOOKS 111453 . 112505) (\TEDIT.SHOW.PARALOOKS 112507 . 115224) ( +\TEDIT.PARAMENU.FILLIN 115226 . 119975) (\TEDIT.PARAMENU.RESHAPEFN 119977 . 120877)) (121073 147915 ( +\TEDIT.CHARMENU.CREATE 121083 . 123687) (\TEDIT.CHARMENU.START 123689 . 124979) (\TEDIT.CHARMENU.SPEC +124981 . 129664) (\TEDIT.CHARMENU.PARSE 129666 . 132834) (\TEDIT.CHARMENU.FILLIN 132836 . 137466) ( +\TEDIT.SHOW.CHARLOOKS 137468 . 141013) (\TEDIT.APPLY.CHARLOOKS 141015 . 142176) ( +\TEDIT.OFFSETTYPE.STATEFN 142178 . 144141) (\TEDIT.OTHER.STATECHANGEFN 144143 . 145788) ( +\TEDIT.OTHER.SELECTFN 145790 . 147913)) (147977 176686 (\TEDIT.PAGEMENU.CREATE 147987 . 156103) ( +\TEDIT.PAGEMENU.START 156105 . 156456) (\TEDIT.SHOW.PAGELOOKS 156458 . 158344) (\TEDIT.PAGEMENU.FILLIN + 158346 . 159896) (\TEDIT.PAGEREGION.UNPARSE 159898 . 169297) (\TEDIT.APPLY.PAGELOOKS 169299 . 171226) + (\TEDIT.CHANGE.PAGELOOKS 171228 . 175842) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 175844 . 176684)) ( +176687 182490 (\TEDIT.PAGEMENU.CREATE.HEADINGS 176697 . 179509) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN +179511 . 180936) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 180938 . 182488))))) STOP diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM index 8c35a52dc1e1ef10776debc2adc8559dbd0c993a..00ef77c6fb08fce0a36f5f4365b26fc32be703b7 100644 GIT binary patch delta 3871 zcmbUjO>h(E)fSTgqAOw2Z?W<-C!zjLMrQ=j&6;lgr=n^=;9*pQ#PJ zCMc2uX=>9zrUJ_ga}Z5uM|FF|a0fgG62mrmW4)J1>m8)|!HbC`qzgr3+;mFrKn_(v z4Yr!i$!S53M{iu~YnRvl(f-La!rhfooXFB(&{rYinyi zJ-Z%jdpuj+nAzxPvrQ{Xe+hE<;@Dvg3PscQoPuXMwhIMNA@7dhsX*2#n1)O4Ts+@Q zL0&g)*F%5iVHg7qG^WpB-iJ{qycEDS)9L=A;TqnsQ_Q>l6f1(08B4;p?K@v+Yrl+I zwUxVPdV6Q8y}jk0-szrl?2i=rPC53Ya_mL=`J{&(d--h>0`h1NFtoQ=^CaSA_<<7AglU?@tul{yVxs!b{RTzCoxpR^7 z)pybVP@PrpF~gR>O!je<9f&^oJlVc9RPg51!R(g_>8A=-t6!nwZstSOk^Fn=;L$B| zCg#SN2fz5B+&NPn3ymQsrw{E23CYy-NHk_KYtN&QwP~Tby7Cp41*+`r++qKenPp>; zFLXQ(@HZK5KH_vRtg~mei(#BSOqBp#?hMGC4&Mzsm}}b-sw%*%?x<6;a<&JmqF|ca zxj|a%gPt?UQrReiDv5BO^`61Je#W5Jww^aYQANmS21g7J6eRH}+)~E%Os|AhDyLH9 zP;Gyc3%Rj~um-Y*3$h}^`QZtp=oCPfIk2(%i-^Xy7f6&+QXsKVbg+P#G9YQ2!p;~K z)YQ&_q-Y_(q+lue8c8A-@SofwfL8*vX=klc&HxF^4^8llv-k$8Bcf`73{jNHMlE(i z-~%3Ns)!O==>=5^=>apSE+_)_Fhuhz^4r5^F%Pnuq9_>+YNeDV z4hlL(sEBu>2t}h{=~)9E;epJjP6m(491ktoC!uqFZ6q8vG*dzulBhBmBu*x8&2$Z= zWcsYArJ!Wf7E9mCfr!Zpr`@A zfUcowBnTYgXJSnO(~mN9(iUbOl?fl`RXJehF~4a}@sb9XF^nGq4JnRh?-=Mf*LfTl zw3K`orxf&CQTG9?oC1d1(kl*1P$c+P$@JhA^b$ti_RL`u^MaMJpMMy&U?O1xhe;`s zx5{1Q)`cD9)Wv94=QvKp#KL%|AQ7ZikSklVXlv3WG3Y$R;}|@F{HHz;(KPan*~1Y* zBF^l~5t%1Tvpo?ZMXt}jgjy#;C$=~@34*9Wym0jjT*55}8jDw8WvMn@zf{NB4ZNbE zjBXssN7gEHn$TV*@7z2V=~yJMHF}8M*tPcbX0)Ar{`2VZ&3?k_%3pDShAwNR^+Eyr zAqc8KUVgVH!U6f>FWtm>clR`Ay5Z0@O7>68CLJo#>^i)@tkk%;fPBdU+=eg9m5y#D_92zn|(vj_9T z!_{a6;`zzt%k{=e8UO{OELjRA2RHNq2@}dUi9%wEEL}~I+TH$60pj|6{c>ZW*0_?! zNDDH#eYerhk&b)Te(aQS6br+P%L|iN@C78`xF~AaO@4guR3t@>?k1nz%aHZ^J!I%U zA5mq}xPSOWGK#G%e3E&wadly;woIL;8p!G{&Q=PO>koJLVHyCtM2}EOg6ilSRFA+u!J%_I#ASvY0!|tY-!iiv&&73!iMS%^?u}XQ|rX_4d8OQUS zd|oe(m^O}X4RF`qgm@^LBcomjV@st?G62PtiY-sazK+%RtVfEP$oisP%4dvX1-pKe zsyc#GmLksLKEURbD63%UcFxVB88{En1tD|_L?H!k0cTRi@XCf^hZ>7m_nW4O9J7m= zLT5!tB;Zut{8m!X#6eT^&?8ifBUt)ujx^QJ*Ooz$RInGZ8RF=|W>v&hNylL# z@^IE1$LdE9IOR<=ZZ5Cazm2tw^UtwNr{K73??DU~V2XyTf8A^S^G{p9UrF&~pirA0ARLi^<8mCIBl7#Rhv>f(sXCv9wlvRg zC=ekh2sxsq;mlHPdU5{3%v`MswJR5vmiuzBu()z=X5lQ%EI_(gwk+7Zb#QPn4b`a? z)PEMHpro^HnWAYKdC$-TqX20>^$gR}^lyp&(>(C1Acz9wjDi^q3{Ak&{4BKP@*}!E zZ1@9#1DP@1^8tZyy=2(syi@YCkaIm_%yi2BKmiYdG$(n<^(PcZS?PnL#?8w zt?x}f8K>y{!Fz7g-aLaYFD!B z-#xK=8~xr3X@%#&^-Mc(+`weIE@)8lhjCOP#KA8G@{Vg7Y*7Z^@Wu>}s#7QHJP#$^ zwEX~`Qi3Az1lVOZWFe9bi!F-a42`l634wFD!=B+ALDBI_{^2aNj_lmllBjh3rUn15 zRl44*biK$ve-{nA`PM}yR(h&u**LQk|5aNao$Kzd^mb48R(iteHntXNeEC78^Cc#> z|DW>OtCh~#N++E^bKuRc5WUjuIXfD<=AWNb zI?q){n^yjIx_3uIk-l5)psiKX)@6lWJ&8a^t7Olu2Q8mOPq9feRgW(a54%%s_6K%& z##{F)ouPh+^2pisqtHFhE_}LgrXD%%Ykko~!}_SLnF;ydrL_v%9 z*S7#5ZALdW?Yvbk7$EW*;1vR69M3>=1T-zi5Jd4AHV6V2&$62f2)KDWQ8C3M6NnUE zfmW}#Pc^M^%K;EU+_Hz)kT#+{yxer85um@28`x>%0b>dtPmbS-`HL~jpdaX7fXq$x z?OjPtrT=()UtJ{)HFS{ak1$d_3bF!bNgp;4DZHpCZ;_GCRrGnu@O@MQ1wkTe1VtgR z!Iz3GLf^rN2o+Jm@0bdeknC`Geb{*29dT^qASfK8HsoHAHMPN+GF~_0OteV>ya5Xq znS*9P%Ay304KjMI>>IXGu^i_ZVhCsmP7@iS?4s$FKvGpUC84!V%{r<|q6V&xuj=8V zNWe2(OV1nVvH&E4L>?Y0Vc>5HSP`8cEr^l?EVvpFB04JyHYDw`%{ZEY7w|P-XHg(> z$mKQ&c*(L|Z!UwN@_;%lqd>q1h|mRzher4bgnJgCfR-^p#NBip5RGGz6XFpCOHX(W zg1%!`5Q6@)i}k0iBN*ZcMtETh7?0LAjN>tvBQPFwhy^JxDPS2z{6Ol!NHp?6ALy)0 zAUv?}i{6CC7j|_|k0eY_m%YEGPdJF72ynb?B0UhmAg}|oXc`_mD=dOhEgp=Zv4KFA zX$Cs;R9Hgg#vFzx!U>QrFSDMdT6=ry(%cGMSejW_f#urL<=PT9EV9Bu1|eBNZiHJD ze{o#Lftf{l%0(Q8fC+ zhg}JUK6wn2=thFCVmKBWPofc7E|fVn9C=xeMvPK6&l3d#eF(=$UyDR7l4L1Vk~n(t zrjk(U&&nNi|JYvo$D3(IhX0pC@hsy?vphmFKc_;m$xmL9UAT zxc4u&PN8KC(7QdBRHMmX-#!sf4t_j#3Vo7c(FYj}JkuVAbZKho?99S)4uAn?iViYI zX2h_@jKIw6fOcf@JehBt7wa=4B)KukBvEE9DE;E&qkA++>vJ<_7v^gVE4egg7NHlv z-9Za?Ch&Qf(t|r%C(>vd4~635()`p4o{x&0a&2`C?@nl9wU=IA&4v0SNtMvARu8=P z9P`>hk?4WD`*yLch}@3`$@Kne7k%sQk)$Ni8+X6f{hZw(O0jhVP0wGwvw!`wyJy-H zkLmtTr*_7TBz8dW&>wvI=BfRU!j?o2|M$lOwl&?yy1VaxqtSLoO85U1^)zdb!}0zf zB5}QYH2Sz14lxGq{}ny*%ir&l)VTJ#SfnDJMLP-I|FAnr1bX^<3RDg((+@%pL&Auv z{iYs(e(T}Eek?Gq?i!wNPGSpyS?%JZ`uIg)#Lx>E0VoiOK6%(#=UL^lDrO-V!EOP` z&#}rS{9(XIf5^cf6s3~x4V#SqF*O{wDRJPL!y`dM#?F8dYC}Z&K3>)fSQoTSd@5j8 zvb)*k(vaazfFNNh+L#yz0jn9S41x?6vWcI^YoLUeZb(P5Y^Z2?N1bR0-7r0*h1hh0 zO-|z)1oOT5jfY_w@B(xIJMDg6aLt1dV3tOf%@xbN0Piu;q!q6S+_qw H^y+^AYvtedit>TEDIT-PAGE.;241 130528 +(FILECREATED "27-Jan-2026 10:30:27" {WMEDLEY}TEDIT>TEDIT-PAGE.;243 130855 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.TO.IMAGEFILE) + :CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT) + (VARS TEDIT-PAGECOMS) - :PREVIOUS-DATE "15-Jan-2026 10:48:30" {WMEDLEY}tedit>TEDIT-PAGE.;240) + :PREVIOUS-DATE "17-Jan-2026 12:00:08" {WMEDLEY}TEDIT>TEDIT-PAGE.;241) (PRETTYCOMPRINT TEDIT-PAGECOMS) @@ -51,6 +52,7 @@ (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1] (FNS TEDIT.TO.IMAGEFILE) + [P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE] (COMS (* ;; "Perform page layout, based on a regular expression of typed regions.") @@ -313,7 +315,8 @@ (TEDIT.SINGLE.PAGEFORMAT [LAMBDA (PAGE#S? PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS - PAGEPROPS PAPERSIZE) (* ; "Edited 11-May-2025 14:59 by rmk") + PAGEPROPS PAPERSIZE) (* ; "Edited 27-Jan-2026 10:30 by rmk") + (* ; "Edited 11-May-2025 14:59 by rmk") (* ; "Edited 10-Jan-2025 11:41 by rmk") (* ; "Edited 24-Dec-2024 21:20 by rmk") (* ; "Edited 15-Aug-2024 23:01 by rmk") @@ -356,7 +359,8 @@ (AND INTERCOL (SETQ INTERCOL (HCSCALE SCALEFACTOR INTERCOL))) (SETQ PAGEWIDTH (IDIFFERENCE (IDIFFERENCE PAPERWIDTH RIGHT) LEFT)) - (CL:WHEN (EQ PAGE#S? 'Yes) + (CL:WHEN (MEMB (L-CASE PAGE#S? T) + '(T Yes)) (* ;; "This asserts that the page number's region is 4 inches wide. Why? What if the pretext/posttext is longer?") @@ -730,6 +734,8 @@ (RETURN (CLOSEF IMAGESTREAM))))]) ) +(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE)) + (* ;; "Perform page layout, based on a regular expression of typed regions.") @@ -2056,18 +2062,18 @@ (RETURN (DREMOVE NIL $$VAL]) ) (DECLARE%: DONTCOPY - (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 44592 (TEDIT.TO.IMAGEFILE 38122 . 44590)) (44679 97931 (\TEDIT.FORMATBOX 44689 - . 58113) (\TEDIT.FORMATHEADING 58115 . 62761) (\TEDIT.FORMATPAGE 62763 . 71952) (\TEDIT.FORMATTEXTBOX - 71954 . 88467) (\TEDIT.FORMATFOLIO 88469 . 93786) (\TEDIT.FORMAT.FOUNDBOX? 93788 . 95827) ( -\TEDIT.SKIP.SPECIALCOND 95829 . 97929)) (98011 103066 (\TEDIT.HARDCOPY.PAGEHEADINGS 98021 . 103064)) ( -103175 111226 (\TEDIT.HARDCOPY-COLUMN-END 103185 . 111224)) (111271 116212 (SCALEPAGEUNITS 111281 . -112422) (SCALEPAGEXUNITS 112424 . 113194) (SCALEPAGEYUNITS 113196 . 113967) (\TEDIT.PAPERHEIGHT 113969 - . 114904) (\TEDIT.PAPERWIDTH 114906 . 116210)) (116628 120196 (ROMANNUMERALS 116638 . 120194)) ( -120235 127501 (TEDIT.PAGENO.CREATE 120245 . 120621) (\TEDIT.PAGENO.OBJINIT 120623 . 121906) ( -\TEDIT.PAGENO.BUTTONEVENTINFN 121908 . 122974) (\TEDIT.PAGENO.IMAGEBOXFN 122976 . 125126) ( -\TEDIT.PAGENO.DISPLAYFN 125128 . 126778) (\TEDIT.PAGENO.GETFN 126780 . 127172) (\TEDIT.PAGENO.PUTFN -127174 . 127499)) (127566 130505 (\TEDIT.FORMAT.FOOTNOTE 127576 . 130503))))) + (FILEMAP (NIL (12248 15860 (\TEDIT.PARSE.PAGEFRAMES 12258 . 14037) (\TEDIT.PUT.PAGEFRAMES 14039 . +14863) (\TEDIT.UNPARSE.PAGEFRAMES 14865 . 15858)) (15923 38091 (TEDIT.SINGLE.PAGEFORMAT 15933 . 27077) + (TEDIT.COMPOUND.PAGEFORMAT 27079 . 28058) (TEDIT.PAGEFORMAT 28060 . 35349) (TEDIT.GET.PAGEFORMAT +35351 . 38089)) (38378 44858 (TEDIT.TO.IMAGEFILE 38388 . 44856)) (45006 98258 (\TEDIT.FORMATBOX 45016 + . 58440) (\TEDIT.FORMATHEADING 58442 . 63088) (\TEDIT.FORMATPAGE 63090 . 72279) (\TEDIT.FORMATTEXTBOX + 72281 . 88794) (\TEDIT.FORMATFOLIO 88796 . 94113) (\TEDIT.FORMAT.FOUNDBOX? 94115 . 96154) ( +\TEDIT.SKIP.SPECIALCOND 96156 . 98256)) (98338 103393 (\TEDIT.HARDCOPY.PAGEHEADINGS 98348 . 103391)) ( +103502 111553 (\TEDIT.HARDCOPY-COLUMN-END 103512 . 111551)) (111598 116539 (SCALEPAGEUNITS 111608 . +112749) (SCALEPAGEXUNITS 112751 . 113521) (SCALEPAGEYUNITS 113523 . 114294) (\TEDIT.PAPERHEIGHT 114296 + . 115231) (\TEDIT.PAPERWIDTH 115233 . 116537)) (116955 120523 (ROMANNUMERALS 116965 . 120521)) ( +120562 127828 (TEDIT.PAGENO.CREATE 120572 . 120948) (\TEDIT.PAGENO.OBJINIT 120950 . 122233) ( +\TEDIT.PAGENO.BUTTONEVENTINFN 122235 . 123301) (\TEDIT.PAGENO.IMAGEBOXFN 123303 . 125453) ( +\TEDIT.PAGENO.DISPLAYFN 125455 . 127105) (\TEDIT.PAGENO.GETFN 127107 . 127499) (\TEDIT.PAGENO.PUTFN +127501 . 127826)) (127893 130832 (\TEDIT.FORMAT.FOOTNOTE 127903 . 130830))))) STOP diff --git a/library/tedit/TEDIT-PAGE.LCOM b/library/tedit/TEDIT-PAGE.LCOM index 79d8c691c3b11a18cd55db2a42541cfec55902fc..e0e57bf5fa6495153edfbc7d46b41777216facf7 100644 GIT binary patch delta 968 zcmb7CO;6NN6t#nfqzDd5z!(-c70ooJL*MK4y|x%*ZC{54Rtx*z}E=>FZE_^MJAHCv3@&@>Fs88j#Rwnb=ZQOEn}AUoLl;8?f%H+mAQbch+`Z94Y=wHYSlBaNO!s0A!ZB3@Jp z8H5PRAv@z`RfE*A16G>e%|ky+!6e3@wsKsx2?6smC_Y@;sv)(Qsm}^}k<}Fe7q9Cx zBSbTxkwJIkncRO{U&v=;XoxQJ>^#VteusNky3pjmcZnq_H!+3AVjl4~*{I%Z@AH)* TS(f`hHx7nx{oh=%yY=G_l9Ktj delta 801 zcmZvZ-)a*<7{%R)76P#;RIpI-V<}?5jWe@mZg$hnZku2bB8?K1T+|kn zB7Fc+QszMvawYf@-iiu>H{wlw1819*rnGx?=HolRb7tq`PvzHlWxTzNskYu9X#^1q zFmVua5IcIYrtJ-OhI^HSdw!y|+&V8mBnB=)UOi{P4#JM9AAMOpOro;il#4Y#;4mD4 zT1$ff=C{k`vI;wWNxlRlqp@1b-^=XPn7c9=&S%Zasc^8}6)@I`LXaicm4Sl`5jLN`El;hV$ch#QCKB_v1vff@5E9Oda95CJdPtdM5c8nF=Qq; z0o&H0U3CMVy+bz*{iF@H$-k|l>9#o7R6jj~ZHeQhn+0Gd zo%)!GrZ$Fbs6~Mv`C%;rhKM}HO*c6?O7`aB?Fy53Y`Ad{MH_9P5?keABD;7%EfY3V zHxoz}jNRFej;Bzd#K>}VuxtrAv4O?r2$rQo?AIF!ScVM&uSua3=nh_qzl)