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

ui.tools.browser: Refactor to not use 'g' and 'g->'

db4
Eduardo Cavazos 2008-07-14 00:06:15 -05:00
parent 4daa358f40
commit f48efe0540
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/ui/tools/browser/browser.factor
View File

@ -20,13 +20,11 @@ TUPLE: browser-gadget < track pane history ;
"handbook" >link <history> >>history drop ; "handbook" >link <history> >>history drop ;
: <browser-gadget> ( -- gadget ) : <browser-gadget> ( -- gadget )
{ 0 1 } browser-gadget new-track { 0 1 } browser-gadget new-track
dup init-history dup init-history
[ dup <toolbar> f track-add*
toolbar, dup <help-pane> >>pane
g <help-pane> g-> set-browser-gadget-pane dup pane>> <scroller> 1 track-add* ;
<scroller> 1 track,
] make-gadget ;
M: browser-gadget call-tool* show-help ; M: browser-gadget call-tool* show-help ;