steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Browser tool: don't search for empty string

db4
Slava Pestov 2009-01-08 17:50:38 -06:00
parent 270967fb93
commit 9ea76e3808
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/tools/browser/browser.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: debugger help help.topics kernel models compiler.units USING: debugger help help.topics kernel models compiler.units
assocs words vocabs accessors fry combinators.short-circuit assocs words vocabs accessors fry combinators.short-circuit
models models.history tools.apropos sequences models models.history tools.apropos
ui.commands ui.gadgets ui.gadgets.panes ui.gadgets.scrollers ui.commands ui.gadgets ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.tracks ui.gestures ui.gadgets.buttons ui.gadgets.packs ui.gadgets.tracks ui.gestures ui.gadgets.buttons ui.gadgets.packs
ui.gadgets.editors ui.gadgets.labels ui.gadgets.status-bar ui.gadgets.editors ui.gadgets.labels ui.gadgets.status-bar
@ -19,7 +19,7 @@ TUPLE: browser-gadget < track pane scroller search-field ;
model>> [ '[ _ print-topic ] try ] <pane-control> ; model>> [ '[ _ print-topic ] try ] <pane-control> ;
: search-browser ( string browser -- ) : search-browser ( string browser -- )
[ <apropos> ] dip show-help ; '[ <apropos> _ show-help ] unless-empty ;
: <search-field> ( browser -- field ) : <search-field> ( browser -- field )
'[ _ search-browser ] <action-field> '[ _ search-browser ] <action-field>