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

Update code in extra to use 'grid-add'

db4
Eduardo Cavazos 2008-07-25 12:34:41 -05:00
parent de3b36fb6b
commit ddbab9cdd2
5 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/automata/ui/ui.factor
View File

@ -72,13 +72,13 @@ DEFER: automata-window
"5 - Random Rule" [ random-rule ] view-button add-gadget "5 - Random Rule" [ random-rule ] view-button add-gadget
"n - New" [ automata-window ] view-button add-gadget "n - New" [ automata-window ] view-button add-gadget
@top grid-add* @top grid-add
C[ display ] <slate> C[ display ] <slate>
{ 400 400 } >>pdim { 400 400 } >>pdim
dup >slate dup >slate
@center grid-add* @center grid-add
<handler> <handler>

4
extra/boids/ui/ui.factor
View File

@ -143,9 +143,9 @@ VARS: population-label cohesion-label alignment-label separation-label ;
} [ call ] map [ add-gadget ] each } [ call ] map [ add-gadget ] each
1 over set-pack-fill 1 over set-pack-fill
@top grid-add* @top grid-add
slate> @center grid-add* slate> @center grid-add
<handler> <handler>

6
extra/color-picker/color-picker.factor
View File

@ -37,11 +37,11 @@ M: color-preview model-changed
<frame> <frame>
<color-sliders> <color-sliders>
swap dup swap dup
[ @top grid-add* ] [ @top grid-add ]
[ <color-model> <color-preview> @center grid-add* ] [ <color-model> <color-preview> @center grid-add ]
[ [
[ [ truncate number>string ] map " " join ] <filter> <label-control> [ [ truncate number>string ] map " " join ] <filter> <label-control>
@bottom grid-add* @bottom grid-add
] ]
tri* ; tri* ;

6
extra/irc/ui/ui.factor
View File

@ -155,12 +155,12 @@ irc-editor "general" f {
: <irc-tab> ( listener client -- irc-tab ) : <irc-tab> ( listener client -- irc-tab )
irc-tab new-frame irc-tab new-frame
swap client>> >>client swap >>listener swap client>> >>client swap >>listener
<irc-pane> [ <scroller> @center grid-add* ] keep <irc-pane> [ <scroller> @center grid-add ] keep
<irc-editor> <scroller> @bottom grid-add* ; <irc-editor> <scroller> @bottom grid-add ;
: <irc-channel-tab> ( listener client -- irc-tab ) : <irc-channel-tab> ( listener client -- irc-tab )
<irc-tab> <irc-tab>
<irc-list> [ <scroller> @right grid-add* ] dip >>listmodel <irc-list> [ <scroller> @right grid-add ] dip >>listmodel
[ update-participants ] keep ; [ update-participants ] keep ;
: <irc-server-tab> ( listener client -- irc-tab ) : <irc-server-tab> ( listener client -- irc-tab )

8
extra/ui/gadgets/tabs/tabs.factor
View File

@ -15,8 +15,8 @@ DEFER: (del-page)
:: add-toggle ( model n name toggler -- ) :: add-toggle ( model n name toggler -- )
<frame> <frame>
n name toggler parent>> '[ , , , (del-page) ] "X" swap <bevel-button> n name toggler parent>> '[ , , , (del-page) ] "X" swap <bevel-button>
@right grid-add* @right grid-add
n model name <toggle-button> @center grid-add* n model name <toggle-button> @center grid-add
toggler swap add-gadget drop ; toggler swap add-gadget drop ;
: redo-toggler ( tabbed -- ) : redo-toggler ( tabbed -- )
@ -52,10 +52,10 @@ DEFER: (del-page)
tabbed new-frame tabbed new-frame
0 <model> >>model 0 <model> >>model
<pile> 1 >>fill >>toggler <pile> 1 >>fill >>toggler
dup toggler>> @left grid-add* dup toggler>> @left grid-add
swap swap
[ keys >vector >>names ] [ keys >vector >>names ]
[ values over model>> <book> >>content dup content>> @center grid-add* ] [ values over model>> <book> >>content dup content>> @center grid-add ]
bi bi
dup redo-toggler ; dup redo-toggler ;