github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-10 12:58:10 +00:00
Code Issues Projects Releases Wiki Activity

Addresses the page layout menu #2447 and #2457

Browse Source
This commit is contained in:
rmkaplan
2026-02-04 18:07:14 -08:00
parent 724a9ad250
commit 0470d4dc94
6 changed files with 114 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
library/tedit/TEDIT-BUTTONS
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "19-Oct-2025 10:44:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;229 125526
(FILECREATED "25-Jan-2026 09:14:04" {WMEDLEY}<library>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}<library>TEDIT>TEDIT-BUTTONS.;228)
:PREVIOUS-DATE "19-Oct-2025 10:44:18" {WMEDLEY}<library>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

BIN
library/tedit/TEDIT-BUTTONS.LCOM
View File

Binary file not shown.

138
library/tedit/TEDIT-MENU
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}<library>tedit>TEDIT-MENU.;501 183343
(FILECREATED "27-Jan-2026 10:42:09" {WMEDLEY}<library>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}<library>tedit>TEDIT-MENU.;499)
:PREVIOUS-DATE "25-Jan-2026 11:05:25" {WMEDLEY}<library>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

BIN
library/tedit/TEDIT-MENU.LCOM
View File

Binary file not shown.

44
library/tedit/TEDIT-PAGE
View File

@@ -1,12 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Jan-2026 12:00:08" {WMEDLEY}<library>tedit>TEDIT-PAGE.;241 130528
(FILECREATED "27-Jan-2026 10:30:27" {WMEDLEY}<library>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}<library>tedit>TEDIT-PAGE.;240)
:PREVIOUS-DATE "17-Jan-2026 12:00:08" {WMEDLEY}<library>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

BIN
library/tedit/TEDIT-PAGE.LCOM
View File

Binary file not shown.