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

make the f2 button go find the definitions text,

Browse Source 
instead of assuming it was typed in the definitions text

closes PR 13225
This commit is contained in:
Robby Findler 2012-11-22 10:10:21 -06:00
parent d5f605f58d
commit 4f27df3179
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/drracket/private/syncheck/gui.rkt
View File

@ -2027,7 +2027,22 @@ If the namespace does not, they are colored the unbound color.
(send keymap add-function "show/hide blue boxes in upper-right corner" (send keymap add-function "show/hide blue boxes in upper-right corner"
(λ (txt evt) (λ (txt evt)
(send txt toggle-syncheck-docs))) (when (is-a? txt editor<%>)
(let loop ([ed txt])
(define c (send ed get-canvas))
(cond
[c (let loop ([w c])
(cond
[(is-a? w drracket:unit:frame<%>)
(send (send w get-definitions-text) toggle-syncheck-docs)]
[(is-a? w area<%>)
(loop (send w get-parent))]))]
[else
(define admin (send ed get-admin))
(when (is-a? admin editor-snip-editor-admin<%>)
(define admin2 (send (send admin get-snip) get-admin))
(when admin2
(loop (send admin2 get-editor))))])))))
(send keymap map-function "f2" "show/hide blue boxes in upper-right corner")) (send keymap map-function "f2" "show/hide blue boxes in upper-right corner"))
;; find-syncheck-text : text% -> (union #f (is-a?/c syncheck-text<%>)) ;; find-syncheck-text : text% -> (union #f (is-a?/c syncheck-text<%>))