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

ui.tools.browser: using format-toolbar

db4
nicolas-p 2015-07-24 16:23:41 +02:00 committed by John Benediktsson
parent 359b42ab15
commit 844da3fdfd
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/toolbar/toolbar.factor
View File

@ -18,7 +18,7 @@ IN: ui.gadgets.toolbar
: format-toolbar ( toolbar -- toolbar )
{ 3 3 } <border>
toolbar-background <solid> >>interior
align-left ;
{ 1 0 } >>fill ;
: add-toolbar ( track -- track )
dup <toolbar> format-toolbar f track-add ;

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

@ -67,9 +67,7 @@ M: browser-gadget set-history-value
swap search-field>> " Search" label-on-left 1 track-add ;
: add-browser-toolbar ( track -- track )
dup <browser-toolbar> { 3 3 } <border>
toolbar-background <solid> >>interior { 1 0 } >>fill
f track-add ;
dup <browser-toolbar> format-toolbar f track-add ;
: <browser-gadget> ( link -- gadget )
vertical browser-gadget new-track with-lines