suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 88d4086a1b82773056ea56a6d404f10e5e37a9ba
This commit is contained in:
Robby Findler 1999-09-14 19:09:08 +00:00
parent ae5c918691
commit b0c889f961
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/keymap.ss
View File

@ -200,7 +200,10 @@
(lambda (edit event) (lambda (edit event)
(let ([sel-start (send edit get-start-position)] (let ([sel-start (send edit get-start-position)]
[sel-end (send edit get-end-position)]) [sel-end (send edit get-end-position)])
(when (= sel-start sel-end) (when (and (= sel-start sel-end)
(not (= sel-start 0))
(not (= sel-start (send edit last-position))))
(let ([sel-start (let ([sel-start
(if (= sel-start (if (= sel-start
(send edit line-end-position (send edit line-end-position
@ -392,7 +395,7 @@
[else [else
(message-box (message-box
"Goto Line" "Goto Line"
(format "~a is not an integer between 1 and ~a" (format "~a is not a valid line number. It must be an integer between 1 and ~a"
num-str num-str
(+ (send edit last-line) 1)))])))) (+ (send edit last-line) 1)))]))))