github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-19 17:42:55 +00:00
Code Issues Projects Releases Wiki Activity

Update fontfamily lists, missing translation functions, minor bug

Browse Source
This commit is contained in:
rmkaplan
2025-09-20 10:37:27 -07:00
parent a0c7fb37b6
commit 76f09ee3cd
7 changed files with 152 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
library/tedit/TEDIT-WINDOW
View File

@@ -1,12 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Aug-2025 21:22:37" {WMEDLEY}<library>tedit>TEDIT-WINDOW.;863 229545
(FILECREATED "18-Sep-2025 23:09:24" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-WINDOW.;864 229645
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.LIKELY.FILENAME)
:CHANGES-TO (FNS TEDIT.PROMPTCLEAR)
:PREVIOUS-DATE "26-Jul-2025 15:45:59" {WMEDLEY}<library>tedit>TEDIT-WINDOW.;862)
:PREVIOUS-DATE "11-Aug-2025 21:22:37"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-WINDOW.;863)
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -2055,34 +2057,33 @@
else (PROMPTPRINT MSG])
(TEDIT.PROMPTCLEAR
[LAMBDA (TEXTSTREAM FONT) (* ; "Edited 14-Mar-98 12:52 by rmk:")
[LAMBDA (TSTREAM FONT) (* ; "Edited 18-Sep-2025 23:08 by rmk")
(* ; "Edited 14-Mar-98 12:52 by rmk:")
(* ; "Edited 14-Oct-87 15:35 by bvm:")
(* ;; "Clears the promptwindow attached to TEXTSTREAM and shrinks it back to a single line in font FONT (or TEDIT.PROMPT.FONT) if it has grown. TEXTSTREAM could actually be a stream on the promptwindow itself.")
(* ;; "Clears the promptwindow attached to TSTREAM and shrinks it back to a single line in font FONT (or TEDIT.PROMPT.FONT) if it has grown. [TSTREAM could actually be a stream on the promptwindow itself.--is that true, does this code need to deal with that?]")
(LET [MW (PW (IF (CAR (NLSETQ (GETPROMPTWINDOW (\TEDIT.MAINW TEXTSTREAM)
NIL NIL T)))
ELSEIF (WINDOWPROP (WFROMDS TEXTSTREAM)
'TEDIT.PROMPTWINDOW)
THEN (WFROMDS TEXTSTREAM]
(CL:WHEN PW
(WINDOWPROP PW 'TEDIT.NLINES 1)
(CL:WHEN [AND (SETQ MW (WINDOWPROP PW 'MAINWINDOW))
(SETQ MW (LISTP (WINDOWPROP MW 'PROMPTWINDOW]
(RPLACD MW 1))
(LET [PROP [HEIGHT (HEIGHTIFWINDOW (FONTPROP (OR FONT TEDIT.PROMPT.FONT)
'HEIGHT]
(REG (WINDOWPROP PW 'REGION]
(CL:UNLESS (EQ HEIGHT (FETCH HEIGHT OF REG))
(WINDOWPROP PW 'MINSIZE (CONS 0 HEIGHT))
(LET* [(MW (\TEDIT.MAINW TSTREAM))
(PW (AND MW (WINDOWPROP (\TEDIT.MAINW TSTREAM)
'TEDIT.PROMPTWINDOW]
(CL:WHEN PW
(WINDOWPROP PW 'TEDIT.NLINES 1)
(CL:WHEN [AND (SETQ MW (WINDOWPROP PW 'MAINWINDOW))
(SETQ MW (LISTP (WINDOWPROP MW 'PROMPTWINDOW]
(RPLACD MW 1))
(LET [PROP [HEIGHT (HEIGHTIFWINDOW (FONTPROP (OR FONT TEDIT.PROMPT.FONT)
'HEIGHT]
(REG (WINDOWPROP PW 'REGION]
(CL:UNLESS (EQ HEIGHT (FETCH HEIGHT OF REG))
(WINDOWPROP PW 'MINSIZE (CONS 0 HEIGHT))
(* ;;
(* ;;
 "Have to adjust the fixed size of the window before shaping, since SHAPEW obeys the minimum.")
(WINDOWPROP PW 'MAXSIZE (CONS 64000 HEIGHT))
(SHAPEW PW (CREATE REGION USING REG HEIGHT _ HEIGHT)))
(CL:WHEN (OPENWP PW)
(CLEARW PW))))])
(WINDOWPROP PW 'MAXSIZE (CONS 64000 HEIGHT))
(SHAPEW PW (CREATE REGION USING REG HEIGHT _ HEIGHT)))
(CL:WHEN (OPENWP PW)
(CLEARW PW))))])
(TEDIT.PROMPTFLASH
[LAMBDA (TSTREAM) (* ; "Edited 25-Apr-2025 17:58 by rmk")
@@ -3621,36 +3622,36 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (17102 17998 (TEDIT.DEFER.UPDATES 17112 . 17996)) (17999 43944 (\TEDIT.WINDOW.CREATE
18009 . 25339) (\TEDIT.WINDOW.GETREGION 25341 . 28831) (\TEDIT.WINDOW.SETUP 28833 . 33163) (
\TEDIT.MINIMAL.WINDOW.SETUP 33165 . 40576) (\TEDIT.CLEARPANE 40578 . 41295) (\TEDIT.FILL.PANES 41297
. 43942)) (43945 67646 (\TEDIT.CURSORMOVEDFN 43955 . 49565) (\TEDIT.CURSOROUTFN 49567 . 50255) (
\TEDIT.ACTIVE.WINDOWP 50257 . 51327) (\TEDIT.EXPANDFN 51329 . 51892) (\TEDIT.MAINW 51894 . 53174) (
\TEDIT.MAINSTREAM 53176 . 53510) (\TEDIT.PRIMARYPANE 53512 . 54282) (\TEDIT.PANELIST 54284 . 54780) (
\TEDIT.NEWREGIONFN 54782 . 57298) (\TEDIT.SET.WINDOW.EXTENT 57300 . 62282) (\TEDIT.SHRINK.ICONCREATE
62284 . 65017) (\TEDIT.SHRINKFN 65019 . 65428) (\TEDIT.PANEREGION 65430 . 67644)) (67678 100724 (
\TEDIT.BUTTONEVENTFN 67688 . 80661) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80663 . 87926) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 87928 . 89770) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89772 . 93442) (
\TEDIT.BUTTONEVENTFN.INACTIVE 93444 . 95874) (\TEDIT.BUTTONEVENTFN.INTITLE 95876 . 97711) (
\TEDIT.COPYINSERTFN 97713 . 98845) (\TEDIT.FOREIGN.COPY 98847 . 100722)) (100725 117967 (
\TEDIT.PANE.SPLIT 100735 . 104683) (\TEDIT.SPLITW 104685 . 112423) (\TEDIT.UNSPLITW 112425 . 116624) (
\TEDIT.LINKPANES 116626 . 117389) (\TEDIT.UNLINKPANE 117391 . 117965)) (119401 120292 (TEDITWINDOWP
119411 . 120290)) (120329 123432 (TEDIT.GETINPUT 120339 . 122782) (\TEDIT.MAKEFILENAME 122784 . 123430
)) (123481 131108 (TEDIT.PROMPTWINDOW 123491 . 123805) (TEDIT.PROMPTPRINT 123807 . 126434) (
TEDIT.PROMPTCLEAR 126436 . 128155) (TEDIT.PROMPTFLASH 128157 . 129415) (\TEDIT.PROMPT.PAGEFULLFN
129417 . 131106)) (131346 141924 (\TEDIT.FILENAME 131356 . 132128) (\TEDIT.DEFAULT.TITLE 132130 .
134509) (\TEDIT.WINDOW.TITLE 134511 . 136680) (\TEDIT.LIKELY.FILENAME 136682 . 139406) (
\TEDIT.UPDATE.TITLE 139408 . 141922)) (141967 154451 (TEDIT.DEACTIVATE.WINDOW 141977 . 147550) (
\TEDIT.RESHAPEFN 147552 . 149637) (\TEDIT.REPAINTFN 149639 . 149863) (\TEDIT.CLOSESPLITS 149865 .
152310) (\TEDIT.CLOSEPANE 152312 . 154449)) (154452 197251 (\TEDIT.SCROLLFN 154462 . 156693) (
\TEDIT.SCROLLCH.TOP 156695 . 158806) (\TEDIT.SCROLLCH.BOTTOM 158808 . 163138) (\TEDIT.SCROLLUP 163140
. 168866) (\TEDIT.TOPLINE.YTOP 168868 . 170537) (\TEDIT.SCROLLDOWN 170539 . 177578) (
\TEDIT.SCROLL.CARET 177580 . 180418) (\TEDIT.VISIBLECARETP 180420 . 182714) (\TEDIT.VISIBLECHARP
182716 . 183807) (\TEDIT.BITMAPLINES 183809 . 187729) (\TEDIT.SETPANE.TOPLINE 187731 . 188343) (
\TEDIT.SHIFTLINES 188345 . 197249)) (197252 208121 (\TEDIT.ONSCREEN? 197262 . 201813) (
\TEDIT.ONSCREEN.REGION 201815 . 205466) (\TEDIT.AFTERMOVEFN 205468 . 206365) (OFFSCREENP 206367 .
208119)) (208163 210977 (\TEDIT.PROCIDLEFN 208173 . 209833) (\TEDIT.PROCENTRYFN 209835 . 210280) (
\TEDIT.PROCEXITFN 210282 . 210975)) (211056 224281 (\TEDIT.DOWNCARET 211066 . 211859) (
\TEDIT.FLASHCARET 211861 . 213972) (\TEDIT.UPCARET 213974 . 215078) (TEDIT.NORMALIZECARET 215080 .
218298) (\TEDIT.SETCARET 218300 . 223651) (\TEDIT.CARET 223653 . 224279)))))
(FILEMAP (NIL (17179 18075 (TEDIT.DEFER.UPDATES 17189 . 18073)) (18076 44021 (\TEDIT.WINDOW.CREATE
18086 . 25416) (\TEDIT.WINDOW.GETREGION 25418 . 28908) (\TEDIT.WINDOW.SETUP 28910 . 33240) (
\TEDIT.MINIMAL.WINDOW.SETUP 33242 . 40653) (\TEDIT.CLEARPANE 40655 . 41372) (\TEDIT.FILL.PANES 41374
. 44019)) (44022 67723 (\TEDIT.CURSORMOVEDFN 44032 . 49642) (\TEDIT.CURSOROUTFN 49644 . 50332) (
\TEDIT.ACTIVE.WINDOWP 50334 . 51404) (\TEDIT.EXPANDFN 51406 . 51969) (\TEDIT.MAINW 51971 . 53251) (
\TEDIT.MAINSTREAM 53253 . 53587) (\TEDIT.PRIMARYPANE 53589 . 54359) (\TEDIT.PANELIST 54361 . 54857) (
\TEDIT.NEWREGIONFN 54859 . 57375) (\TEDIT.SET.WINDOW.EXTENT 57377 . 62359) (\TEDIT.SHRINK.ICONCREATE
62361 . 65094) (\TEDIT.SHRINKFN 65096 . 65505) (\TEDIT.PANEREGION 65507 . 67721)) (67755 100801 (
\TEDIT.BUTTONEVENTFN 67765 . 80738) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80740 . 88003) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 88005 . 89847) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89849 . 93519) (
\TEDIT.BUTTONEVENTFN.INACTIVE 93521 . 95951) (\TEDIT.BUTTONEVENTFN.INTITLE 95953 . 97788) (
\TEDIT.COPYINSERTFN 97790 . 98922) (\TEDIT.FOREIGN.COPY 98924 . 100799)) (100802 118044 (
\TEDIT.PANE.SPLIT 100812 . 104760) (\TEDIT.SPLITW 104762 . 112500) (\TEDIT.UNSPLITW 112502 . 116701) (
\TEDIT.LINKPANES 116703 . 117466) (\TEDIT.UNLINKPANE 117468 . 118042)) (119478 120369 (TEDITWINDOWP
119488 . 120367)) (120406 123509 (TEDIT.GETINPUT 120416 . 122859) (\TEDIT.MAKEFILENAME 122861 . 123507
)) (123558 131208 (TEDIT.PROMPTWINDOW 123568 . 123882) (TEDIT.PROMPTPRINT 123884 . 126511) (
TEDIT.PROMPTCLEAR 126513 . 128255) (TEDIT.PROMPTFLASH 128257 . 129515) (\TEDIT.PROMPT.PAGEFULLFN
129517 . 131206)) (131446 142024 (\TEDIT.FILENAME 131456 . 132228) (\TEDIT.DEFAULT.TITLE 132230 .
134609) (\TEDIT.WINDOW.TITLE 134611 . 136780) (\TEDIT.LIKELY.FILENAME 136782 . 139506) (
\TEDIT.UPDATE.TITLE 139508 . 142022)) (142067 154551 (TEDIT.DEACTIVATE.WINDOW 142077 . 147650) (
\TEDIT.RESHAPEFN 147652 . 149737) (\TEDIT.REPAINTFN 149739 . 149963) (\TEDIT.CLOSESPLITS 149965 .
152410) (\TEDIT.CLOSEPANE 152412 . 154549)) (154552 197351 (\TEDIT.SCROLLFN 154562 . 156793) (
\TEDIT.SCROLLCH.TOP 156795 . 158906) (\TEDIT.SCROLLCH.BOTTOM 158908 . 163238) (\TEDIT.SCROLLUP 163240
. 168966) (\TEDIT.TOPLINE.YTOP 168968 . 170637) (\TEDIT.SCROLLDOWN 170639 . 177678) (
\TEDIT.SCROLL.CARET 177680 . 180518) (\TEDIT.VISIBLECARETP 180520 . 182814) (\TEDIT.VISIBLECHARP
182816 . 183907) (\TEDIT.BITMAPLINES 183909 . 187829) (\TEDIT.SETPANE.TOPLINE 187831 . 188443) (
\TEDIT.SHIFTLINES 188445 . 197349)) (197352 208221 (\TEDIT.ONSCREEN? 197362 . 201913) (
\TEDIT.ONSCREEN.REGION 201915 . 205566) (\TEDIT.AFTERMOVEFN 205568 . 206465) (OFFSCREENP 206467 .
208219)) (208263 211077 (\TEDIT.PROCIDLEFN 208273 . 209933) (\TEDIT.PROCENTRYFN 209935 . 210380) (
\TEDIT.PROCEXITFN 210382 . 211075)) (211156 224381 (\TEDIT.DOWNCARET 211166 . 211959) (
\TEDIT.FLASHCARET 211961 . 214072) (\TEDIT.UPCARET 214074 . 215178) (TEDIT.NORMALIZECARET 215180 .
218398) (\TEDIT.SETCARET 218400 . 223751) (\TEDIT.CARET 223753 . 224379)))))
STOP

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

Binary file not shown.