Skip to content

Commit 29a2fce

Browse files
rmkaplanrmkaplan
committed
Fix GETREGION call for empty document
1 parent e14454e commit 29a2fce

File tree

2 files changed

+38
-37
lines changed

2 files changed

+38
-37
lines changed

‎library/tedit/TEDIT-WINDOW

Lines changed: 38 additions & 37 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "24-Mar-2025 11:28:19" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;785 236419
3+
(FILECREATED "24-Mar-2025 11:30:23" {WMEDLEY}<library>tedit>TEDIT-WINDOW.;786 236503
44

55
:EDIT-BY rmk
66

@@ -457,7 +457,7 @@
457457
WINDOW])
458458

459459
(\TEDIT.WINDOW.GETREGION
460-
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 24-Mar-2025 11:28 by rmk")
460+
[LAMBDA (TSTREAM REGIONTYPE PHEIGHT) (* ; "Edited 24-Mar-2025 11:29 by rmk")
461461
(* ; "Edited 18-Mar-2025 21:52 by rmk")
462462
(* ; "Edited 19-Feb-2025 16:48 by rmk")
463463
(* ; "Edited 18-Feb-2025 10:09 by rmk")
@@ -494,7 +494,8 @@
494494
(add HEIGHT PHEIGHT (ADD1 (TIMES 2 WBorder))
495495
(FONTPROP WindowTitleDisplayStream 'HEIGHT))
496496
(GETBOXREGION WIDTH HEIGHT)
497-
else (GETREGION 200 100])
497+
else (GETREGION (IMAX 200 (ADD1 (TIMES 2 WBorder)))
498+
(IMAX 100 (ADD1 (TIMES 2 WBorder])
498499

499500
(\TEDIT.WINDOW.SETUP
500501
[LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1) (* ; "Edited 25-Nov-2024 20:10 by rmk")
@@ -3715,38 +3716,38 @@
37153716
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
37163717
TEDIT.ICON.TITLE.REGION))
37173718
(DECLARE%: DONTCOPY
3718-
(FILEMAP (NIL (18657 19553 (TEDIT.DEFER.UPDATES 18667 . 19551)) (19554 45173 (\TEDIT.WINDOW.CREATE
3719-
19564 . 26176) (\TEDIT.WINDOW.GETREGION 26178 . 28856) (\TEDIT.WINDOW.SETUP 28858 . 32971) (
3720-
\TEDIT.MINIMAL.WINDOW.SETUP 32973 . 41175) (\TEDIT.CLEARPANE 41177 . 41894) (\TEDIT.FILL.PANES 41896
3721-
. 45171)) (45174 68081 (\TEDIT.CURSORMOVEDFN 45184 . 50057) (\TEDIT.CURSOROUTFN 50059 . 50504) (
3722-
\TEDIT.ACTIVE.WINDOWP 50506 . 51557) (\TEDIT.EXPANDFN 51559 . 52122) (\TEDIT.MAINW 52124 . 53404) (
3723-
\TEDIT.MAINSTREAM 53406 . 53673) (\TEDIT.PRIMARYPANE 53675 . 54445) (\TEDIT.PANELIST 54447 . 54943) (
3724-
\TEDIT.NEWREGIONFN 54945 . 57461) (\TEDIT.SET.WINDOW.EXTENT 57463 . 62717) (\TEDIT.SHRINK.ICONCREATE
3725-
62719 . 65452) (\TEDIT.SHRINKFN 65454 . 65863) (\TEDIT.PANEREGION 65865 . 68079)) (68113 99577 (
3726-
\TEDIT.BUTTONEVENTFN 68123 . 80685) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80687 . 87410) (
3727-
\TEDIT.BUTTONEVENTFN.GETOPERATION 87412 . 89254) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89256 . 92493) (
3728-
\TEDIT.BUTTONEVENTFN.INACTIVE 92495 . 94837) (\TEDIT.BUTTONEVENTFN.INTITLE 94839 . 96674) (
3729-
\TEDIT.COPYINSERTFN 96676 . 97808) (\TEDIT.FOREIGN.COPY 97810 . 99575)) (99578 116687 (
3730-
\TEDIT.PANE.SPLIT 99588 . 104067) (\TEDIT.SPLITW 104069 . 111528) (\TEDIT.UNSPLITW 111530 . 115344) (
3731-
\TEDIT.LINKPANES 115346 . 116109) (\TEDIT.UNLINKPANE 116111 . 116685)) (118044 118935 (TEDITWINDOWP
3732-
118054 . 118933)) (118972 122075 (TEDIT.GETINPUT 118982 . 121425) (\TEDIT.MAKEFILENAME 121427 . 122073
3733-
)) (122124 130425 (TEDIT.PROMPTWINDOW 122134 . 122448) (TEDIT.PROMPTPRINT 122450 . 125077) (
3734-
TEDIT.PROMPTCLEAR 125079 . 126798) (TEDIT.PROMPTFLASH 126800 . 128732) (\TEDIT.PROMPT.PAGEFULLFN
3735-
128734 . 130423)) (130663 140304 (\TEDIT.FILENAME 130673 . 131445) (\TEDIT.DEFAULT.TITLE 131447 .
3736-
133826) (\TEDIT.WINDOW.TITLE 133828 . 135997) (\TEDIT.LIKELY.FILENAME 135999 . 137786) (
3737-
\TEDIT.UPDATE.TITLE 137788 . 140302)) (140347 148875 (TEDIT.DEACTIVATE.WINDOW 140357 . 146475) (
3738-
\TEDIT.RESHAPEFN 146477 . 148647) (\TEDIT.REPAINTFN 148649 . 148873)) (148876 191255 (\TEDIT.SCROLLFN
3739-
148886 . 151131) (\TEDIT.SCROLLCH.TOP 151133 . 153244) (\TEDIT.SCROLLCH.BOTTOM 153246 . 157576) (
3740-
\TEDIT.SCROLLUP 157578 . 163195) (\TEDIT.TOPLINE.YTOP 163197 . 164866) (\TEDIT.SCROLLDOWN 164868 .
3741-
171798) (\TEDIT.SCROLL.CARET 171800 . 174638) (\TEDIT.VISIBLECARETP 174640 . 176934) (
3742-
\TEDIT.VISIBLECHARP 176936 . 178027) (\TEDIT.BITMAPLINES 178029 . 181949) (\TEDIT.SETPANE.TOPLINE
3743-
181951 . 182742) (\TEDIT.SHIFTLINES 182744 . 191253)) (191256 202125 (\TEDIT.ONSCREEN? 191266 . 195817
3744-
) (\TEDIT.ONSCREEN.REGION 195819 . 199470) (\TEDIT.AFTERMOVEFN 199472 . 200369) (OFFSCREENP 200371 .
3745-
202123)) (202167 204784 (\TEDIT.PROCIDLEFN 202177 . 203714) (\TEDIT.PROCENTRYFN 203716 . 204161) (
3746-
\TEDIT.PROCEXITFN 204163 . 204782)) (204863 218017 (\TEDIT.DOWNCARET 204873 . 205666) (
3747-
\TEDIT.FLASHCARET 205668 . 207779) (\TEDIT.UPCARET 207781 . 208885) (TEDIT.NORMALIZECARET 208887 .
3748-
212105) (\TEDIT.SETCARET 212107 . 217387) (\TEDIT.CARET 217389 . 218015)) (218051 230378 (
3749-
TEDIT.ADD.MENUITEM 218061 . 220352) (TEDIT.DEFAULT.MENUFN 220354 . 227590) (TEDIT.REMOVE.MENUITEM
3750-
227592 . 228589) (\TEDIT.CREATEMENU 228591 . 229156) (\TEDIT.MENU.WHENHELDFN 229158 . 230063) (
3751-
\TEDIT.MENU.WHENSELECTEDFN 230065 . 230376)))))
3719+
(FILEMAP (NIL (18657 19553 (TEDIT.DEFER.UPDATES 18667 . 19551)) (19554 45257 (\TEDIT.WINDOW.CREATE
3720+
19564 . 26176) (\TEDIT.WINDOW.GETREGION 26178 . 28940) (\TEDIT.WINDOW.SETUP 28942 . 33055) (
3721+
\TEDIT.MINIMAL.WINDOW.SETUP 33057 . 41259) (\TEDIT.CLEARPANE 41261 . 41978) (\TEDIT.FILL.PANES 41980
3722+
. 45255)) (45258 68165 (\TEDIT.CURSORMOVEDFN 45268 . 50141) (\TEDIT.CURSOROUTFN 50143 . 50588) (
3723+
\TEDIT.ACTIVE.WINDOWP 50590 . 51641) (\TEDIT.EXPANDFN 51643 . 52206) (\TEDIT.MAINW 52208 . 53488) (
3724+
\TEDIT.MAINSTREAM 53490 . 53757) (\TEDIT.PRIMARYPANE 53759 . 54529) (\TEDIT.PANELIST 54531 . 55027) (
3725+
\TEDIT.NEWREGIONFN 55029 . 57545) (\TEDIT.SET.WINDOW.EXTENT 57547 . 62801) (\TEDIT.SHRINK.ICONCREATE
3726+
62803 . 65536) (\TEDIT.SHRINKFN 65538 . 65947) (\TEDIT.PANEREGION 65949 . 68163)) (68197 99661 (
3727+
\TEDIT.BUTTONEVENTFN 68207 . 80769) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80771 . 87494) (
3728+
\TEDIT.BUTTONEVENTFN.GETOPERATION 87496 . 89338) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89340 . 92577) (
3729+
\TEDIT.BUTTONEVENTFN.INACTIVE 92579 . 94921) (\TEDIT.BUTTONEVENTFN.INTITLE 94923 . 96758) (
3730+
\TEDIT.COPYINSERTFN 96760 . 97892) (\TEDIT.FOREIGN.COPY 97894 . 99659)) (99662 116771 (
3731+
\TEDIT.PANE.SPLIT 99672 . 104151) (\TEDIT.SPLITW 104153 . 111612) (\TEDIT.UNSPLITW 111614 . 115428) (
3732+
\TEDIT.LINKPANES 115430 . 116193) (\TEDIT.UNLINKPANE 116195 . 116769)) (118128 119019 (TEDITWINDOWP
3733+
118138 . 119017)) (119056 122159 (TEDIT.GETINPUT 119066 . 121509) (\TEDIT.MAKEFILENAME 121511 . 122157
3734+
)) (122208 130509 (TEDIT.PROMPTWINDOW 122218 . 122532) (TEDIT.PROMPTPRINT 122534 . 125161) (
3735+
TEDIT.PROMPTCLEAR 125163 . 126882) (TEDIT.PROMPTFLASH 126884 . 128816) (\TEDIT.PROMPT.PAGEFULLFN
3736+
128818 . 130507)) (130747 140388 (\TEDIT.FILENAME 130757 . 131529) (\TEDIT.DEFAULT.TITLE 131531 .
3737+
133910) (\TEDIT.WINDOW.TITLE 133912 . 136081) (\TEDIT.LIKELY.FILENAME 136083 . 137870) (
3738+
\TEDIT.UPDATE.TITLE 137872 . 140386)) (140431 148959 (TEDIT.DEACTIVATE.WINDOW 140441 . 146559) (
3739+
\TEDIT.RESHAPEFN 146561 . 148731) (\TEDIT.REPAINTFN 148733 . 148957)) (148960 191339 (\TEDIT.SCROLLFN
3740+
148970 . 151215) (\TEDIT.SCROLLCH.TOP 151217 . 153328) (\TEDIT.SCROLLCH.BOTTOM 153330 . 157660) (
3741+
\TEDIT.SCROLLUP 157662 . 163279) (\TEDIT.TOPLINE.YTOP 163281 . 164950) (\TEDIT.SCROLLDOWN 164952 .
3742+
171882) (\TEDIT.SCROLL.CARET 171884 . 174722) (\TEDIT.VISIBLECARETP 174724 . 177018) (
3743+
\TEDIT.VISIBLECHARP 177020 . 178111) (\TEDIT.BITMAPLINES 178113 . 182033) (\TEDIT.SETPANE.TOPLINE
3744+
182035 . 182826) (\TEDIT.SHIFTLINES 182828 . 191337)) (191340 202209 (\TEDIT.ONSCREEN? 191350 . 195901
3745+
) (\TEDIT.ONSCREEN.REGION 195903 . 199554) (\TEDIT.AFTERMOVEFN 199556 . 200453) (OFFSCREENP 200455 .
3746+
202207)) (202251 204868 (\TEDIT.PROCIDLEFN 202261 . 203798) (\TEDIT.PROCENTRYFN 203800 . 204245) (
3747+
\TEDIT.PROCEXITFN 204247 . 204866)) (204947 218101 (\TEDIT.DOWNCARET 204957 . 205750) (
3748+
\TEDIT.FLASHCARET 205752 . 207863) (\TEDIT.UPCARET 207865 . 208969) (TEDIT.NORMALIZECARET 208971 .
3749+
212189) (\TEDIT.SETCARET 212191 . 217471) (\TEDIT.CARET 217473 . 218099)) (218135 230462 (
3750+
TEDIT.ADD.MENUITEM 218145 . 220436) (TEDIT.DEFAULT.MENUFN 220438 . 227674) (TEDIT.REMOVE.MENUITEM
3751+
227676 . 228673) (\TEDIT.CREATEMENU 228675 . 229240) (\TEDIT.MENU.WHENHELDFN 229242 . 230147) (
3752+
\TEDIT.MENU.WHENSELECTEDFN 230149 . 230460)))))
37523753
STOP

‎library/tedit/TEDIT-WINDOW.LCOM

43 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)