github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-02 18:14:44 +00:00
Code Issues Projects Releases Wiki Activity

SEDIT-WINDOW: Shift-title selection conforms to standard mouse conventions (#1272)

Browse Source 
In previous commit/PR #1256 the bksysbuf wasn't waiting for the copy/shift key to come up.
This commit is contained in:
rmkaplan
2023-07-19 12:53:46 -07:00
committed by GitHub
parent a258a5e9f0
commit feff0cefc0
2 changed files with 30 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
sources/SEDIT-WINDOW
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)
(IL:FILECREATED "20-Jun-2023 21:10:34" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;3| 87531
(IL:FILECREATED "13-Jul-2023 14:28:53" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;6| 87869
:EDIT-BY IL:|rmk|
:CHANGES-TO (IL:FNS BUTTONEVENTFN)
:PREVIOUS-DATE "17-Jun-2023 19:59:30" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;2|)
:PREVIOUS-DATE "13-Jul-2023 14:06:39" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;5|)
; Copyright (c) 1986-1988, 1990-1992, 2018 by Venue & Xerox Corporation.
@@ -207,7 +207,8 @@
(IL:DSPRIGHTMARGIN 64000 DISPLAY-WINDOW))))
(BUTTONEVENTFN
(IL:LAMBDA (WINDOW) (IL:* IL:\; "Edited 20-Jun-2023 21:10 by rmk")
(IL:LAMBDA (WINDOW) (IL:* IL:\; "Edited 13-Jul-2023 14:27 by rmk")
(IL:* IL:\; "Edited 20-Jun-2023 21:10 by rmk")
(IL:* IL:\; "Edited 17-Jun-2023 19:59 by rmk")
(IL:* IL:\; "Edited 23-Apr-2018 09:37 by rmk:")
@@ -251,13 +252,16 @@
(IL:MOUSESTATE IL:LEFT)
(IN-TITLE-BAR WINDOW))
(IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited")
(IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited. Previous attempt was too immediate, did not conform to usual mouse-up conventions.")
(LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
:|name|)))
(WHEN NAME (IL:* IL:\;
(IL:WHILE (EQ 'COPY (SHIFT-DOWN)))
(IL:GETMOUSESTATE)
(WHEN (IN-TITLE-BAR WINDOW)
(LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
:|name|)))
(WHEN NAME (IL:* IL:\;
 "Not sure about FLG and RDTBL")
(IL:COPYINSERT NAME))))
(IL:COPYINSERT NAME)))))
((OR (EQ SHIFT-DOWN 'COPY)
(IL:OBTAIN.MONITORLOCK LOCK T))
@@ -815,22 +819,22 @@
(IL:PUTPROPS IL:SEDIT-WINDOW IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992
2018))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL (11430 12334 (SELECT-NODE-SEGMENT 11430 . 12334)) (12335 87393 (BUILD-WINDOW 12348 .
18188) (BUTTONEVENTFN 18190 . 24395) (CHECK-SELECTION 24397 . 26437) (CHECK-SELECTION-SHIFT 26439 .
27562) (CLOSEFN 27564 . 30567) (CONFLICTING-SELECTION? 30569 . 31330) (DISPLAY-SELECTION 31332 . 32359
) (DRAW-HIGHLIGHT 32361 . 33491) (DRAW-OUTLINE 33493 . 34848) (DRAW-UNDERLINE 34850 . 35625) (EXPANDFN
35627 . 36134) (EXPANDREGIONFN 36136 . 36726) (EXTEND-SELECTION 36728 . 39305) (
FINALIZE-MOUSE-SELECTION 39307 . 45853) (FIND-LINE-START 45855 . 46546) (FIND-NODE 46548 . 47823) (
GET-DESTINATION-CONTEXT 47825 . 48377) (GRAY 48379 . 48766) (GROW-CLICK? 48768 . 50753) (
GROW-SELECTION 50755 . 51098) (GROW-SELECTION-DEFAULT 51100 . 51471) (HIGHLIGHT-SELECTION 51473 .
51766) (ICON-COPYFN 51768 . 52112) (LESS-PROMPT-WINDOW 52114 . 52483) (NORMALIZE-SELECTION 52485 .
53851) (OUTLINE-SELECTION 53853 . 54991) (PENDING-DELETE 54993 . 55327) (PLACE-CARET-AND-SELECTION
55329 . 56889) (PUNT-SET-POINT 56891 . 57349) (PUNT-SET-SELECTION 57351 . 57800) (REPAINTFN 57802 .
59080) (RESHAPEFN 59082 . 61420) (SCAN-FOR-BOUNDS 61422 . 63965) (SELECT-NODE 63967 . 64337) (
SELECT-SEGMENT 64339 . 64779) (SELECT-SEGMENT-DEFAULT 64781 . 66808) (SELECTION-DOWN 66810 . 67220) (
SELECTION-UP 67222 . 67648) (SET-POINT 67650 . 68409) (SET-POINT-NOWHERE 68411 . 68670) (
SET-POINT-UNKNOWN 68672 . 69293) (SET-SELECTION 69295 . 69728) (SET-SELECTION-ME 69730 . 70822) (
SET-SELECTION-NOWHERE 70824 . 71022) (SHIFT-DOWN 71024 . 71565) (SHOW-CARET 71567 . 77125) (SHRINKFN
77127 . 79862) (STRING-OFFSET 79864 . 81224) (TRACK-EXTEND 81226 . 83282) (TRACK-SELECT 83284 . 85773)
(UNDERLINE-SELECTION 85775 . 86177) (UPDATE-TITLE 86179 . 87391)))))
(IL:FILEMAP (NIL (11430 12334 (SELECT-NODE-SEGMENT 11430 . 12334)) (12335 87731 (BUILD-WINDOW 12348 .
18188) (BUTTONEVENTFN 18190 . 24733) (CHECK-SELECTION 24735 . 26775) (CHECK-SELECTION-SHIFT 26777 .
27900) (CLOSEFN 27902 . 30905) (CONFLICTING-SELECTION? 30907 . 31668) (DISPLAY-SELECTION 31670 . 32697
) (DRAW-HIGHLIGHT 32699 . 33829) (DRAW-OUTLINE 33831 . 35186) (DRAW-UNDERLINE 35188 . 35963) (EXPANDFN
35965 . 36472) (EXPANDREGIONFN 36474 . 37064) (EXTEND-SELECTION 37066 . 39643) (
FINALIZE-MOUSE-SELECTION 39645 . 46191) (FIND-LINE-START 46193 . 46884) (FIND-NODE 46886 . 48161) (
GET-DESTINATION-CONTEXT 48163 . 48715) (GRAY 48717 . 49104) (GROW-CLICK? 49106 . 51091) (
GROW-SELECTION 51093 . 51436) (GROW-SELECTION-DEFAULT 51438 . 51809) (HIGHLIGHT-SELECTION 51811 .
52104) (ICON-COPYFN 52106 . 52450) (LESS-PROMPT-WINDOW 52452 . 52821) (NORMALIZE-SELECTION 52823 .
54189) (OUTLINE-SELECTION 54191 . 55329) (PENDING-DELETE 55331 . 55665) (PLACE-CARET-AND-SELECTION
55667 . 57227) (PUNT-SET-POINT 57229 . 57687) (PUNT-SET-SELECTION 57689 . 58138) (REPAINTFN 58140 .
59418) (RESHAPEFN 59420 . 61758) (SCAN-FOR-BOUNDS 61760 . 64303) (SELECT-NODE 64305 . 64675) (
SELECT-SEGMENT 64677 . 65117) (SELECT-SEGMENT-DEFAULT 65119 . 67146) (SELECTION-DOWN 67148 . 67558) (
SELECTION-UP 67560 . 67986) (SET-POINT 67988 . 68747) (SET-POINT-NOWHERE 68749 . 69008) (
SET-POINT-UNKNOWN 69010 . 69631) (SET-SELECTION 69633 . 70066) (SET-SELECTION-ME 70068 . 71160) (
SET-SELECTION-NOWHERE 71162 . 71360) (SHIFT-DOWN 71362 . 71903) (SHOW-CARET 71905 . 77463) (SHRINKFN
77465 . 80200) (STRING-OFFSET 80202 . 81562) (TRACK-EXTEND 81564 . 83620) (TRACK-SELECT 83622 . 86111)
(UNDERLINE-SELECTION 86113 . 86515) (UPDATE-TITLE 86517 . 87729)))))
IL:STOP

BIN
sources/SEDIT-WINDOW.DFASL
View File

Binary file not shown.