github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-31 04:10:58 +00:00
Code Issues Projects Releases Wiki Activity

SEDIT: SELECTC formatted like SELECTQ, copy-select from the titlebar

Browse Source 
Fixes long-standing irritants (for me at least).  SELECTC is highlighted and format like SELECTQ and SELCHARQ.  And left-button in the title bar with the copy (shift) key down does a bksysbuf of the thing being edited.  The menu is available under the middle button, moving and reshaping still provided by modernize with the shift not down.
This commit is contained in:
rmkaplan
2023-06-17 20:18:17 -07:00
parent 28c673f296
commit d43846b4f4
4 changed files with 124 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
sources/SEDIT-LIST-FORMATS
View File

@@ -1,14 +1,16 @@
(DEFINE-FILE-INFO PACKAGE "SEDIT" READTABLE "XCL" BASE 10)
(IL:FILECREATED "17-May-90 11:08:07" IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-LIST-FORMATS.;2| 9591
IL:|changes| IL:|to:| (IL:FILES IL:SEDIT-INDENT)
(IL:VARS IL:SEDIT-LIST-FORMATSCOMS)
(IL:FILECREATED "17-Jun-2023 19:46:35" IL:|{WMEDLEY}<sources>SEDIT-LIST-FORMATS.;2| 9581
IL:|previous| IL:|date:| "18-Nov-88 10:56:22"
IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-LIST-FORMATS.;1|)
:EDIT-BY IL:|rmk|
:CHANGES-TO (IL:SEDIT-FORMATS IL:SELECTC)
(IL:VARS IL:SEDIT-LIST-FORMATSCOMS)
:PREVIOUS-DATE "17-May-90 11:08:07" IL:|{WMEDLEY}<sources>SEDIT-LIST-FORMATS.;1|)
; Copyright (c) 1987, 1988, 1990 by Venue & Xerox Corporation. All rights reserved.
; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.
(IL:PRETTYCOMPRINT IL:SEDIT-LIST-FORMATSCOMS)
@@ -19,7 +21,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-LIST-FORMATS.;1|)
(IL:SEDIT-FORMATS RETURN-FROM THROW BLOCK
(IL:* IL:|;;|
 "some handy formats under names we don't expect to find as CAR of form")
 "some handy formats under names we don't expect to find as CAR of form")
:DEFAULT :DATA :BINDING :BINDING-LIST :LAMBDA-LIST :FBINDING :FBINDING-LIST
:COND-CLAUSE :CASE-CLAUSE :HORIZONTAL :HORIZONTAL-NOBREAK :VERTICAL
@@ -36,9 +38,9 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-LIST-FORMATS.;1|)
ECASE ERROR ETYPECASE EVAL-WHEN FLET FORMAT IF IGNORE-ERRORS LABELS LAMBDA
IL:LAMBDA LET LET* LOCALLY LIST LIST* MACROLET MULTIPLE-VALUE-BIND
MULTIPLE-VALUE-SETQ IL:NLAMBDA IL:OPENLAMBDA OR IL:P PROCEED-CASE PROG PROG* PROGN
PROGV RESTART-CASE IL:SELCHARQ IL:SELECTQ TAGBODY THE TYPECASE UNDOABLY UNLESS
UNWIND-PROTECT WHEN WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING WITH-OPEN-FILE
WITH-OPEN-STREAM IL:WITH.MONITOR IL:WITH.FAST.MONITOR IL:WITH.SPY)))
PROGV RESTART-CASE IL:SELCHARQ IL:SELECTQ IL:SELECTC TAGBODY THE TYPECASE UNDOABLY
UNLESS UNWIND-PROTECT WHEN WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING
WITH-OPEN-FILE WITH-OPEN-STREAM IL:WITH.MONITOR IL:WITH.FAST.MONITOR IL:WITH.SPY)))
(IL:PUTPROPS IL:SEDIT-LIST-FORMATS IL:FILETYPE :COMPILE-FILE)
@@ -148,7 +150,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-LIST-FORMATS.;1|)
(DEF-LIST-FORMAT DEFCONSTANT DEFVAR)
(DEF-LIST-FORMAT DEFDEFINER :INDENT ((2)
1)
1)
:ARGS (:KEYWORD :CASE-CLAUSE NIL :LAMBDA-LIST NIL))
(DEF-LIST-FORMAT DEFUN :INDENT ((2))
@@ -309,6 +311,8 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>SEDIT-LIST-FORMATS.;1|)
:ARGS (:KEYWORD NIL :CASE-CLAUSE)
:LAST NIL)
(DEF-LIST-FORMAT IL:SELECTC IL:SELECTQ)
(DEF-LIST-FORMAT TAGBODY :INDENT (:TAGBODY :STEP 0)
:ARGS (:KEYWORD NIL))

BIN
sources/SEDIT-LIST-FORMATS.DFASL
View File

Binary file not shown.

185
sources/SEDIT-WINDOW
View File

@@ -1,18 +1,19 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)))
(IL:FILECREATED "14-May-2018 14:12:02" 
IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;2| 84658
(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)
IL:|changes| IL:|to:| (IL:FNS BUTTONEVENTFN)
(IL:FILECREATED "17-Jun-2023 19:59:30" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;2| 87420
IL:|previous| IL:|date:| " 2-Apr-92 11:08:50"
IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
:EDIT-BY IL:|rmk|
:CHANGES-TO (IL:FNS BUTTONEVENTFN)
:PREVIOUS-DATE "14-May-2018 14:12:02" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;1|)
; Copyright (c) 1986, 1987, 1988, 1990, 1991, 1992, 2018 by Venue & Xerox Corporation. All rights reserved.
; Copyright (c) 1986-1988, 1990-1992, 2018 by Venue & Xerox Corporation.
(IL:PRETTYCOMPRINT IL:SEDIT-WINDOWCOMS)
(IL:RPAQQ IL:SEDIT-WINDOWCOMS
(IL:RPAQQ IL:SEDIT-WINDOWCOMS
((IL:PROP IL:FILETYPE IL:SEDIT-WINDOW)
(IL:PROP IL:MAKEFILE-ENVIRONMENT IL:SEDIT-WINDOW)
(IL:LOCALVARS . T)
@@ -36,11 +37,11 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
SET-SELECTION-NOWHERE SHIFT-DOWN SHOW-CARET SHRINKFN STRING-OFFSET TRACK-EXTEND
TRACK-SELECT UNDERLINE-SELECTION UPDATE-TITLE)))
(IL:PUTPROPS IL:SEDIT-WINDOW IL:FILETYPE :COMPILE-FILE)
(IL:PUTPROPS IL:SEDIT-WINDOW IL:FILETYPE :COMPILE-FILE)
(IL:PUTPROPS IL:SEDIT-WINDOW IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE
(DEFPACKAGE IL:SEDIT (:USE IL:LISP
IL:XCL))))
(IL:PUTPROPS IL:SEDIT-WINDOW IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE
(DEFPACKAGE IL:SEDIT (:USE IL:LISP IL:XCL
))))
(IL:DECLARE\: IL:DOEVAL@COMPILE IL:DONTCOPY
(IL:LOCALVARS . T)
@@ -58,40 +59,64 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(IL:RPAQQ ICON-TITLE-REGION (5 16 130 24))
(IL:RPAQ TITLED-ICON (IL:CREATE IL:TITLEDICON IL:ICON IL:_ ICON IL:MASK IL:_ ICON-MASK
IL:TITLEREG IL:_ ICON-TITLE-REGION))
(IL:RPAQ TITLED-ICON (IL:CREATE IL:TITLEDICON IL:ICON IL:_ ICON IL:MASK IL:_ ICON-MASK IL:TITLEREG
IL:_ ICON-TITLE-REGION))
(IL:RPAQQ KEEP-WINDOW-REGION T)
(IL:DECLARE\: IL:DONTCOPY
(IL:DECLARE\: IL:EVAL@COMPILE
(IL:PUTPROPS IN-TITLE-BAR IL:MACRO ((WINDOW)
(IL:PUTPROPS IN-TITLE-BAR IL:MACRO ((WINDOW)
(NOT (IL:INSIDEP (IL:DSPCLIPPINGREGION NIL WINDOW)
(IL:LASTMOUSEX WINDOW)
(IL:LASTMOUSEY WINDOW)))))
(IL:PUTPROPS TRACK-BAR-IN-TRACK-SELECT IL:MACRO
(NIL (WHEN (OR (IL:NEQ POINT? (IL:|fetch| POINT-TYPE IL:|of| PENDING-CARET))
(IL:NEQ BAR-X (IL:|fetch| POINT-X IL:|of| PENDING-CARET))
(IL:NEQ BAR-LINE (IL:|fetch| POINT-LINE IL:|of| PENDING-CARET)))
(WHEN POINT?
(IL:BLTSHADE IL:BLACKSHADE WINDOW BAR-X BAR-Y 1 BAR-HEIGHT 'IL:INVERT))
(WHEN (IL:SETQ POINT? (IL:|fetch| POINT-TYPE IL:|of| PENDING-CARET))
(IL:SETQ BAR-X (IL:|fetch| POINT-X IL:|of| PENDING-CARET))
(IL:SETQ BAR-LINE (IL:|fetch| POINT-LINE IL:|of| PENDING-CARET))
(IL:SETQ BAR-HEIGHT (IL:IPLUS (IL:|fetch| LINE-ASCENT IL:|of| BAR-LINE)
(IL:|fetch| LINE-DESCENT IL:|of| BAR-LINE)))
(IL:SETQ BAR-Y (IL:IDIFFERENCE (IL:|fetch| YCOORD IL:|of| BAR-LINE)
(IL:IPLUS (IL:|fetch| LINE-SKIP IL:|of| BAR-LINE)
BAR-HEIGHT)))
(IL:BLTSHADE IL:BLACKSHADE WINDOW BAR-X BAR-Y 1 BAR-HEIGHT 'IL:INVERT)))))
(IL:PUTPROPS TRACK-BAR-IN-TRACK-SELECT IL:MACRO (NIL (WHEN (OR (IL:NEQ POINT? (IL:|fetch| POINT-TYPE
IL:|of|
PENDING-CARET)
)
(IL:NEQ BAR-X (IL:|fetch| POINT-X
IL:|of| PENDING-CARET
))
(IL:NEQ BAR-LINE (IL:|fetch|
POINT-LINE
IL:|of|
PENDING-CARET
)))
(WHEN POINT?
(IL:BLTSHADE IL:BLACKSHADE WINDOW BAR-X
BAR-Y 1 BAR-HEIGHT 'IL:INVERT))
(WHEN (IL:SETQ POINT? (IL:|fetch| POINT-TYPE
IL:|of|
PENDING-CARET
))
(IL:SETQ BAR-X (IL:|fetch| POINT-X
IL:|of| PENDING-CARET)
)
(IL:SETQ BAR-LINE (IL:|fetch| POINT-LINE
IL:|of|
PENDING-CARET
))
(IL:SETQ BAR-HEIGHT
(IL:IPLUS (IL:|fetch| LINE-ASCENT
IL:|of| BAR-LINE)
(IL:|fetch| LINE-DESCENT
IL:|of| BAR-LINE)))
(IL:SETQ BAR-Y
(IL:IDIFFERENCE (IL:|fetch| YCOORD
IL:|of| BAR-LINE)
(IL:IPLUS (IL:|fetch| LINE-SKIP
IL:|of| BAR-LINE)
BAR-HEIGHT)))
(IL:BLTSHADE IL:BLACKSHADE WINDOW BAR-X
BAR-Y 1 BAR-HEIGHT 'IL:INVERT)))))
)
)
(DEFUN SELECT-NODE-SEGMENT (CONTEXT NODE &OPTIONAL (START 1)
END)
END)
(IL:* IL:|;;;| "set the current selection to be a segment under this node")
(IL:* IL:|;;;| "set the current selection to be a segment under this node")
(LET ((SELECTION (IL:FETCH SELECTION IL:OF CONTEXT))
(POINT (IL:FETCH CARET-POINT IL:OF CONTEXT)))
@@ -100,7 +125,7 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(IL:|replace| SELECT-END IL:|of| SELECTION IL:|with| END)
(SELECT-SEGMENT SELECTION CONTEXT NODE)
(IL:* IL:|;;| "set point to be the selection. This should really be done by select-segment but it doesn't because it expects finalization code to be run after it cause it's generally called from the mouse tracking code which finalizes.")
(IL:* IL:|;;| "set point to be the selection. This should really be done by select-segment but it doesn't because it expects finalization code to be run after it cause it's generally called from the mouse tracking code which finalizes.")
(PENDING-DELETE POINT SELECTION)))
(IL:DEFINEQ
@@ -182,9 +207,10 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(IL:DSPRIGHTMARGIN 64000 DISPLAY-WINDOW))))
(BUTTONEVENTFN
(IL:LAMBDA (WINDOW) (IL:* IL:\; "Edited 23-Apr-2018 09:37 by rmk:")
(IL:LAMBDA (WINDOW) (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")
(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")
(LET* ((CONTEXT (IL:WINDOWPROP WINDOW 'EDIT-CONTEXT))
(LOCK (AND CONTEXT (IL:|fetch| CONTEXT-LOCK IL:|of| CONTEXT)))
@@ -192,12 +218,12 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(COND
((IL:LASTMOUSESTATE IL:UP)
(IL:* IL:|;;| "oops, no mouse buttons down. what are we doing here?")
(IL:* IL:|;;| "oops, no mouse buttons down. what are we doing here?")
NIL)
((NOT (AND CONTEXT (IL:WINDOWPROP WINDOW 'IL:PROCESS)))
(IL:* IL:|;;| "this context or process is dead. make it a dead SEdit.")
(IL:* IL:|;;| "this context or process is dead. make it a dead SEdit.")
(IL:|printout| (IL:GETPROMPTWINDOW WINDOW)
T "This SEdit is dead.")
@@ -209,21 +235,32 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
((AND (IL:LASTMOUSESTATE IL:RIGHT)
(IN-TITLE-BAR WINDOW))
(IL:* IL:|;;| "right buttoning the title bar or window border gives the default menu of window commands. Not interlocked because want to be able to move window under a break that has the lock.")
(IL:* IL:|;;| "right buttoning the title bar or window border gives the default menu of window commands. Not interlocked because want to be able to move window under a break that has the lock.")
(IL:\\CARET.DOWN)
(IL:DOWINDOWCOM WINDOW))
((AND (NOT (IL:TTY.PROCESSP (IL:WINDOWPROP WINDOW 'IL:PROCESS)))
(NOT SHIFT-DOWN))
(IL:* IL:|;;| "just grab the tty and don't change state")
(IL:* IL:|;;| "just grab the tty and don't change state")
(IL:TOTOPW WINDOW)
(IL:TTY.PROCESS (IL:WINDOWPROP WINDOW 'IL:PROCESS)))
((AND (EQ SHIFT-DOWN 'COPY)
(IL:MOUSESTATE IL:LEFT)
(IN-TITLE-BAR WINDOW))
(IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited")
(LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
:|name|)))
(WHEN NAME (IL:* IL:\;
 "Not sure about FLG and RDTBL")
(IL:BKSYSBUF NAME))))
((OR (EQ SHIFT-DOWN 'COPY)
(IL:OBTAIN.MONITORLOCK LOCK T))
(IL:* IL:|;;| "at this point we must have the lock, unless we're shift selecting (Copy only: Move and Delete are non-passive operation and must lock)")
(IL:* IL:|;;| "at this point we must have the lock, unless we're shift selecting (Copy only: Move and Delete are non-passive operation and must lock)")
(IL:\\CARET.DOWN)
(IL:TOTOPW WINDOW)
@@ -233,31 +270,27 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(AND (IL:LASTMOUSESTATE IL:LEFT)
(IL:KEYDOWNP 'IL:CTRL))))
(IL:* IL:|;;| "popup help command menu here.")
(IL:* IL:|;;| "popup help command menu here.")
(IL:* IL:|;;| "RMK: CTRL-LEFT = MIDDLE")
(IL:* IL:|;;| "RMK: CTRL-LEFT = MIDDLE")
(HELPMENU CONTEXT))
(T (WITH-PROFILE (IL:|fetch| PROFILE IL:|of| CONTEXT)
(PROG NIL
(CLOSE-OPEN-NODE CONTEXT)
(IL:* IL:|;;| "record that we're busy making a selection in this window, and make sure that variables we use for recording our temporary state are all ready for action. note that these are global vars, and hence all this code is nonrentrant. shouldn't be a problem, since there's only one mouse")
(IL:* IL:|;;| "record that we're busy making a selection in this window, and make sure that variables we use for recording our temporary state are all ready for action. note that these are global vars, and hence all this code is nonrentrant. shouldn't be a problem, since there's only one mouse")
(IL:SETQ SELECTION-PENDING? CONTEXT)
(IL:SETQ PENDING-LAST-X (IL:|fetch| LAST-MOUSE-X IL:|of|
CONTEXT))
(IL:SETQ PENDING-LAST-Y (IL:|fetch| LAST-MOUSE-Y IL:|of|
CONTEXT))
(IL:SETQ PENDING-TYPE (IL:|fetch| LAST-MOUSE-TYPE IL:|of|
CONTEXT))
(IL:SETQ PENDING-LAST-X (IL:|fetch| LAST-MOUSE-X IL:|of| CONTEXT))
(IL:SETQ PENDING-LAST-Y (IL:|fetch| LAST-MOUSE-Y IL:|of| CONTEXT))
(IL:SETQ PENDING-TYPE (IL:|fetch| LAST-MOUSE-TYPE IL:|of| CONTEXT))
(IL:SETQ PENDING-SHIFT SHIFT-DOWN)
(IL:|replace| SELECT-NODE IL:|of| PENDING-SELECTION
IL:|with| NIL)
(IL:|replace| SELECT-NODE IL:|of| PENDING-SELECTION IL:|with| NIL)
(WHEN (NOT PENDING-SHIFT)
(IL:* IL:|;;|
 "if they're setting a new selection take down the main selection")
(IL:* IL:|;;|
 "if they're setting a new selection take down the main selection")
(SELECTION-DOWN CONTEXT))
(IL:SETQ LAST-MOVE-CLOCK NIL)
@@ -268,15 +301,15 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(TRACK-SELECT CONTEXT WINDOW))
(IL:|until| (CHECK-SELECTION-SHIFT CONTEXT T)
IL:|do| (WHEN (NOT (IL:MOUSESTATE IL:UP))
(GO MOUSE-BUTTON-DOWN))
(GO MOUSE-BUTTON-DOWN))
(WHEN (IL:IN/SCROLL/BAR? WINDOW IL:LASTMOUSEX IL:LASTMOUSEY
) (IL:* IL:\;
 "let them scroll while making a selection")
) (IL:* IL:\;
 "let them scroll while making a selection")
(IL:SCROLL.HANDLER WINDOW))
(IL:BLOCK))
(IL:SETQ SELECTION-PENDING? NIL)
(IL:* IL:\;
 "figure out what we should do")
(IL:* IL:\;
 "figure out what we should do")
(FINALIZE-MOUSE-SELECTION CONTEXT WINDOW)))))
(OR (EQ SHIFT-DOWN 'COPY)
(IL:RELEASE.MONITORLOCK LOCK)))))))
@@ -781,22 +814,22 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;1|)
(IL:PUTPROPS IL:SEDIT-WINDOW IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992
2018))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL (9049 9957 (SELECT-NODE-SEGMENT 9049 . 9957)) (9958 84520 (BUILD-WINDOW 9971 . 15811)
(BUTTONEVENTFN 15813 . 21522) (CHECK-SELECTION 21524 . 23564) (CHECK-SELECTION-SHIFT 23566 . 24689) (
CLOSEFN 24691 . 27694) (CONFLICTING-SELECTION? 27696 . 28457) (DISPLAY-SELECTION 28459 . 29486) (
DRAW-HIGHLIGHT 29488 . 30618) (DRAW-OUTLINE 30620 . 31975) (DRAW-UNDERLINE 31977 . 32752) (EXPANDFN
32754 . 33261) (EXPANDREGIONFN 33263 . 33853) (EXTEND-SELECTION 33855 . 36432) (
FINALIZE-MOUSE-SELECTION 36434 . 42980) (FIND-LINE-START 42982 . 43673) (FIND-NODE 43675 . 44950) (
GET-DESTINATION-CONTEXT 44952 . 45504) (GRAY 45506 . 45893) (GROW-CLICK? 45895 . 47880) (
GROW-SELECTION 47882 . 48225) (GROW-SELECTION-DEFAULT 48227 . 48598) (HIGHLIGHT-SELECTION 48600 .
48893) (ICON-COPYFN 48895 . 49239) (LESS-PROMPT-WINDOW 49241 . 49610) (NORMALIZE-SELECTION 49612 .
50978) (OUTLINE-SELECTION 50980 . 52118) (PENDING-DELETE 52120 . 52454) (PLACE-CARET-AND-SELECTION
52456 . 54016) (PUNT-SET-POINT 54018 . 54476) (PUNT-SET-SELECTION 54478 . 54927) (REPAINTFN 54929 .
56207) (RESHAPEFN 56209 . 58547) (SCAN-FOR-BOUNDS 58549 . 61092) (SELECT-NODE 61094 . 61464) (
SELECT-SEGMENT 61466 . 61906) (SELECT-SEGMENT-DEFAULT 61908 . 63935) (SELECTION-DOWN 63937 . 64347) (
SELECTION-UP 64349 . 64775) (SET-POINT 64777 . 65536) (SET-POINT-NOWHERE 65538 . 65797) (
SET-POINT-UNKNOWN 65799 . 66420) (SET-SELECTION 66422 . 66855) (SET-SELECTION-ME 66857 . 67949) (
SET-SELECTION-NOWHERE 67951 . 68149) (SHIFT-DOWN 68151 . 68692) (SHOW-CARET 68694 . 74252) (SHRINKFN
74254 . 76989) (STRING-OFFSET 76991 . 78351) (TRACK-EXTEND 78353 . 80409) (TRACK-SELECT 80411 . 82900)
(UNDERLINE-SELECTION 82902 . 83304) (UPDATE-TITLE 83306 . 84518)))))
(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:STOP

BIN
sources/SEDIT-WINDOW.DFASL
View File

Binary file not shown.