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

no message

Browse Source 
original commit: 64aa10a18ebd3b762d3ca9d83bb6dc7289a0e895
This commit is contained in:
Robby Findler 2001-08-02 15:43:56 +00:00
parent 088212d957
commit dbf287df47
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1162,13 +1162,13 @@
(reset-search-anchor (get-searching-edit))))) (reset-search-anchor (get-searching-edit)))))
(super-on-focus on?))] (super-on-focus on?))]
[after-insert [after-insert
(lambda () (lambda (x y)
(super-after-insert) (super-after-insert x y)
(unless dont-search (unless dont-search
(search #f)))] (search #f)))]
[after-delete [after-delete
(lambda () (lambda (x y)
(super-after-delete) (super-after-delete x y)
(unless dont-search (unless dont-search
(search #f)))]) (search #f)))])
(sequence (apply super-init args)))) (sequence (apply super-init args))))