From 1f7e6a00f9ea73d2b48b5f6df5c497f3320658e7 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 9 Feb 2026 09:12:09 -0800
Subject: [PATCH] Restore page number pretext and posttext in menu

---
 library/tedit/TEDIT-MENU      |  70 ++++++++++++++++++----------------
 library/tedit/TEDIT-MENU.LCOM | Bin 54898 -> 55059 bytes
 2 files changed, 38 insertions(+), 32 deletions(-)

diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU
index 52cf8642..5a14b140 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 "27-Jan-2026 10:42:09" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;508
 182646 
+
(FILECREATED " 9-Feb-2026 09:10:43" {WMEDLEY}<library>tedit>TEDIT-MENU.;510
 183027 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.CHANGE.PAGELOOKS \TEDIT.PAGEMENU.CREATE)
+      :CHANGES-TO (FNS \TEDIT.PAGEMENU.CREATE)
 
-      :PREVIOUS-DATE "25-Jan-2026 11:05:25" {WMEDLEY}<library>tedit>TEDIT-MENU.;505)
+      :PREVIOUS-DATE "27-Jan-2026 10:42:09" {WMEDLEY}<library>tedit>TEDIT-MENU.;508)
 
 
 (PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -2367,7 +2367,8 @@
 (DEFINEQ
 
 (\TEDIT.PAGEMENU.CREATE

-  [LAMBDA (TSTREAM)
                                          (* ; "Edited 26-Jan-2026 12:03 by rmk")


+  [LAMBDA (TSTREAM)
                                          (* ; "Edited  9-Feb-2026 09:09 by rmk")


+                                                             (* ; "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")


@@ -2444,6 +2445,11 @@
                           3 "Alignment:" 2 (NWAY (IDENTIFIER QUAD)
                                                  (BUTTONS (Left Centered Right))
                                                  (INITSTATE Centered))
+                          EOL TAB (FIELD (IDENTIFIER FOLIOPRETEXT)
+                                         (PRELABEL "Text before number:"))
+                          5
+                          (FIELD (IDENTIFIER FOLIOPOSTTEXT)
+                                 (PRELABEL "Text after number:"))
                           EOL
 
                           (* ;; "")

@@ -2893,32 +2899,32 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (4936 16574 (TEDIT.ADD.MENUITEM 4946 . 7063) (TEDIT.DEFAULT.MENUFN 7065 . 13786) (
+TEDIT.REMOVE.MENUITEM 13788 . 14785) (\TEDIT.CREATEMENU 14787 . 15352) (\TEDIT.MENU.WHENHELDFN 15354
+ . 16259) (\TEDIT.MENU.WHENSELECTEDFN 16261 . 16572)) (17388 65423 (DRAWMARGINSCALE 17398 . 20857) (
+MARGINBAR 20859 . 27984) (MARGINBAR.CREATE 27986 . 32184) (MB.MARGINBAR.BUTTONEVENTINFN 32186 . 39988)
+ (MB.MARGINBAR.SELFN.TABS 39990 . 45230) (MB.MARGINBAR.SELFN.TABS.KIND 45232 . 46167) (
+MARGINBAR.GETSTATEFN 46169 . 50156) (MARGINBAR.SETSTATEFN 50158 . 50368) (MARGINBAR.NEUTRALIZE 50370
+ . 51045) (MARGINBAR.LOOKS 51047 . 54153) (MB.MARGINBAR.SIZEFN 54155 . 54941) (MB.MARGINBAR.DISPLAYFN 
+54943 . 58004) (MDESCALE 58006 . 58546) (MSCALE 58548 . 58878) (MB.MARGINBAR.SHOWTAB 58880 . 61203) (
+MB.MARGINBAR.TABTRACK 61205 . 62590) (MARGINBAR.INIT 62592 . 63985) (\TEDIT.PARALOOKS.TO.MARBAR 63987
+ . 65421)) (66248 73530 (TEDIT.MENUSTREAM 66258 . 67258) (TEDITMENUP 67260 . 68229) (\TEDIT.MENU.START
+ 68231 . 72578) (\TEDIT.MENU.OPEN? 72580 . 72954) (\TEDIT.MENU.BUTTONEVENTFN 72956 . 73528)) (73849 
+81900 (\TEDIT.MENU.CREATE 73859 . 75799) (\TEDIT.MENU.PARSE 75801 . 79490) (\TEDIT.MENU.NEUTRALIZE 
+79492 . 81563) (\TEDITMENU.RECORD.UNFORMATTED 81565 . 81898)) (81966 101368 (
+\TEDIT.EXPANDEDMENU.CREATE 81976 . 87654) (\TEDIT.EXPANDEDMENU.START 87656 . 89280) (
+\TEDIT.EXPANDEDMENU.FN 89282 . 92537) (\TEDIT.EXPANDEDMENU.ACTIONFN 92539 . 101366)) (101430 120855 (
+\TEDIT.PARAMENU.CREATE 101440 . 110171) (\TEDIT.PARAMENU.START 110173 . 111427) (
+\TEDIT.APPLY.PARALOOKS 111429 . 112481) (\TEDIT.SHOW.PARALOOKS 112483 . 115200) (
+\TEDIT.PARAMENU.FILLIN 115202 . 119951) (\TEDIT.PARAMENU.RESHAPEFN 119953 . 120853)) (121049 147891 (
+\TEDIT.CHARMENU.CREATE 121059 . 123663) (\TEDIT.CHARMENU.START 123665 . 124955) (\TEDIT.CHARMENU.SPEC 
+124957 . 129640) (\TEDIT.CHARMENU.PARSE 129642 . 132810) (\TEDIT.CHARMENU.FILLIN 132812 . 137442) (
+\TEDIT.SHOW.CHARLOOKS 137444 . 140989) (\TEDIT.APPLY.CHARLOOKS 140991 . 142152) (
+\TEDIT.OFFSETTYPE.STATEFN 142154 . 144117) (\TEDIT.OTHER.STATECHANGEFN 144119 . 145764) (
+\TEDIT.OTHER.SELECTFN 145766 . 147889)) (147953 177067 (\TEDIT.PAGEMENU.CREATE 147963 . 156484) (
+\TEDIT.PAGEMENU.START 156486 . 156837) (\TEDIT.SHOW.PAGELOOKS 156839 . 158725) (\TEDIT.PAGEMENU.FILLIN
+ 158727 . 160277) (\TEDIT.PAGEREGION.UNPARSE 160279 . 169678) (\TEDIT.APPLY.PAGELOOKS 169680 . 171607)
+ (\TEDIT.CHANGE.PAGELOOKS 171609 . 176223) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176225 . 177065)) (
+177068 182871 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177078 . 179890) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
+179892 . 181317) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181319 . 182869)))))
 STOP
diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM
index 00ef77c6fb08fce0a36f5f4365b26fc32be703b7..4e14a98ae8505ac369622276901a086a06cf0bb9 100644
GIT binary patch
delta 683
zcmZurO=uHA7<D)F&>*O!L0S+$7HzXi!_Lh9%x+I<x`CF}EO8sP#X~|iG1w-UCg4#o
zo*O>BC`oM_JeB&>t9bEV^yaB}*OOPFnB6tlL*_8=dvD(R=KVg1;bCn1?i85wIlnwl
z6{>?`T12r_)_rshPldz`QDlfq!2dglX=%Eps@+dl@cZ$F2T*T-lv{NiIO|HM(-Krl
zZND-$u2D&jr*g}Voh{fI&t3v)Tnh<*3bT_$0m7L=4eSVW!Jqg=NFWuGLL7eyvjRU#
zh`HB73)gxt&)3ckPcyhSCh%!*8c%!gal1c(hy6)WH?aFGc~N1Ib*zl*+P9a0nkt_3
zFN+4nug72wYf;X@&O1O2BSOuLkg^a7ClTs;gsKT%W)U+xRgp7%x0=MO#RPua`6%jI
zNMF4<xT&d-x&aFdAi1TQ4-frPrQWD*Nixu3{@+u`RD8VK7MX#U?oZ*L-4&53;kdrH
zGDis?d9%%p&Sql^f(&6JHDC%4{Xh2BV^m?`T-Yy)W+Z>!UlYwpO%IA9=lFa8*A0EN
z;Z~_tt2csT#2_OvU^*GDO0vAOoOkngJkP%8$&hjjwv$=39gsZ#NgGPlw%>wAXS3|L
kEJ>E*Kr}VT(J)uA$H&Tkwb}B|<bW^}KfFyGoeW-(zq{tX`v3p{

delta 631
zcmZvY&ubGw6vxR15rcw4i+GSe7d1&`mzmj}*&h)xBpYbh)Syj+)`KgFG1#t{wg*w^
zzhHQZf~3_ny@?ca_2NHZ{SyQ)UhPpYW@lN5(93?m@4N5KeCFY&^x?<!%jOKTv}zD)
zj4%O|xF&On(|>ePTk^^aOV{LAt9gqJy}*f`hm6Yj)BtrUa~bP@Igj?inXPUJYNg@(
zFx{l<x(cmequn}k+MsGaldCNFUg@S+oLmU%QA{d4Yu3E7@7;cJb+voH7xbRSbW@Bc
zB_vRr2~*%kDjPxJuWzSulsY&2KR4kn<7%e={IWv$_)n_xF4e^1;5DucGB_6=!@q-l
z+}}QtH3{66YtZEyVn|>%g_7?U>veCj49sHqWBaVa2|hW1`N?~j5a8X27QtgRtXK(^
zO1Tp$-r9Mf2#UWOIsCcvSuu@?oki{IaU8$jyJ9fN%|oF8YCY(*;bA*yb;HiOng_<L
z<d>`%UTDtXn-BLC%B4LutSZEoc5PVAQb#2HrN^tAYvDRf=BPuHG^%VN`wxdJX=+pH
zTf57O702Iq?<iKBULP$hLg3pGT;gVOLM`ZZx?u!IO(zMX%5ZRQGdF&<w?+Q}w63vW