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

when double clicking in a comment, fall back to word-based instead

Browse Source 
of sexp-based selection

closes PR 12439

original commit: 48772f2e405a7723f40397ccdbfdf1f646f8f9c6
This commit is contained in:
Robby Findler 2011-12-12 14:44:28 -06:00
parent c3fb9f60da
commit 705bdfbc34
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1375,7 +1375,7 @@
(define token (send text classify-position click-pos)) (define token (send text classify-position click-pos))
(define-values (start end) (define-values (start end)
(cond (cond
[(equal? token 'string) (word-based)] [(memq token '(string comment)) (word-based)]
[(and (equal? token 'other) [(and (equal? token 'other)
(let-values ([(start end) (send text get-token-range click-pos)]) (let-values ([(start end) (send text get-token-range click-pos)])
(and start (and start