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

fixed tab handling for docked mode

Browse Source 
svn: r10390
This commit is contained in:
Robby Findler 2008-06-20 13:26:55 +00:00
parent 0c23336cbf
commit b8edbf8336
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/framework/private/frame.ss
View File

@ -2058,6 +2058,8 @@
(unless dont-search (unless dont-search
(search #f)) (search #f))
(inner (void) after-delete x y)) (inner (void) after-delete x y))
(define/override (get-keymaps)
(cons search/replace-keymap (super get-keymaps)))
(super-new) (super-new)
(inherit set-styles-fixed) (inherit set-styles-fixed)
(set-styles-fixed #t))) (set-styles-fixed #t)))
@ -2066,8 +2068,25 @@
(class text:keymap% (class text:keymap%
(inherit set-styles-fixed) (inherit set-styles-fixed)
(super-new) (super-new)
(define/override (get-keymaps)
(cons search/replace-keymap (super get-keymaps)))
(set-styles-fixed #t))) (set-styles-fixed #t)))
(define search/replace-keymap (new keymap%))
(send search/replace-keymap add-function
"jump-between-search/replace"
(λ (txt evt)
(let ([new-editor
(cond
[(eq? txt find-edit) replace-edit]
[(eq? txt replace-edit) find-edit]
[else #f])])
(when new-editor
(let ([canvas (send new-editor get-canvas)])
(when canvas
(send canvas focus)))))))
(send search/replace-keymap map-function "tab" "jump-between-search/replace")
(define find-edit #f) (define find-edit #f)
(define replace-edit #f) (define replace-edit #f)