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

..

Browse Source 
original commit: 6b84101c1f7996bd678cb93f4cc250d948bbe8a5
This commit is contained in:
Robby Findler 2002-10-10 15:21:42 +00:00
parent 8abd37d194
commit 85561947ca
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1404,7 +1404,8 @@
[close
(lambda ()
(send to-be-searched-canvas force-display-focus #f)
(when to-be-searched-canvas
(send to-be-searched-canvas force-display-focus #f))
(send dialog show #f))]
[close-button (make-object button% (string-constant close) button-panel
@ -1450,7 +1451,8 @@
(send f-text set-position 0 (send f-text last-position))
(send button-panel set-alignment 'right 'center)
(send dialog center 'both)
(send to-be-searched-canvas force-display-focus #t)
(when to-be-searched-canvas
(send to-be-searched-canvas force-display-focus #t))
(send dialog show #t)
(remove-pref-callback)))))
@ -1763,8 +1765,9 @@
(clear-search-highlight)
(unless startup?
(let ([canvas (send (get-text-to-search) get-canvas)])
(send canvas force-display-focus #f)
(send canvas focus)))
(when canvas
(send canvas force-display-focus #f)
(send canvas focus))))
(set! hidden? #t)))
(define/public (unhide-search)