TEDIT: Better heuristic estimate of initial region, better management of margin bar (#2326)

* Estimates suggested width for unformatted documents from the width of the first 20 lines
* Recycled regions satisfy minimum and maximum size specifications
* Fine tuning:  suggests recycled no bigger than 90% of screen, no prompt message if old region reused

lispusers/REGIONMANAGER

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "20-Apr-2025 12:57:07" {WMEDLEY}<lispusers>REGIONMANAGER.;137
 42626  
+
(FILECREATED "23-Oct-2025 20:12:38" {WMEDLEY}<lispusers>REGIONMANAGER.;139
 43219  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS RM-CLOSEW)
+      :CHANGES-TO (FNS GRAB-TYPED-REGION)
 
-      :PREVIOUS-DATE "25-Nov-2024 17:59:00" {WMEDLEY}<lispusers>REGIONMANAGER.;135)
+      :PREVIOUS-DATE "20-Apr-2025 12:57:07" {WMEDLEY}<lispusers>REGIONMANAGER.;137)
 
 
 (PRETTYCOMPRINT REGIONMANAGERCOMS)
@@ -88,20 +88,28 @@
             else
 (push
 TYPED-REGIONS (CONS TYPE REGIONS])
 
 (GRAB-TYPED-REGION

-  [LAMBDA (REGION-TYPE
 MINWIDTH MINHEIGHT)
                   (* ; "Edited 10-Oct-2023 13:41 by rmk")


+  [LAMBDA (REGION-TYPE
 MINWIDTH MINHEIGHT MARGIN)
            (* ; "Edited 23-Oct-2025 20:12 by rmk")


+                                                             (* ; "Edited 10-Oct-2023 13:41 by rmk")


                                                              (* ; "Edited 14-Sep-2023 07:30 by rmk")

 
-    (* ;; "Returns a REGIONTYPE region that satisfies MINWIDTH and MINHEIGHT, if specified")

+    (* ;; "Returns a REGIONTYPE region that is larger than MINWIDTH and MINHEIGHT, if specified, and smaller than those numbers times MARGIN, if specified.  MARGIN=1.1 allows a size 10%% bigger than MINWIDTH.")

 
-    (for
 R in
 (CDR (ASSOC REGION-TYPE TYPED-REGIONS)) unless
 (fetch
 REGION-INUSE of
 R)
-       when
 [AND (OR (NULL MINWIDTH)
-                     (ILEQ MINWIDTH (fetch
 WIDTH of
 R)))
-                 (OR (NULL MINHEIGHT)
-                     (ILEQ MINHEIGHT (fetch
 HEIGHT of
 R] do
 
+    (CL:UNLESS MINWIDTH (SETQ MINWIDTH 0))
+    (CL:UNLESS MINHEIGHT (SETQ MINHEIGHT 0))
+    (for
 R MAXWIDTH MAXHEIGHT in
 (CDR (ASSOC REGION-TYPE TYPED-REGIONS))
+       first
 (if
 (AND MARGIN (GREATERP MARGIN 1))
+                 then
 (SETQ MAXWIDTH (FIXR (FTIMES MARGIN MINWIDTH)))
+                      (SETQ MAXHEIGHT (FIXR (FTIMES MARGIN MINHEIGHT)))
+               else
 (SETQ MAXWIDTH MAX.FIXP)
+                    (SETQ MAXHEIGHT MAX.FIXP)) unless
 (fetch
 REGION-INUSE of
 R)
+       when
 (AND (<= MINWIDTH (fetch
 WIDTH of
 R)
+                     MAXWIDTH)
+                 (<= MINHEIGHT (fetch
 HEIGHT of
 R)
+                     MAXHEIGHT)) do
 
 
                                  (* ;; "We don't mark it as inuse here, leave that gets done by INSTALL-TYPED-REGION when ownership is given to a window. The only downside is that the region could be reallocated before that happens, and 2 window would come up in the same place.")

 
-                                                            (RETURN R])
+                                    (RETURN R])
 
 (REGISTER-TYPED-REGION

   [LAMBDA (REGION REGION-TYPE WINDOW)
                        (* ; "Edited 10-Oct-2023 13:30 by rmk")


@@ -752,11 +760,11 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1611 6729 (SET-TYPED-REGIONS 1621 . 3796) (GRAB-TYPED-REGION 3798 . 4824) (
-REGISTER-TYPED-REGION 4826 . 6123) (REGION-TYPE 6125 . 6727)) (6730 15428 (RM-CREATEW 6740 . 8863) (
-RM-CLOSEW 8865 . 12512) (RM-GETREGION 12514 . 14663) (CLOSE-TYPED-W 14665 . 15426)) (16071 23550 (
-RELCREATEREGION 16081 . 20704) (RELGETREGION 20706 . 23313) (RELCREATEPOSITION 23315 . 23548)) (23551 
-31126 (\RELCREATEREGION.REF 23561 . 28083) (\RELCREATEREGION.SIZE 28085 . 31124)) (31179 40521 (
-RM-ATTACHWINDOW 31189 . 40519)) (40522 42256 (CLOSEWITH 40532 . 41059) (CLOSEWITH.DOIT 41061 . 41341) 
-(MOVEWITH 41343 . 41866) (MOVEWITH.DOIT 41868 . 42254)))))
+  (FILEMAP (NIL (1619 7322 (SET-TYPED-REGIONS 1629 . 3804) (GRAB-TYPED-REGION 3806 . 5417) (
+REGISTER-TYPED-REGION 5419 . 6716) (REGION-TYPE 6718 . 7320)) (7323 16021 (RM-CREATEW 7333 . 9456) (
+RM-CLOSEW 9458 . 13105) (RM-GETREGION 13107 . 15256) (CLOSE-TYPED-W 15258 . 16019)) (16664 24143 (
+RELCREATEREGION 16674 . 21297) (RELGETREGION 21299 . 23906) (RELCREATEPOSITION 23908 . 24141)) (24144 
+31719 (\RELCREATEREGION.REF 24154 . 28676) (\RELCREATEREGION.SIZE 28678 . 31717)) (31772 41114 (
+RM-ATTACHWINDOW 31782 . 41112)) (41115 42849 (CLOSEWITH 41125 . 41652) (CLOSEWITH.DOIT 41654 . 41934) 
+(MOVEWITH 41936 . 42459) (MOVEWITH.DOIT 42461 . 42847)))))
 STOP

lispusers/REGIONMANAGER.TEDIT

@@ -34,8 +34,9 @@ where each regionsi is a possibly empty list of regions.  For convenience, if TY
 Typically, a call to SET-TYPED-REGIONS would be placed in a user's INIT file to set up the preference order for the regions that the user wants to participate in this reallocation scheme.  If an application uses a type that is not on TYPED-REGIONS, then that type-atom is treated as NIL and always gives rise to the normal ghost-region prompting.  Thus a user will observe no change in system behavior if TYPED-REGIONS is left with its initial value NIL.  A type that is added with an empty region list (as opposed to not being on the list at all) will allow new regions to accumulate for recycling.
 The function REGION-TYPE returns NIL if X is not a typed-region or not a region of type TYPE.
 (REGION-TYPE X TYPE)	[Function]
-In most scenarios the interpretation of a typed region specification is handled automatically by the extended CREATEW and GETREGION functions.  Sometimes it may be useful to perform to for the regions dimensions to be entered into other calculations before it is installed in a window.  The function GRAB-TYPED-REGION recycles an existing REGION-TYPE window if one meets the optional minimum width and height requirements, otherwise a new region is returned.  
-(GRAB-TYPED-REGION REGION-TYPE MINWIDTH MINHEIGHT)	[Function]
+In most scenarios the interpretation of a typed region specification is handled automatically by the extended CREATEW and GETREGION functions.  Sometimes it may be useful to perform to for the regions dimensions to be entered into other calculations before it is installed in a window.  The function GRAB-TYPED-REGION recycles an existing REGION-TYPE window if one meets the optional minimum width, height , and margin requirements, otherwise a new region is returned.  
+(GRAB-TYPED-REGION REGION-TYPE MINWIDTH MINHEIGHT MARGIN)	[Function]
+If MINWIDTH is specified, the recyled window must be at least that wide, and if MARGIN is specified it can be no larger than MARGIN x MINWIDTH.  Thus, if MINWIDTH is 200 and MARGIN is 1.1, only regions REGION-TYPE regions of width between 200 and 220 points will satisfy.  MINHEIGHT restricts the height in the same way. 
 A type can be assigned to an untyped region and installed in a window by the function REGISTER-TYPED-REGION.  That region will then be recycled when the window is closed.
 (REGISTER-TYPED-REGION REGION REGION-TYPE WINDOW)	[Function]
 If REGION is NIL, the (presumably) untyped region of WINDOW will be registered. An entry in TYPED-REGIONS will be created for REGION-TYPE if it is not already present.
@@ -79,14 +80,16 @@ Establishes a link between the PARENT window and any number of CHILDREN windows
 If NEWPOS is the new position of PARENT, moves each of the move-children so that they stand in the same relation to PARENT after it moves as before.
 
 
-(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))))
1
$4
È
$

È
4
È
$

È
1$
È
$1
È
$4
È
$

È
4
È

$

È
4
È

$

È
4
È
$

È
1
È$1ŠŠ
8$1ŠŠ
8$J
È$

È
PAGEHEADINGRUNNINGHEADMODERN
-CLASSIC
-TERMINALMODERNTERMINALÿü
TERMINALÿü
-TIMESROMAN$


HRULE.GETFN



HRULE.GETFN


HRULE.GETFN


HRULE.GETFN

HRULE.GETFN

-
@


È


	„
	•
	‘
}


/


	¯

[

	
<01>
C
*
§
<00>

T

	Û

¬
@



Á
1	


-


-


;
	3

o
)

Ä

ž

 
’



	
4


n

	©

o
2
V
@
1


%
!








A
 

&

M




m

I

S
-
g
<


-3

E


-"


-

-












l







/
4
v


2





C
	
ƒ




	

&

%





"




O


=

	,

	l



¬
)9




š

¥
Ç



W
~
æ
&
4
!
U

h'

š

2
&µ
$"

&



(


)

M





DATE:iÏ*ø5V
®zº
+(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))))1
$4
È
$

È
4
È
$

È
1$
È
$1
È
$4
È
$

È
4
È
$

È
4
È

$

È
4
È

$

È
4
È
$

È
1
È$1ŠŠ
8$1ŠŠ
8$J
È$

È
PAGEHEADINGRUNNINGHEAD1TERMINAL(CHARPROPS (COLOR . BLACK))0CLASSIC
+(CHARPROPS (COLOR . BLACK))/MODERN
+(CHARPROPS (COLOR . BLACK))/MODERN(CHARPROPS (COLOR . BLACK))1TERMINALÿü(CHARPROPS (COLOR . BLACK))
1TERMINALÿü(CHARPROPS (COLOR . BLACK))3
+TIMESROMAN$(CHARPROPS (COLOR . BLACK))
HRULE.GETFN

HRULE.GETFN

HRULE.GETFN



HRULE.GETFN

HRULE.GETFN
@
È

+„
+•
+‘}
/

	
¯
[
	

<01>C
*
§<00>

T
	
Û
¬
@


Á1
	
	


+




+



;	
3

o
)
Ä

ž

 
’



	
4

n
	
©

y9

E
'




<0

V
@1


%
!






A

 

&

M




m

I

S-g
<

+
3

E

+
"
+

+













l





/4
v


2





C
	
ƒ



	

&

%





"



O
=
	
,
	
l



¬)
9


š

¥Ç



W~
æ&
4
!
U
h
'

š

2&
µ$
"
&




(

)


M


(((CHARENCODING . MCCS)))PROPS:#DATE:jÄ"<6©
Àzº