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

show-browser command now just switches to an existing browser instead of pointing it at the documentation front page

db4
Slava Pestov 2009-03-07 21:35:44 -06:00
parent c28370d356
commit dfb55736c5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,7 +86,9 @@ M: browser-gadget focusable-child* search-field>> ;
[ [ raise-window ] [ gadget-child show-help ] bi ]
[ (browser-window) ] if* ;
: show-browser ( -- ) "handbook" com-browse ;
: show-browser ( -- )
[ browser-gadget? ] find-window
[ raise-window ] [ browser-window ] if* ;
\ show-browser H{ { +nullary+ t } } define-command