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

Small adjustments in browser toolbar

db4
nicolas-p 2015-07-25 15:10:04 +02:00 committed by John Benediktsson
parent c0e253a4a5
commit 32ae5da655
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,7 +7,7 @@ kernel models sequences sets ui ui.commands ui.gadgets
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.colors ui.gadgets.editors ui.gadgets.borders ui.gadgets.buttons ui.gadgets.colors ui.gadgets.editors
ui.gadgets.glass ui.gadgets.labels ui.gadgets.panes ui.gadgets.glass ui.gadgets.labels ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.tracks ui.gadgets.toolbar ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.tracks ui.gadgets.toolbar
ui.gadgets.viewports ui.gadgets.worlds ui.gestures ui.gadgets.packs ui.gadgets.viewports ui.gadgets.worlds ui.gestures
ui.tools.browser.history ui.tools.browser.popups ui.tools.common ui.tools.browser.history ui.tools.browser.popups ui.tools.common
ui.pens.solid vocabs ; ui.pens.solid vocabs ;
IN: ui.tools.browser IN: ui.tools.browser
@ -80,7 +80,9 @@ M: browser-gadget set-history-value
1/2 >>align 1/2 >>align
{ 5 5 } >>gap { 5 5 } >>gap
over <toolbar> f track-add over <toolbar> f track-add
swap search-field>> " Search" label-on-left 1 track-add ; <pile> { 10 0 } <border> f track-add
swap search-field>> "Search" label-on-left 1 track-add
<pile> f track-add ;
: add-browser-toolbar ( track -- track ) : add-browser-toolbar ( track -- track )
dup <browser-toolbar> format-toolbar f track-add ; dup <browser-toolbar> format-toolbar f track-add ;