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 ; 2bi ;
: <url-field> ( gopher-gadget -- field ) : <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 ) : <gopher-pane> ( gopher-gadget -- gadget )
model>> [ '[ _ [ gopher. ] when* ] try ] <pane-control> ; model>> [ '[ _ [ gopher. ] when* ] try ] <pane-control> ;
@ -51,14 +53,20 @@ M: gopher-gadget model-changed
over <toolbar> f track-add over <toolbar> f track-add
swap url-field>> 1 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 ) : <gopher-gadget> ( -- gadget )
vertical gopher-gadget new-track vertical gopher-gadget new-track with-lines
f <model> >>model f <model> >>model
dup <history> >>history dup <history> >>history
dup <url-field> >>url-field dup <url-field> >>url-field
dup <gopher-toolbar> { 3 3 } <border> { 1 0 } >>fill f track-add add-gopher-toolbar
dup <gopher-pane> { 3 3 } <border> { 1 1 } >>fill add-gopher-pane ;
<scroller> [ >>scroller ] [ 1 track-add ] bi ;
: open-gopher-window ( url -- ) : open-gopher-window ( url -- )
<gopher-gadget> <gopher-gadget>