Restore page number pretext and posttext in menu

2026-03-12 05:34:56 +00:00 · 2026-02-09 09:12:09 -08:00
parent e99bac2bc0
commit 1f7e6a00f9
2 changed files with 38 additions and 32 deletions
--- 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
--- a/library/tedit/TEDIT-MENU.LCOM
+++ b/library/tedit/TEDIT-MENU.LCOM