You could write a little loop to keep the functions in the keymap and remove all the keybindings and then add back in the bindings you wanted. That way you could avoid duplicating code?
Robby On Sat, Apr 9, 2016 at 8:32 AM, mazert <rom...@elgeekador.net> wrote: > 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 racket-users+unsubscr...@googlegroups.com. > For more options, visit https://groups.google.com/d/optout. -- 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 racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
