github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-15 19:22:20 +00:00
Code Issues Projects Releases Wiki Activity

Scroll bar with secondary selections

Browse Source
This commit is contained in:
rmkaplan
2026-05-13 20:35:22 -07:00
parent 44d9da0ba1
commit be6a6d0812
4 changed files with 80 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
library/tedit/TEDIT-SELECTION
View File

@@ -1,12 +1,13 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "16-Apr-2026 09:27:41" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;741 161623
(FILECREATED "13-May-2026 09:38:23" {MEDLEY}<library>tedit>TEDIT-SELECTION.;742 162117
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.SELPIECES.FROM.STRING)
:CHANGES-TO (FNS \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF)
(VARS TEDIT-SELECTIONCOMS)
:PREVIOUS-DATE "10-Apr-2026 09:31:20" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;740)
:PREVIOUS-DATE "16-Apr-2026 09:27:41" {MEDLEY}<library>tedit>TEDIT-SELECTION.;741)
(PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
@@ -41,9 +42,9 @@
(FNS \TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS)
(DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \TEDIT.NOSEL \TEDIT.SEL.ON
\TEDIT.SEL.OFF)))
(FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SEL.ON \TEDIT.SHOWSEL.HILIGHT
\TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 \TEDIT.SEL.LN
\TEDIT.SEL.DELETEDCHARS)
(FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF \TEDIT.SEL.ON
\TEDIT.SHOWSEL.HILIGHT \TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1
\TEDIT.SEL.LN \TEDIT.SEL.DELETEDCHARS)
(FNS \TEDIT.COPYSEL \TEDIT.SEL.CHANGED?))
(COMS (* ; "Image objects")
(FNS \TEDIT.SELECT.OBJECT \TEDIT.SHOWSEL.OBJECT \TEDIT.CLIP.OBJECT
@@ -1360,6 +1361,16 @@
(\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE])
(\TEDIT.SECONDARYSEL.OFF
[LAMBDA (TSTREAM) (* ; "Edited 13-May-2026 09:36 by rmk")
(* ;; "Turns off and removes the secondary selection.")
(LET ((TOBJ (FGETTSTR TSTREAM TEXTOBJ)))
(CL:WHEN (FGETTOBJ TOBJ SECONDARYSEL)
(\TEDIT.SEL.OFF TSTREAM (FGETTOBJ TOBJ SECONDARYSEL))
(FSETTOBJ TOBJ SECONDARYSEL NIL))])
(\TEDIT.SEL.ON
[LAMBDA (TSTREAM SEL ONLYPANE DONTFIX) (* ; "Edited 5-May-2025 23:21 by rmk")
(* ; "Edited 15-Apr-2025 15:20 by rmk")
@@ -2561,26 +2572,26 @@
(ADDTOVAR LAMA TEDIT.SELPROP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (15886 17707 (\TEDIT.SELECTION.DEFPRINT 15896 . 17705)) (17744 19249 (
\TEDIT.SET.GLOBAL.SELECTIONS 17754 . 19247)) (19250 25471 (\TEDIT.SELECTED.PIECES 19260 . 20899) (
\TEDIT.FIND.PROTECTED.END 20901 . 22695) (\TEDIT.FIND.PROTECTED.START 22697 . 24680) (
\TEDIT.WORD.BOUND 24682 . 25469)) (25605 59712 (\TEDIT.EXTEND.SEL 25615 . 32855) (\TEDIT.SCAN.LINE
32857 . 44530) (\TEDIT.SCAN.LINE.WORD 44532 . 49525) (\TEDIT.XYTOSEL 49527 . 56865) (\TEDIT.REGIONTYPE
56867 . 57886) (\TEDIT.XYTOSEL.INLINEP 57888 . 58343) (\TEDIT.XYTOSEL.LINE 58345 . 59710)) (59713
73258 (\TEDIT.FIXSEL 59723 . 69100) (\TEDIT.CHTOLINEX 69102 . 73256)) (73259 77463 (
\TEDIT.RESET.EXTEND.PENDING.DELETE 73269 . 74547) (\TEDIT.SET.SEL.LOOKS 74549 . 77461)) (78400 99553 (
\TEDIT.SHOWSEL 78410 . 83386) (\TEDIT.NOSEL 83388 . 83689) (\TEDIT.SEL.OFF 83691 . 84102) (
\TEDIT.SEL.ON 84104 . 84520) (\TEDIT.SHOWSEL.HILIGHT 84522 . 89143) (\TEDIT.UPDATE.SEL 89145 . 93747)
(\TEDIT.CARETLINE 93749 . 94463) (\TEDIT.SEL.L1 94465 . 95148) (\TEDIT.SEL.LN 95150 . 95833) (
\TEDIT.SEL.DELETEDCHARS 95835 . 99551)) (99554 104436 (\TEDIT.COPYSEL 99564 . 102206) (
\TEDIT.SEL.CHANGED? 102208 . 104434)) (104467 118126 (\TEDIT.SELECT.OBJECT 104477 . 109430) (
\TEDIT.SHOWSEL.OBJECT 109432 . 111663) (\TEDIT.CLIP.OBJECT 111665 . 113669) (\TEDIT.OPERATE.OBJECT
113671 . 118124)) (118154 137453 (\TEDIT.SELPIECES 118164 . 122445) (\TEDIT.SELPIECES.COPY 122447 .
124936) (\TEDIT.SELPIECES.CONCAT 124938 . 126817) (\TEDIT.SELPIECES.CHARTRANSFORM 126819 . 130189) (
\TEDIT.SELPIECES.FROM.STRING 130191 . 135088) (\TEDIT.SELPIECES.TO.STRING 135090 . 137451)) (137506
161454 (TEDIT.XYTOCH 137516 . 140092) (TEDIT.SELPROP 140094 . 144371) (TEDIT.GETPOINT 144373 . 146293)
(TEDIT.GETSEL 146295 . 147171) (TEDIT.GETSEL.PARA 147173 . 148122) (TEDIT.SCANSEL 148124 . 149072) (
TEDIT.SET.SEL.LOOKS 149074 . 150559) (TEDIT.SETSEL 150561 . 155479) (TEDIT.SHOWSEL 155481 . 157345) (
TEDIT.SEL.AS.STRING 157347 . 159832) (TEDIT.SEL.AS.SEXPR 159834 . 161120) (TEDIT.SELECTALL 161122 .
161452)))))
(FILEMAP (NIL (15963 17784 (\TEDIT.SELECTION.DEFPRINT 15973 . 17782)) (17821 19326 (
\TEDIT.SET.GLOBAL.SELECTIONS 17831 . 19324)) (19327 25548 (\TEDIT.SELECTED.PIECES 19337 . 20976) (
\TEDIT.FIND.PROTECTED.END 20978 . 22772) (\TEDIT.FIND.PROTECTED.START 22774 . 24757) (
\TEDIT.WORD.BOUND 24759 . 25546)) (25682 59789 (\TEDIT.EXTEND.SEL 25692 . 32932) (\TEDIT.SCAN.LINE
32934 . 44607) (\TEDIT.SCAN.LINE.WORD 44609 . 49602) (\TEDIT.XYTOSEL 49604 . 56942) (\TEDIT.REGIONTYPE
56944 . 57963) (\TEDIT.XYTOSEL.INLINEP 57965 . 58420) (\TEDIT.XYTOSEL.LINE 58422 . 59787)) (59790
73335 (\TEDIT.FIXSEL 59800 . 69177) (\TEDIT.CHTOLINEX 69179 . 73333)) (73336 77540 (
\TEDIT.RESET.EXTEND.PENDING.DELETE 73346 . 74624) (\TEDIT.SET.SEL.LOOKS 74626 . 77538)) (78477 100047
(\TEDIT.SHOWSEL 78487 . 83463) (\TEDIT.NOSEL 83465 . 83766) (\TEDIT.SEL.OFF 83768 . 84179) (
\TEDIT.SECONDARYSEL.OFF 84181 . 84596) (\TEDIT.SEL.ON 84598 . 85014) (\TEDIT.SHOWSEL.HILIGHT 85016 .
89637) (\TEDIT.UPDATE.SEL 89639 . 94241) (\TEDIT.CARETLINE 94243 . 94957) (\TEDIT.SEL.L1 94959 . 95642
) (\TEDIT.SEL.LN 95644 . 96327) (\TEDIT.SEL.DELETEDCHARS 96329 . 100045)) (100048 104930 (
\TEDIT.COPYSEL 100058 . 102700) (\TEDIT.SEL.CHANGED? 102702 . 104928)) (104961 118620 (
\TEDIT.SELECT.OBJECT 104971 . 109924) (\TEDIT.SHOWSEL.OBJECT 109926 . 112157) (\TEDIT.CLIP.OBJECT
112159 . 114163) (\TEDIT.OPERATE.OBJECT 114165 . 118618)) (118648 137947 (\TEDIT.SELPIECES 118658 .
122939) (\TEDIT.SELPIECES.COPY 122941 . 125430) (\TEDIT.SELPIECES.CONCAT 125432 . 127311) (
\TEDIT.SELPIECES.CHARTRANSFORM 127313 . 130683) (\TEDIT.SELPIECES.FROM.STRING 130685 . 135582) (
\TEDIT.SELPIECES.TO.STRING 135584 . 137945)) (138000 161948 (TEDIT.XYTOCH 138010 . 140586) (
TEDIT.SELPROP 140588 . 144865) (TEDIT.GETPOINT 144867 . 146787) (TEDIT.GETSEL 146789 . 147665) (
TEDIT.GETSEL.PARA 147667 . 148616) (TEDIT.SCANSEL 148618 . 149566) (TEDIT.SET.SEL.LOOKS 149568 .
151053) (TEDIT.SETSEL 151055 . 155973) (TEDIT.SHOWSEL 155975 . 157839) (TEDIT.SEL.AS.STRING 157841 .
160326) (TEDIT.SEL.AS.SEXPR 160328 . 161614) (TEDIT.SELECTALL 161616 . 161946)))))
STOP

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

Binary file not shown.

80
library/tedit/TEDIT-WINDOW
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "10-May-2026 18:05:02" {MEDLEY}<library>tedit>TEDIT-WINDOW.;899 235055
(FILECREATED "13-May-2026 09:38:48" {MEDLEY}<library>tedit>TEDIT-WINDOW.;900 235247
:EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.DEACTIVATE.WINDOW \TEDIT.WINDOW.GETREGION)
:CHANGES-TO (FNS \TEDIT.BUTTONEVENTFN)
:PREVIOUS-DATE " 7-Feb-2026 18:53:22" {MEDLEY}<library>tedit>TEDIT-WINDOW.;896)
:PREVIOUS-DATE "10-May-2026 18:05:02" {MEDLEY}<library>tedit>TEDIT-WINDOW.;899)
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -1157,7 +1157,8 @@
(DEFINEQ
(\TEDIT.BUTTONEVENTFN
[LAMBDA (PANE) (* ; "Edited 15-Jan-2026 00:39 by rmk")
[LAMBDA (PANE) (* ; "Edited 13-May-2026 09:32 by rmk")
(* ; "Edited 15-Jan-2026 00:39 by rmk")
(* ; "Edited 11-Jan-2026 08:30 by rmk")
(* ; "Edited 6-May-2025 20:35 by rmk")
(* ; "Edited 21-Apr-2025 20:19 by rmk")
@@ -1236,13 +1237,14 @@
then (* ;
 "Mouse moved out and came back...and clicked.")
(SETQ CUROPERATION (FGETSEL CURSEL
SELOPERATION))
SELOPERATION))
(* ; "Shift keys of secondary selection")
(SETQ PENDINGDEL (EQ CUROPERATION
'PENDINGDEL))
(CL:UNLESS (EQ NEWOPERATION CUROPERATION)
(* ;
 "Shift keys have changed, turn off old secondary")
(\TEDIT.SEL.OFF TSTREAM CURSEL))
 "If shift keys have changed, turn off old secondary")
(\TEDIT.SECONDARYSEL.OFF TSTREAM))
(CL:WHEN (EQ NEWOPERATION 'NORMAL)
(* ; "")
(CL:UNLESS (SETQ CURSEL (
@@ -3700,36 +3702,36 @@
(RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _
TEDIT.ICON.TITLE.REGION))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (17125 18021 (TEDIT.DEFER.UPDATES 17135 . 18019)) (18022 46329 (\TEDIT.WINDOW.CREATE
18032 . 24895) (\TEDIT.WINDOW.GETREGION 24897 . 30490) (\TEDIT.WINDOW.SETUP 30492 . 34999) (
\TEDIT.MINIMAL.WINDOW.SETUP 35001 . 42961) (\TEDIT.CLEARPANE 42963 . 43680) (\TEDIT.FILL.PANES 43682
. 46327)) (46330 70057 (\TEDIT.CURSORMOVEDFN 46340 . 51867) (\TEDIT.CURSOROUTFN 51869 . 52666) (
\TEDIT.ACTIVE.WINDOWP 52668 . 53738) (\TEDIT.EXPANDFN 53740 . 54303) (\TEDIT.MAINW 54305 . 55585) (
\TEDIT.MAINSTREAM 55587 . 55921) (\TEDIT.PRIMARYPANE 55923 . 56693) (\TEDIT.PANELIST 56695 . 57191) (
\TEDIT.NEWREGIONFN 57193 . 59709) (\TEDIT.SET.WINDOW.EXTENT 59711 . 64693) (\TEDIT.SHRINK.ICONCREATE
64695 . 67428) (\TEDIT.SHRINKFN 67430 . 67839) (\TEDIT.PANEREGION 67841 . 70055)) (70089 105214 (
\TEDIT.BUTTONEVENTFN 70099 . 84806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84808 . 92279) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 92281 . 94123) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94125 . 97795) (
\TEDIT.BUTTONEVENTFN.INACTIVE 97797 . 100227) (\TEDIT.BUTTONEVENTFN.INTITLE 100229 . 102064) (
\TEDIT.COPYINSERTFN 102066 . 103198) (\TEDIT.FOREIGN.COPY 103200 . 105212)) (105215 122778 (
\TEDIT.PANE.SPLIT 105225 . 109173) (\TEDIT.SPLITW 109175 . 117234) (\TEDIT.UNSPLITW 117236 . 121435) (
\TEDIT.LINKPANES 121437 . 122200) (\TEDIT.UNLINKPANE 122202 . 122776)) (124212 125103 (TEDITWINDOWP
124222 . 125101)) (125140 128243 (TEDIT.GETINPUT 125150 . 127593) (\TEDIT.MAKEFILENAME 127595 . 128241
)) (128292 136375 (TEDIT.PROMPTWINDOW 128302 . 128616) (TEDIT.PROMPTPRINT 128618 . 131585) (
TEDIT.PROMPTCLEAR 131587 . 133422) (TEDIT.PROMPTFLASH 133424 . 134682) (\TEDIT.PROMPT.PAGEFULLFN
134684 . 136373)) (136613 147191 (\TEDIT.FILENAME 136623 . 137395) (\TEDIT.DEFAULT.TITLE 137397 .
139776) (\TEDIT.WINDOW.TITLE 139778 . 141947) (\TEDIT.LIKELY.FILENAME 141949 . 144673) (
\TEDIT.UPDATE.TITLE 144675 . 147189)) (147234 159961 (TEDIT.DEACTIVATE.WINDOW 147244 . 153060) (
\TEDIT.RESHAPEFN 153062 . 155147) (\TEDIT.REPAINTFN 155149 . 155373) (\TEDIT.CLOSESPLITS 155375 .
157820) (\TEDIT.CLOSEPANE 157822 . 159959)) (159962 202761 (\TEDIT.SCROLLFN 159972 . 162203) (
\TEDIT.SCROLLCH.TOP 162205 . 164316) (\TEDIT.SCROLLCH.BOTTOM 164318 . 168648) (\TEDIT.SCROLLUP 168650
. 174376) (\TEDIT.TOPLINE.YTOP 174378 . 176047) (\TEDIT.SCROLLDOWN 176049 . 183088) (
\TEDIT.SCROLL.CARET 183090 . 185928) (\TEDIT.VISIBLECARETP 185930 . 188224) (\TEDIT.VISIBLECHARP
188226 . 189317) (\TEDIT.BITMAPLINES 189319 . 193239) (\TEDIT.SETPANE.TOPLINE 193241 . 193853) (
\TEDIT.SHIFTLINES 193855 . 202759)) (202762 213631 (\TEDIT.ONSCREEN? 202772 . 207323) (
\TEDIT.ONSCREEN.REGION 207325 . 210976) (\TEDIT.AFTERMOVEFN 210978 . 211875) (OFFSCREENP 211877 .
213629)) (213673 216487 (\TEDIT.PROCIDLEFN 213683 . 215343) (\TEDIT.PROCENTRYFN 215345 . 215790) (
\TEDIT.PROCEXITFN 215792 . 216485)) (216566 229791 (\TEDIT.DOWNCARET 216576 . 217369) (
\TEDIT.FLASHCARET 217371 . 219482) (\TEDIT.UPCARET 219484 . 220588) (TEDIT.NORMALIZECARET 220590 .
223808) (\TEDIT.SETCARET 223810 . 229161) (\TEDIT.CARET 229163 . 229789)))))
(FILEMAP (NIL (17098 17994 (TEDIT.DEFER.UPDATES 17108 . 17992)) (17995 46302 (\TEDIT.WINDOW.CREATE
18005 . 24868) (\TEDIT.WINDOW.GETREGION 24870 . 30463) (\TEDIT.WINDOW.SETUP 30465 . 34972) (
\TEDIT.MINIMAL.WINDOW.SETUP 34974 . 42934) (\TEDIT.CLEARPANE 42936 . 43653) (\TEDIT.FILL.PANES 43655
. 46300)) (46303 70030 (\TEDIT.CURSORMOVEDFN 46313 . 51840) (\TEDIT.CURSOROUTFN 51842 . 52639) (
\TEDIT.ACTIVE.WINDOWP 52641 . 53711) (\TEDIT.EXPANDFN 53713 . 54276) (\TEDIT.MAINW 54278 . 55558) (
\TEDIT.MAINSTREAM 55560 . 55894) (\TEDIT.PRIMARYPANE 55896 . 56666) (\TEDIT.PANELIST 56668 . 57164) (
\TEDIT.NEWREGIONFN 57166 . 59682) (\TEDIT.SET.WINDOW.EXTENT 59684 . 64666) (\TEDIT.SHRINK.ICONCREATE
64668 . 67401) (\TEDIT.SHRINKFN 67403 . 67812) (\TEDIT.PANEREGION 67814 . 70028)) (70062 105406 (
\TEDIT.BUTTONEVENTFN 70072 . 84998) (\TEDIT.BUTTONEVENTFN.DOOPERATION 85000 . 92471) (
\TEDIT.BUTTONEVENTFN.GETOPERATION 92473 . 94315) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 94317 . 97987) (
\TEDIT.BUTTONEVENTFN.INACTIVE 97989 . 100419) (\TEDIT.BUTTONEVENTFN.INTITLE 100421 . 102256) (
\TEDIT.COPYINSERTFN 102258 . 103390) (\TEDIT.FOREIGN.COPY 103392 . 105404)) (105407 122970 (
\TEDIT.PANE.SPLIT 105417 . 109365) (\TEDIT.SPLITW 109367 . 117426) (\TEDIT.UNSPLITW 117428 . 121627) (
\TEDIT.LINKPANES 121629 . 122392) (\TEDIT.UNLINKPANE 122394 . 122968)) (124404 125295 (TEDITWINDOWP
124414 . 125293)) (125332 128435 (TEDIT.GETINPUT 125342 . 127785) (\TEDIT.MAKEFILENAME 127787 . 128433
)) (128484 136567 (TEDIT.PROMPTWINDOW 128494 . 128808) (TEDIT.PROMPTPRINT 128810 . 131777) (
TEDIT.PROMPTCLEAR 131779 . 133614) (TEDIT.PROMPTFLASH 133616 . 134874) (\TEDIT.PROMPT.PAGEFULLFN
134876 . 136565)) (136805 147383 (\TEDIT.FILENAME 136815 . 137587) (\TEDIT.DEFAULT.TITLE 137589 .
139968) (\TEDIT.WINDOW.TITLE 139970 . 142139) (\TEDIT.LIKELY.FILENAME 142141 . 144865) (
\TEDIT.UPDATE.TITLE 144867 . 147381)) (147426 160153 (TEDIT.DEACTIVATE.WINDOW 147436 . 153252) (
\TEDIT.RESHAPEFN 153254 . 155339) (\TEDIT.REPAINTFN 155341 . 155565) (\TEDIT.CLOSESPLITS 155567 .
158012) (\TEDIT.CLOSEPANE 158014 . 160151)) (160154 202953 (\TEDIT.SCROLLFN 160164 . 162395) (
\TEDIT.SCROLLCH.TOP 162397 . 164508) (\TEDIT.SCROLLCH.BOTTOM 164510 . 168840) (\TEDIT.SCROLLUP 168842
. 174568) (\TEDIT.TOPLINE.YTOP 174570 . 176239) (\TEDIT.SCROLLDOWN 176241 . 183280) (
\TEDIT.SCROLL.CARET 183282 . 186120) (\TEDIT.VISIBLECARETP 186122 . 188416) (\TEDIT.VISIBLECHARP
188418 . 189509) (\TEDIT.BITMAPLINES 189511 . 193431) (\TEDIT.SETPANE.TOPLINE 193433 . 194045) (
\TEDIT.SHIFTLINES 194047 . 202951)) (202954 213823 (\TEDIT.ONSCREEN? 202964 . 207515) (
\TEDIT.ONSCREEN.REGION 207517 . 211168) (\TEDIT.AFTERMOVEFN 211170 . 212067) (OFFSCREENP 212069 .
213821)) (213865 216679 (\TEDIT.PROCIDLEFN 213875 . 215535) (\TEDIT.PROCENTRYFN 215537 . 215982) (
\TEDIT.PROCEXITFN 215984 . 216677)) (216758 229983 (\TEDIT.DOWNCARET 216768 . 217561) (
\TEDIT.FLASHCARET 217563 . 219674) (\TEDIT.UPCARET 219676 . 220780) (TEDIT.NORMALIZECARET 220782 .
224000) (\TEDIT.SETCARET 224002 . 229353) (\TEDIT.CARET 229355 . 229981)))))
STOP

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

Binary file not shown.