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

...

Browse Source 
original commit: 7c0671febcfa6804da03d95c21f068a56883320c
This commit is contained in:
Robby Findler 1999-05-18 23:00:34 +00:00
parent b2a7f8490e
commit 10b6940634
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/frame.ss
View File

@ -639,6 +639,7 @@
[unhide-search
(lambda ()
(when hidden?
(set! hidden? #f)
(send search-panel focus)
(send super-root add-child search-panel)
@ -730,7 +731,6 @@
(send find-canvas focus)))]
[search
(opt-lambda ([direction searching-direction] [beep? #t])
(send find-edit set-searching-frame this)
(unhide-search)
(set-search-direction direction)