Le 09/04/2016 15:15, Robby Findler a écrit :
Does this code help?
It works, but the problem is there is no ways to choose which funcs I
want to include in a keymap, I must include them all :, and I don't want
emacs or open/save file keybindings...
I finally took some codes from the link i've posted, to only add
one-word-selection. I think these keymaps should be included by default
in text% objects (framework:get-editor and mouse selections).
However my problem is now fixed, thanks you and Matthew Flatt.
-------------------
(define textField%
(class text-field%
(super-new)
(define keymap (keymap:get-editor))
;; Useful mouse functions
(define (region-click edit event f)
(when (and (send event button-down?)
(is-a? edit text%))
(let ([x-box (box (send event get-x))]
[y-box (box (send event get-y))]
[eol-box (box #f)])
(send edit global-to-local x-box y-box)
(let ([click-pos (send edit find-position
(unbox x-box)
(unbox y-box)
eol-box)]
[start-pos (send edit get-start-position)]
[end-pos (send edit get-end-position)])
(let ([eol (unbox eol-box)])
(if (< start-pos click-pos)
(f click-pos eol start-pos click-pos)
(f click-pos eol click-pos end-pos)))))))
(define (select-click-word edit event)
(region-click edit event
(lambda (click eol start end)
(let ([start-box (box click)]
[end-box (box click)])
(send edit find-wordbreak
start-box
end-box
'selection)
(send edit set-position
(unbox start-box)
(unbox end-box))))))
(define (select-all edit event)
(send edit select-all))
(keymap:setup-editor keymap)
;; Adding functions to keymap object
(send keymap add-function "select-click-word" select-click-word)
(send keymap map-function "leftbuttondouble" "select-click-word")
(send keymap add-function "select-all" select-all)
(send keymap map-function "leftbuttontriple" "select-all")
(send (send this get-editor) set-keymap keymap)))
--
You received this message because you are subscribed to the Google Groups "Racket
Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
