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

fixed a bug in searching; typing control-g without opening the search window crashes

Browse Source 
svn: r10977

original commit: ff8578ca1396d85c4683c4316314bb755cc324dd
This commit is contained in:
Robby Findler 2008-07-29 23:00:02 +00:00
parent e092bdbbc5
commit 349fd64bbe
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2080,14 +2080,14 @@
(when search-gui-built? (when search-gui-built?
(send super-root change-children (send super-root change-children
(λ (l) (λ (l)
(remove search/replace-panel l)))) (remove search/replace-panel l)))
(clear-search-highlight) (clear-search-highlight)
(send find-edit text-to-search-changed text-to-search #f) (send find-edit text-to-search-changed text-to-search #f)
(when text-to-search (when text-to-search
(send text-to-search set-search-anchor #f) (send text-to-search set-search-anchor #f)
(let ([canvas (send text-to-search get-canvas)]) (let ([canvas (send text-to-search get-canvas)])
(when canvas (when canvas
(send canvas focus)))) (send canvas focus)))))
(set! hidden? #t)) (set! hidden? #t))
(define/public (unhide-search focus?) (define/public (unhide-search focus?)

6
collects/framework/private/text.ss
View File

@ -944,8 +944,10 @@ WARNING: printf is rebound in the body of the unit to always
(define delegate-mixin (define delegate-mixin
(mixin (basic<%>) (delegate<%>) (mixin (basic<%>) (delegate<%>)
(inherit split-snip find-snip get-snip-position (inherit split-snip find-snip
find-first-snip get-style-list set-tabs) get-snip-position
find-first-snip
get-style-list set-tabs)
(define linked-snips #f) (define linked-snips #f)