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

fix bug in searching (start from the correct editor)

Browse Source
This commit is contained in:
Robby Findler 2016-07-24 03:40:41 -05:00
parent e293d24da7
commit feaff67418
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gui-lib/framework/private/frame.rkt
View File

@ -2053,10 +2053,13 @@
(let* ([string (get-text)] (let* ([string (get-text)]
[top-searching-edit (get-searching-text)]) [top-searching-edit (get-searching-text)])
(when top-searching-edit (when top-searching-edit
(let ([searching-edit (let ([focus-snip (send top-searching-edit get-focus-snip)]) (let ([searching-edit
(if (and focus-snip (is-a? focus-snip editor-snip%)) (let loop ([txt top-searching-edit])
(send focus-snip get-editor) (define focus-snip (send txt get-focus-snip))
top-searching-edit))] (cond
[(and focus-snip (is-a? focus-snip editor-snip%))
(loop (send focus-snip get-editor))]
[else txt]))]
[not-found [not-found
(λ (found-edit skip-beep?) (λ (found-edit skip-beep?)