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

improve the double-click-on-word behavior for scribble (generally when

Browse Source 
double clicking inside a string) and when clicking on close
parentheses (specifically, only special case close parens that are
actually parentheses according to the colorer, rather than special
casing all close parens).

original commit: 082978effea79f2689b9377f1e8d7da795c1b8ee
This commit is contained in:
Robby Findler 2011-11-30 15:57:42 -06:00
parent ff6fa2736c
commit 95edc28dd8
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
collects/framework/private/racket.rkt
View File

@ -1367,31 +1367,31 @@
(keymap:region-click
text event
(λ (click-pos eol?)
(define str1 (string (send text get-character click-pos)))
(define sexp-based-start/end
(define (word-based)
(define start-box (box click-pos))
(define end-box (box click-pos))
(send text find-wordbreak start-box end-box 'selection)
(values (unbox start-box) (unbox end-box)))
(define token (send text classify-position click-pos))
(define-values (start end)
(cond
[(ormap (λ (pr) (equal? (cdr pr) str1))
(racket-paren:get-paren-pairs))
[(equal? token 'string) (word-based)]
[(and (equal? token 'parenthesis)
(ormap (λ (pr) (equal? (cdr pr) (string (send text get-character click-pos))))
(racket-paren:get-paren-pairs)))
(define start (send text get-backward-sexp (+ click-pos 1)))
(and start
(cons start (+ click-pos 1)))]
(if start
(values start (+ click-pos 1))
(word-based))]
[else
(let ([end (send text get-forward-sexp click-pos)])
(and end
(let ([beginning (send text get-backward-sexp end)])
(and beginning
(cons beginning end)))))]))
(cond
[sexp-based-start/end
(send text set-position
(car sexp-based-start/end)
(cdr sexp-based-start/end))]
[else
(define start-box (box click-pos))
(define end-box (box click-pos))
(send text find-wordbreak start-box end-box 'selection)
(send text set-position (unbox start-box) (unbox end-box))])))))
(if end
(let ([beginning (send text get-backward-sexp end)])
(if beginning
(values beginning end)
(word-based)))
(word-based)))]))
(send text set-position start end)))))
(let ([add/map-non-clever
(λ (name keystroke char)