SEDIT-WINDOW: use COPYINSERT instead of BKSYSBUF for shift-selection from titlebar

Gets the package

sources/SEDIT-WINDOW

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)
 
-
(IL:FILECREATED "17-Jun-2023 19:59:30" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;2|
 87420  
+
(IL:FILECREATED "20-Jun-2023 21:10:34" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;3|
 87531  
 
       :EDIT-BY IL:|rmk|
 
       :CHANGES-TO (IL:FNS BUTTONEVENTFN)
 
-      :PREVIOUS-DATE "14-May-2018 14:12:02" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;1|)
+      :PREVIOUS-DATE "17-Jun-2023 19:59:30" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;2|)
 
 
 ; 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 17-Jun-2023 19:59 by rmk")


+  (IL:LAMBDA (WINDOW)
                                 (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:")

 
     (IL:* IL:|;;| "called by the window system whenever the user hits a mouse button in an SEdit window.  allows selection and setting the caret point")

@@ -256,7 +257,7 @@
                                  :|name|)))
                    (WHEN NAME                                (IL:* IL:\; 
 
                                                             "Not sure about FLG and RDTBL")

-                       (IL:BKSYSBUF NAME))))
+                       (IL:COPYINSERT NAME))))
              ((OR (EQ SHIFT-DOWN 'COPY)
                   (IL:OBTAIN.MONITORLOCK LOCK T))
 
@@ -814,22 +815,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 87282 (BUILD-WINDOW 12348 . 
-18188) (BUTTONEVENTFN 18190 . 24284) (CHECK-SELECTION 24286 . 26326) (CHECK-SELECTION-SHIFT 26328 . 
-27451) (CLOSEFN 27453 . 30456) (CONFLICTING-SELECTION? 30458 . 31219) (DISPLAY-SELECTION 31221 . 32248
-) (DRAW-HIGHLIGHT 32250 . 33380) (DRAW-OUTLINE 33382 . 34737) (DRAW-UNDERLINE 34739 . 35514) (EXPANDFN
- 35516 . 36023) (EXPANDREGIONFN 36025 . 36615) (EXTEND-SELECTION 36617 . 39194) (
-FINALIZE-MOUSE-SELECTION 39196 . 45742) (FIND-LINE-START 45744 . 46435) (FIND-NODE 46437 . 47712) (
-GET-DESTINATION-CONTEXT 47714 . 48266) (GRAY 48268 . 48655) (GROW-CLICK? 48657 . 50642) (
-GROW-SELECTION 50644 . 50987) (GROW-SELECTION-DEFAULT 50989 . 51360) (HIGHLIGHT-SELECTION 51362 . 
-51655) (ICON-COPYFN 51657 . 52001) (LESS-PROMPT-WINDOW 52003 . 52372) (NORMALIZE-SELECTION 52374 . 
-53740) (OUTLINE-SELECTION 53742 . 54880) (PENDING-DELETE 54882 . 55216) (PLACE-CARET-AND-SELECTION 
-55218 . 56778) (PUNT-SET-POINT 56780 . 57238) (PUNT-SET-SELECTION 57240 . 57689) (REPAINTFN 57691 . 
-58969) (RESHAPEFN 58971 . 61309) (SCAN-FOR-BOUNDS 61311 . 63854) (SELECT-NODE 63856 . 64226) (
-SELECT-SEGMENT 64228 . 64668) (SELECT-SEGMENT-DEFAULT 64670 . 66697) (SELECTION-DOWN 66699 . 67109) (
-SELECTION-UP 67111 . 67537) (SET-POINT 67539 . 68298) (SET-POINT-NOWHERE 68300 . 68559) (
-SET-POINT-UNKNOWN 68561 . 69182) (SET-SELECTION 69184 . 69617) (SET-SELECTION-ME 69619 . 70711) (
-SET-SELECTION-NOWHERE 70713 . 70911) (SHIFT-DOWN 70913 . 71454) (SHOW-CARET 71456 . 77014) (SHRINKFN 
-77016 . 79751) (STRING-OFFSET 79753 . 81113) (TRACK-EXTEND 81115 . 83171) (TRACK-SELECT 83173 . 85662)
- (UNDERLINE-SELECTION 85664 . 86066) (UPDATE-TITLE 86068 . 87280)))))
+  (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:STOP