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

gopher-ui: better looking toolbars.

char-rename
John Benediktsson 2016-10-26 15:42:44 -07:00
parent 77d8475228
commit 68b3e4613b
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/gopher-ui/gopher-ui.factor
View File

@ -38,7 +38,9 @@ M: gopher-gadget model-changed
2bi ;
: <url-field> ( gopher-gadget -- field )
'[ >url _ show-gopher ] <action-field> ;
'[ >url _ show-gopher ] <action-field>
"Gopher URL" >>default-text
white-interior ;
: <gopher-pane> ( gopher-gadget -- gadget )
model>> [ '[ _ [ gopher. ] when* ] try ] <pane-control> ;
@ -51,14 +53,20 @@ M: gopher-gadget model-changed
over <toolbar> f track-add
swap url-field>> 1 track-add ;
: add-gopher-toolbar ( track -- track )
dup <gopher-toolbar> format-toolbar f track-add ;
: add-gopher-pane ( track -- track )
dup dup <gopher-pane> margins
<scroller> >>scroller scroller>> white-interior 1 track-add ;
: <gopher-gadget> ( -- gadget )
vertical gopher-gadget new-track
vertical gopher-gadget new-track with-lines
f <model> >>model
dup <history> >>history
dup <url-field> >>url-field
dup <gopher-toolbar> { 3 3 } <border> { 1 0 } >>fill f track-add
dup <gopher-pane> { 3 3 } <border> { 1 1 } >>fill
<scroller> [ >>scroller ] [ 1 track-add ] bi ;
add-gopher-toolbar
add-gopher-pane ;
: open-gopher-window ( url -- )
<gopher-gadget>