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

use the info-frame's idea of which editor is important for the

Browse Source 
goto-line shortcut
This commit is contained in:
Robby Findler 2015-05-12 11:24:54 -05:00
parent d1e3a991cd
commit 6dcdb9744f
1 changed files with 32 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui-lib/framework/private/keymap.rkt
View File

@ -352,7 +352,17 @@
(define (setup-global kmap #:alt-as-meta-keymap [alt-as-meta-keymap #f]) (define (setup-global kmap #:alt-as-meta-keymap [alt-as-meta-keymap #f])
(keymap:setup-global kmap #:alt-as-meta-keymap alt-as-meta-keymap) (keymap:setup-global kmap #:alt-as-meta-keymap alt-as-meta-keymap)
(define (goto-line edit event) (define (goto-line keystroke-edit event)
(define keystroke-frame
(and (is-a? keystroke-edit editor:basic<%>)
(send keystroke-edit get-top-level-window)))
(define edit
(cond
[(is-a? keystroke-frame frame:info<%>)
(send keystroke-frame get-info-editor)]
[(is-a? keystroke-edit text%) keystroke-edit]
[else #f]))
(when edit
(define num-str (define num-str
(call/text-keymap-initializer (call/text-keymap-initializer
(λ () (λ ()
@ -374,7 +384,7 @@
(format (format
(string-constant goto-line-invalid-number) (string-constant goto-line-invalid-number)
num-str num-str
(+ (send edit last-line) 1)))])) (+ (send edit last-line) 1)))])))
#t) #t)
(let ([add-m (λ (name func) (let ([add-m (λ (name func)