wrong version
This commit is contained in:
rmkaplan
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "17-May-2026 11:40:35" {MEDLEY}<library>tedit>TEDIT-WINDOW.;910 237074
|
||||
(FILECREATED "17-May-2026 13:04:08" {MEDLEY}<library>tedit>TEDIT-WINDOW.;912 236525
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.BUTTONEVENTFN)
|
||||
|
||||
:PREVIOUS-DATE "16-May-2026 13:42:57" {MEDLEY}<library>tedit>TEDIT-WINDOW.;909)
|
||||
:PREVIOUS-DATE "17-May-2026 12:46:44" {MEDLEY}<library>tedit>TEDIT-WINDOW.;911)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-WINDOWCOMS)
|
||||
@@ -1178,7 +1178,9 @@
|
||||
(DEFINEQ
|
||||
|
||||
(\TEDIT.BUTTONEVENTFN
|
||||
[LAMBDA (PANE) (* ; "Edited 17-May-2026 11:38 by rmk")
|
||||
[LAMBDA (PANE) (* ; "Edited 17-May-2026 13:03 by rmk")
|
||||
(* ; "Edited 15-May-2026 12:31 by rmk")
|
||||
(* ; "Edited 13-May-2026 13:26 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")
|
||||
@@ -1207,166 +1209,157 @@
|
||||
(* ;; "Handle mouse buttons that are clicked in a TEdit pane. ")
|
||||
|
||||
(TOTOPW PANE)
|
||||
(CL:WHEN (MOUSESTATE (OR LEFT MIDDLE RIGHT))
|
||||
|
||||
(* ;; "If no button is down, we got control on button-up transition, so ignore it.")
|
||||
|
||||
(RESETLST (* ;
|
||||
"Getting TTYPROC here allows HELP in debugging")
|
||||
(bind (TTYPROC _ (TTY.PROCESS))
|
||||
(TSTREAM _ (PANETEXTSTREAM PANE))
|
||||
(X _ (LASTMOUSEX PANE))
|
||||
(Y _ (LASTMOUSEY PANE))
|
||||
(DS _ (WINDOWPROP PANE 'DSP))
|
||||
(OLDX _ MIN.SMALLP)
|
||||
(OLDY _ MIN.SMALLP)
|
||||
(PREG _ (PANEREGION PANE))
|
||||
TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL
|
||||
declare (SPECVARS CURSEL) first
|
||||
(RESETLST (* ;
|
||||
"Getting TTYPROC here allows HELP in debugging. It's the Tedit process")
|
||||
(bind (TTYPROC _ (TTY.PROCESS))
|
||||
(TSTREAM _ (PANETEXTSTREAM PANE))
|
||||
(X _ (LASTMOUSEX PANE))
|
||||
(Y _ (LASTMOUSEY PANE))
|
||||
(DS _ (WINDOWPROP PANE 'DSP))
|
||||
(OLDX _ MIN.SMALLP)
|
||||
(OLDY _ MIN.SMALLP)
|
||||
(PREG _ (PANEREGION PANE))
|
||||
TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL REGIONTYPE
|
||||
declare (SPECVARS CURSEL) first
|
||||
|
||||
(* ;; "Pick off and return from a bunch of peripheral situations, then fall through to the complexities of normal text selection.")
|
||||
|
||||
(CL:UNLESS TSTREAM (RETURN))
|
||||
(SETQ TEXTOBJ (TEXTOBJ! (FGETTSTR TSTREAM TEXTOBJ)))
|
||||
(CL:WHEN (FGETTOBJ TEXTOBJ EDITFINISHEDFLG)
|
||||
(RETURN))
|
||||
(CL:WHEN (OR (\TEDIT.BUTTONEVENTFN.INTITLE Y PANE
|
||||
TEXTOBJ)
|
||||
(\TEDIT.BUTTONEVENTFN.INACTIVE TEXTOBJ
|
||||
PANE)
|
||||
(\TEDIT.PANE.SPLIT TEXTOBJ PANE))
|
||||
(RETURN))
|
||||
(CL:UNLESS TSTREAM (RETURN))
|
||||
(SETQ TEXTOBJ (TEXTOBJ! (FGETTSTR TSTREAM TEXTOBJ)))
|
||||
(CL:WHEN (FGETTOBJ TEXTOBJ EDITFINISHEDFLG)
|
||||
(RETURN))
|
||||
(CL:WHEN (OR (\TEDIT.BUTTONEVENTFN.INTITLE Y PANE TEXTOBJ)
|
||||
(\TEDIT.BUTTONEVENTFN.INACTIVE TEXTOBJ PANE)
|
||||
(\TEDIT.PANE.SPLIT TEXTOBJ PANE))
|
||||
(RETURN))
|
||||
|
||||
(* ;; "")
|
||||
(* ;; "")
|
||||
|
||||
(* ;;
|
||||
(* ;;
|
||||
"The usual case -- a valid click in this pane. And there's nothing else going on now.")
|
||||
|
||||
(* ;; "Make sure the caret isn't being displayed, then change to the special tall one so it is easier to see during typein")
|
||||
|
||||
(\CARET.DOWN)
|
||||
[RESETSAVE (\TEDIT.CARET TEXTOBJ BXHICARET)
|
||||
`(\TEDIT.CARET ,TEXTOBJ ,BXCARET]
|
||||
(\CARET.DOWN)
|
||||
[RESETSAVE (\TEDIT.CARET TEXTOBJ BXHICARET)
|
||||
`(\TEDIT.CARET ,TEXTOBJ ,BXCARET]
|
||||
|
||||
(* ;; "")
|
||||
(* ;; "")
|
||||
|
||||
(SETQ READONLY (FGETTOBJ TEXTOBJ TXTREADONLY))
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION
|
||||
READONLY NIL))
|
||||
(SETQ READONLY (FGETTOBJ TEXTOBJ TXTREADONLY))
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION
|
||||
READONLY NIL))
|
||||
|
||||
(* ;; "")
|
||||
(* ;; "")
|
||||
|
||||
(if (SETQ CURSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
|
||||
then (* ;
|
||||
(if (SETQ CURSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
|
||||
then (* ;
|
||||
"Mouse moved out and came back...and clicked.")
|
||||
(SETQ CUROPERATION (FGETSEL CURSEL
|
||||
SELOPERATION))
|
||||
(SETQ PENDINGDEL (EQ CUROPERATION
|
||||
'PENDINGDEL))
|
||||
(CL:UNLESS (EQ NEWOPERATION CUROPERATION)
|
||||
(SETQ CUROPERATION (FGETSEL CURSEL 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))
|
||||
(CL:WHEN (EQ NEWOPERATION 'NORMAL)
|
||||
(* ; "")
|
||||
(CL:UNLESS (SETQ CURSEL (
|
||||
"If shift keys have changed, turn off old secondary")
|
||||
(\TEDIT.SECONDARYSEL.OFF TSTREAM))
|
||||
(CL:WHEN (EQ NEWOPERATION 'NORMAL)
|
||||
(* ; "Go back to normalpicik FILES?")
|
||||
(CL:UNLESS (SETQ CURSEL (
|
||||
\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
NEWOPERATION
|
||||
TSTREAM))
|
||||
(RETURN)))
|
||||
elseif (SETQ CURSEL (
|
||||
\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
NEWOPERATION TSTREAM))
|
||||
then (SETQ CUROPERATION 'NORMAL)
|
||||
else (RETURN))
|
||||
(SETQ NEWSEL (\TEDIT.COPYSEL CURSEL))
|
||||
'NORMAL TSTREAM))
|
||||
(RETURN)))
|
||||
elseif (SETQ CURSEL (\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
NEWOPERATION TSTREAM))
|
||||
then (SETQ CUROPERATION (FGETSEL CURSEL SELOPERATION))
|
||||
else (RETURN))
|
||||
(SETQ NEWSEL (\TEDIT.COPYSEL CURSEL))
|
||||
(* ;
|
||||
"Gets line-chains and consistent initial looks")
|
||||
(FSETTOBJ TEXTOBJ LASTARROWX NIL)
|
||||
eachtime (BLOCK) (* ; "Give other processes a chance")
|
||||
(GETMOUSESTATE) (* ;
|
||||
(FSETTOBJ TEXTOBJ LASTARROWX NIL)
|
||||
(SETQ REGIONTYPE (\TEDIT.REGIONTYPE CURSEL TEXTOBJ))
|
||||
eachtime (BLOCK) (* ; "Give other processes a chance")
|
||||
(GETMOUSESTATE) (* ;
|
||||
"And get the new mouse and key info")
|
||||
(\TEDIT.CURSORMOVEDFN PANE)
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION READONLY CUROPERATION))
|
||||
(FSETTOBJ TEXTOBJ SECONDARYSEL CURSEL)
|
||||
(\TEDIT.CURSORMOVEDFN PANE)
|
||||
(SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION READONLY CUROPERATION))
|
||||
(FSETTOBJ TEXTOBJ SECONDARYSEL CURSEL)
|
||||
|
||||
(* ;; "We're done if keys and buttons are up")
|
||||
(* ;; "We're done if keys and buttons are up")
|
||||
until (AND (EQ NEWOPERATION 'NORMAL)
|
||||
(ALLBUTTONSUP)) unless (AND (IEQP OLDX (SETQ X (LASTMOUSEX DS)))
|
||||
(IEQP OLDY (SETQ Y (LASTMOUSEY DS)))
|
||||
(EQ CUROPERATION NEWOPERATION))
|
||||
do (CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
|
||||
X Y) (* ;
|
||||
"Left the window, stay in the loop if scrolling")
|
||||
(CL:UNLESS (IN/SCROLL/BAR? PANE LASTMOUSEX LASTMOUSEY)
|
||||
(RETURN))
|
||||
(SCROLL.HANDLER PANE))
|
||||
do (CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
|
||||
X Y) (* ;
|
||||
"Left the window, relinquish control until a button click or cursor comes back in")
|
||||
(RETURN))
|
||||
|
||||
(* ;; "")
|
||||
(* ;; "")
|
||||
|
||||
(* ;; "Polling loop, track the mouse until the buttons and modifier keys come up, i.e. NORMAL Nothing to do until the mouse moves or the operation changes. .")
|
||||
(* ;; "Polling loop, track the mouse until the buttons and modifier keys come up, i.e. NORMAL Nothing to do until the mouse moves or the operation changes. .")
|
||||
|
||||
(* ;; "First and always: CURSEL is ON at this point and matches the display. NEWSEL may not be well-defined.")
|
||||
(* ;; "First and always: CURSEL is ON at this point and matches the display. NEWSEL may not be well-defined.")
|
||||
|
||||
(* ;; "Ready to track the selection.")
|
||||
(* ;; "Ready to track the selection.")
|
||||
|
||||
(SETQ OLDX X)
|
||||
(SETQ OLDY Y)
|
||||
(CL:UNLESS (EQ NEWOPERATION CUROPERATION) (* ; "Keys changed ")
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL) (* ; "Switch to new highlighting")
|
||||
(\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION)
|
||||
(\TEDIT.SET.SEL.LOOKS NEWSEL NEWOPERATION)
|
||||
(CL:WHEN (EQ NEWOPERATION 'NORMAL)
|
||||
(SETQ OLDX X)
|
||||
(SETQ OLDY Y)
|
||||
(CL:UNLESS (EQ NEWOPERATION CUROPERATION) (* ; "Keys changed ")
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL) (* ; "Switch to new highlighting")
|
||||
(\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION)
|
||||
(\TEDIT.SET.SEL.LOOKS NEWSEL NEWOPERATION)
|
||||
(CL:WHEN (EQ NEWOPERATION 'NORMAL)
|
||||
|
||||
(* ;; "Switching from e.g. COPY to NORMAL with button down. Since we didn't start out NORMAL, the original normal selection is still on the screen. We take it down here, and establish the current (off) CURSEL as the new restoration selection")
|
||||
(* ;; "Switching from e.g. COPY to NORMAL with button down. Since we didn't start out NORMAL, the original normal selection is still on the screen. We take it down here, and establish the current (off) CURSEL as the new restoration selection")
|
||||
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(\TEDIT.COPYSEL CURSEL (TEXTSEL TEXTOBJ)))
|
||||
(\TEDIT.SEL.ON TSTREAM CURSEL)
|
||||
(SETQ CUROPERATION NEWOPERATION))
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(\TEDIT.COPYSEL CURSEL (TEXTSEL TEXTOBJ)))
|
||||
(\TEDIT.SEL.ON TSTREAM CURSEL)
|
||||
(SETQ CUROPERATION NEWOPERATION))
|
||||
|
||||
(* ;; "Update NEWSEL each time around. Note that \TEDIT.XYTOSEL fixes but doesn't show the selection, we do that here. MOUSEREGION is set by \TEDITCURSORMOVEDFN, below.")
|
||||
(* ;; "Update NEWSEL each time around. Note that \TEDIT.XYTOSEL fixes but doesn't show the selection, we do that here. MOUSEREGION is set by \TEDITCURSORMOVEDFN, below.")
|
||||
|
||||
(if (\TEDIT.MOUSESTATE RIGHT)
|
||||
then (* ;
|
||||
(if (\TEDIT.MOUSESTATE RIGHT)
|
||||
then (* ;
|
||||
"Right button: NEWSEL extends last CURSEL")
|
||||
(\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL)
|
||||
(CL:WHEN (FGETSEL NEWSEL SET)
|
||||
(CL:WHEN (AND TEDIT.EXTEND.PENDING.DELETE (NOT PENDINGDEL)
|
||||
(EQ CUROPERATION 'NORMAL)
|
||||
(NOT (FGETTOBJ TEXTOBJ TXTREADONLY)))
|
||||
(\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL REGIONTYPE)
|
||||
(CL:WHEN (FGETSEL NEWSEL SET)
|
||||
(CL:WHEN (AND TEDIT.EXTEND.PENDING.DELETE (NOT PENDINGDEL)
|
||||
(EQ CUROPERATION 'NORMAL)
|
||||
(NOT (FGETTOBJ TEXTOBJ TXTREADONLY)))
|
||||
|
||||
(* ;; "Switch to simulation of Laurel bluependingdelete: Black, deletes on type-in. Coerce CURSEL and display for pending looks. Otherwise, CURSEL is already BPD and stays on to avoid flicker in extending")
|
||||
(* ;; "Switch to simulation of Laurel bluependingdelete: Black, deletes on type-in. Coerce CURSEL and display for pending looks. Otherwise, CURSEL is already BPD and stays on to avoid flicker in extending")
|
||||
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(* ;
|
||||
"Take down old looks, change, re-show")
|
||||
(\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL)
|
||||
(\TEDIT.SET.SEL.LOOKS NEWSEL 'PENDINGDEL)
|
||||
(\TEDIT.SEL.ON TSTREAM CURSEL)
|
||||
(SETQ PENDINGDEL T))
|
||||
[\TEDIT.EXTEND.SEL NEWSEL CURSEL TSTREAM (MEMB CUROPERATION
|
||||
'(COPY COPYLOOKS])
|
||||
(\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL)
|
||||
(\TEDIT.SET.SEL.LOOKS NEWSEL 'PENDINGDEL)
|
||||
(\TEDIT.SEL.ON TSTREAM CURSEL)
|
||||
(SETQ PENDINGDEL T))
|
||||
[\TEDIT.EXTEND.SEL NEWSEL CURSEL TSTREAM (MEMB CUROPERATION
|
||||
'(COPY COPYLOOKS])
|
||||
(* ; "No valid selection, go to cleanup")
|
||||
else (if (\TEDIT.MOUSESTATE LEFT)
|
||||
then (* ; "Left selects char/point. ")
|
||||
(\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL)
|
||||
elseif (\TEDIT.MOUSESTATE MIDDLE)
|
||||
then (* ; "Middle selects word/line")
|
||||
(\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL
|
||||
))
|
||||
(CL:WHEN (AND (FGETSEL NEWSEL SET)
|
||||
(\TEDIT.SEL.CHANGED? NEWSEL CURSEL)
|
||||
(OR (NOT (ALLBUTTONSUP))
|
||||
(FGETSEL NEWSEL SELOBJ)))
|
||||
else (if (\TEDIT.MOUSESTATE LEFT)
|
||||
then (* ; "Left selects char/point. ")
|
||||
(\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL
|
||||
REGIONTYPE)
|
||||
elseif (\TEDIT.MOUSESTATE MIDDLE)
|
||||
then (* ; "Middle selects word/line")
|
||||
(\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL
|
||||
REGIONTYPE))
|
||||
(CL:WHEN (AND (FGETSEL NEWSEL SET)
|
||||
(\TEDIT.SEL.CHANGED? NEWSEL CURSEL)
|
||||
(OR (NOT (ALLBUTTONSUP))
|
||||
(FGETSEL NEWSEL SELOBJ)))
|
||||
|
||||
(* ;; "Selection has changed while at least one button is down. Take down current CURSEL highlighting, switch to NEWSEL. If the mouse condition is removed, the secondary selection can be lost if the mouse moves while the operation keys are still down. But if the copy isn't done when NEWSEL picks out an object, the object will be lost. ")
|
||||
(* ;; "Selection has changed while at least one button is down. Take down current CURSEL highlighting, switch to NEWSEL. If the mouse condition is removed, the secondary selection can be lost if the mouse moves while the operation keys are still down. But if the copy isn't done when NEWSEL picks out an object, the object will be lost. ")
|
||||
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(\TEDIT.COPYSEL NEWSEL CURSEL)
|
||||
(\TEDIT.SEL.ON TSTREAM CURSEL)))
|
||||
(\TEDIT.SEL.OFF TSTREAM CURSEL)
|
||||
(\TEDIT.COPYSEL NEWSEL CURSEL)
|
||||
(\TEDIT.SEL.ON TSTREAM CURSEL)))
|
||||
|
||||
(* ;; "CURSEL now matches the display and CUROPERATION.")
|
||||
(* ;; "CURSEL now matches the display and CUROPERATION.")
|
||||
finally
|
||||
|
||||
(* ;; "Out of Polling loop")
|
||||
@@ -1383,7 +1376,7 @@
|
||||
'NORMAL) (* ; "Restore TEXTSEL")
|
||||
(\TEDIT.SEL.ON TSTREAM)
|
||||
(RETURN))
|
||||
(\TEDIT.BUTTONEVENTFN.DOOPERATION CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC))))])
|
||||
(\TEDIT.BUTTONEVENTFN.DOOPERATION CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC)))])
|
||||
|
||||
(\TEDIT.BUTTONEVENTFN.DOOPERATION
|
||||
[LAMBDA (CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC)
|
||||
@@ -3731,28 +3724,28 @@
|
||||
(\TEDIT.MAINW 55995 . 57275) (\TEDIT.MAINSTREAM 57277 . 57611) (\TEDIT.PRIMARYPANE 57613 . 58383) (
|
||||
\TEDIT.PANELIST 58385 . 58881) (\TEDIT.NEWREGIONFN 58883 . 61399) (\TEDIT.SET.WINDOW.EXTENT 61401 .
|
||||
66383) (\TEDIT.SHRINK.ICONCREATE 66385 . 69118) (\TEDIT.SHRINKFN 69120 . 69529) (\TEDIT.PANEREGION
|
||||
69531 . 71745)) (71779 107168 (\TEDIT.BUTTONEVENTFN 71789 . 86760) (\TEDIT.BUTTONEVENTFN.DOOPERATION
|
||||
86762 . 94233) (\TEDIT.BUTTONEVENTFN.GETOPERATION 94235 . 96077) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
96079 . 99749) (\TEDIT.BUTTONEVENTFN.INACTIVE 99751 . 102181) (\TEDIT.BUTTONEVENTFN.INTITLE 102183 .
|
||||
104018) (\TEDIT.COPYINSERTFN 104020 . 105152) (\TEDIT.FOREIGN.COPY 105154 . 107166)) (107169 124732 (
|
||||
\TEDIT.PANE.SPLIT 107179 . 111127) (\TEDIT.SPLITW 111129 . 119188) (\TEDIT.UNSPLITW 119190 . 123389) (
|
||||
\TEDIT.LINKPANES 123391 . 124154) (\TEDIT.UNLINKPANE 124156 . 124730)) (126166 127057 (TEDITWINDOWP
|
||||
126176 . 127055)) (127094 130197 (TEDIT.GETINPUT 127104 . 129547) (\TEDIT.MAKEFILENAME 129549 . 130195
|
||||
)) (130246 138329 (TEDIT.PROMPTWINDOW 130256 . 130570) (TEDIT.PROMPTPRINT 130572 . 133539) (
|
||||
TEDIT.PROMPTCLEAR 133541 . 135376) (TEDIT.PROMPTFLASH 135378 . 136636) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
136638 . 138327)) (138567 149145 (\TEDIT.FILENAME 138577 . 139349) (\TEDIT.DEFAULT.TITLE 139351 .
|
||||
141730) (\TEDIT.WINDOW.TITLE 141732 . 143901) (\TEDIT.LIKELY.FILENAME 143903 . 146627) (
|
||||
\TEDIT.UPDATE.TITLE 146629 . 149143)) (149188 161980 (TEDIT.DEACTIVATE.WINDOW 149198 . 155014) (
|
||||
\TEDIT.RESHAPEFN 155016 . 157101) (\TEDIT.REPAINTFN 157103 . 157327) (\TEDIT.CLOSESPLITS 157329 .
|
||||
159774) (\TEDIT.CLOSEPANE 159776 . 161978)) (161981 204780 (\TEDIT.SCROLLFN 161991 . 164222) (
|
||||
\TEDIT.SCROLLCH.TOP 164224 . 166335) (\TEDIT.SCROLLCH.BOTTOM 166337 . 170667) (\TEDIT.SCROLLUP 170669
|
||||
. 176395) (\TEDIT.TOPLINE.YTOP 176397 . 178066) (\TEDIT.SCROLLDOWN 178068 . 185107) (
|
||||
\TEDIT.SCROLL.CARET 185109 . 187947) (\TEDIT.VISIBLECARETP 187949 . 190243) (\TEDIT.VISIBLECHARP
|
||||
190245 . 191336) (\TEDIT.BITMAPLINES 191338 . 195258) (\TEDIT.SETPANE.TOPLINE 195260 . 195872) (
|
||||
\TEDIT.SHIFTLINES 195874 . 204778)) (204781 215650 (\TEDIT.ONSCREEN? 204791 . 209342) (
|
||||
\TEDIT.ONSCREEN.REGION 209344 . 212995) (\TEDIT.AFTERMOVEFN 212997 . 213894) (OFFSCREENP 213896 .
|
||||
215648)) (215692 218506 (\TEDIT.PROCIDLEFN 215702 . 217362) (\TEDIT.PROCENTRYFN 217364 . 217809) (
|
||||
\TEDIT.PROCEXITFN 217811 . 218504)) (218585 231810 (\TEDIT.DOWNCARET 218595 . 219388) (
|
||||
\TEDIT.FLASHCARET 219390 . 221501) (\TEDIT.UPCARET 221503 . 222607) (TEDIT.NORMALIZECARET 222609 .
|
||||
225827) (\TEDIT.SETCARET 225829 . 231180) (\TEDIT.CARET 231182 . 231808)))))
|
||||
69531 . 71745)) (71779 106619 (\TEDIT.BUTTONEVENTFN 71789 . 86211) (\TEDIT.BUTTONEVENTFN.DOOPERATION
|
||||
86213 . 93684) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93686 . 95528) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT
|
||||
95530 . 99200) (\TEDIT.BUTTONEVENTFN.INACTIVE 99202 . 101632) (\TEDIT.BUTTONEVENTFN.INTITLE 101634 .
|
||||
103469) (\TEDIT.COPYINSERTFN 103471 . 104603) (\TEDIT.FOREIGN.COPY 104605 . 106617)) (106620 124183 (
|
||||
\TEDIT.PANE.SPLIT 106630 . 110578) (\TEDIT.SPLITW 110580 . 118639) (\TEDIT.UNSPLITW 118641 . 122840) (
|
||||
\TEDIT.LINKPANES 122842 . 123605) (\TEDIT.UNLINKPANE 123607 . 124181)) (125617 126508 (TEDITWINDOWP
|
||||
125627 . 126506)) (126545 129648 (TEDIT.GETINPUT 126555 . 128998) (\TEDIT.MAKEFILENAME 129000 . 129646
|
||||
)) (129697 137780 (TEDIT.PROMPTWINDOW 129707 . 130021) (TEDIT.PROMPTPRINT 130023 . 132990) (
|
||||
TEDIT.PROMPTCLEAR 132992 . 134827) (TEDIT.PROMPTFLASH 134829 . 136087) (\TEDIT.PROMPT.PAGEFULLFN
|
||||
136089 . 137778)) (138018 148596 (\TEDIT.FILENAME 138028 . 138800) (\TEDIT.DEFAULT.TITLE 138802 .
|
||||
141181) (\TEDIT.WINDOW.TITLE 141183 . 143352) (\TEDIT.LIKELY.FILENAME 143354 . 146078) (
|
||||
\TEDIT.UPDATE.TITLE 146080 . 148594)) (148639 161431 (TEDIT.DEACTIVATE.WINDOW 148649 . 154465) (
|
||||
\TEDIT.RESHAPEFN 154467 . 156552) (\TEDIT.REPAINTFN 156554 . 156778) (\TEDIT.CLOSESPLITS 156780 .
|
||||
159225) (\TEDIT.CLOSEPANE 159227 . 161429)) (161432 204231 (\TEDIT.SCROLLFN 161442 . 163673) (
|
||||
\TEDIT.SCROLLCH.TOP 163675 . 165786) (\TEDIT.SCROLLCH.BOTTOM 165788 . 170118) (\TEDIT.SCROLLUP 170120
|
||||
. 175846) (\TEDIT.TOPLINE.YTOP 175848 . 177517) (\TEDIT.SCROLLDOWN 177519 . 184558) (
|
||||
\TEDIT.SCROLL.CARET 184560 . 187398) (\TEDIT.VISIBLECARETP 187400 . 189694) (\TEDIT.VISIBLECHARP
|
||||
189696 . 190787) (\TEDIT.BITMAPLINES 190789 . 194709) (\TEDIT.SETPANE.TOPLINE 194711 . 195323) (
|
||||
\TEDIT.SHIFTLINES 195325 . 204229)) (204232 215101 (\TEDIT.ONSCREEN? 204242 . 208793) (
|
||||
\TEDIT.ONSCREEN.REGION 208795 . 212446) (\TEDIT.AFTERMOVEFN 212448 . 213345) (OFFSCREENP 213347 .
|
||||
215099)) (215143 217957 (\TEDIT.PROCIDLEFN 215153 . 216813) (\TEDIT.PROCENTRYFN 216815 . 217260) (
|
||||
\TEDIT.PROCEXITFN 217262 . 217955)) (218036 231261 (\TEDIT.DOWNCARET 218046 . 218839) (
|
||||
\TEDIT.FLASHCARET 218841 . 220952) (\TEDIT.UPCARET 220954 . 222058) (TEDIT.NORMALIZECARET 222060 .
|
||||
225278) (\TEDIT.SETCARET 225280 . 230631) (\TEDIT.CARET 230633 . 231259)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user