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

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

@ -352,29 +352,39 @@
(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)
(define (goto-line edit event)
(define num-str
(call/text-keymap-initializer
(λ ()
(get-text-from-user
(string-constant goto-line)
(string-constant goto-line)))))
(when (string? num-str)
(define possible-num (string->number num-str))
(define line-num (and possible-num (inexact->exact possible-num)))
(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
[(and (number? line-num)
(integer? line-num)
(<= 1 line-num (+ (send edit last-paragraph) 1)))
(define pos (send edit paragraph-start-position (sub1 line-num)))
(send edit set-position pos)]
[else
(message-box
(string-constant goto-line)
(format
(string-constant goto-line-invalid-number)
num-str
(+ (send edit last-line) 1)))]))
[(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
(call/text-keymap-initializer
(λ ()
(get-text-from-user
(string-constant goto-line)
(string-constant goto-line)))))
(when (string? num-str)
(define possible-num (string->number num-str))
(define line-num (and possible-num (inexact->exact possible-num)))
(cond
[(and (number? line-num)
(integer? line-num)
(<= 1 line-num (+ (send edit last-paragraph) 1)))
(define pos (send edit paragraph-start-position (sub1 line-num)))
(send edit set-position pos)]
[else
(message-box
(string-constant goto-line)
(format
(string-constant goto-line-invalid-number)
num-str
(+ (send edit last-line) 1)))])))
#t)
(let ([add-m (λ (name func)