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

guard call

Browse Source
This commit is contained in:
Robby Findler 2015-12-15 13:12:55 -06:00
parent 46eb5ae3aa
commit debd229668
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2382,11 +2382,12 @@
(define/public-final (search-string-changed) (search-parameters-changed))
(define/private (search-parameters-changed)
(let ([str (send find-edit get-text)])
(send text-to-search set-searching-state
(if (equal? str "") #f str)
case-sensitive-search?
replace-visible?
#t)))
(when text-to-search
(send text-to-search set-searching-state
(if (equal? str "") #f str)
case-sensitive-search?
replace-visible?
#t))))
(define/public (search-hidden?) hidden?)