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
"n - New" [ automata-window ] view-button add-gadget
@top grid-add*
@top grid-add
C[ display ] <slate>
{ 400 400 } >>pdim
dup >slate
@center grid-add*
@center grid-add
<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
1 over set-pack-fill
@top grid-add*
@top grid-add
slate> @center grid-add*
slate> @center grid-add
<handler>

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

@ -37,11 +37,11 @@ M: color-preview model-changed
<frame>
<color-sliders>
swap dup
[ @top grid-add* ]
[ <color-model> <color-preview> @center grid-add* ]
[ @top grid-add ]
[ <color-model> <color-preview> @center grid-add ]
[
[ [ truncate number>string ] map " " join ] <filter> <label-control>
@bottom grid-add*
@bottom grid-add
]
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 new-frame
swap client>> >>client swap >>listener
<irc-pane> [ <scroller> @center grid-add* ] keep
<irc-editor> <scroller> @bottom grid-add* ;
<irc-pane> [ <scroller> @center grid-add ] keep
<irc-editor> <scroller> @bottom grid-add ;
: <irc-channel-tab> ( listener client -- irc-tab )
<irc-tab>
<irc-list> [ <scroller> @right grid-add* ] dip >>listmodel
<irc-list> [ <scroller> @right grid-add ] dip >>listmodel
[ update-participants ] keep ;
: <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 -- )
<frame>
n name toggler parent>> '[ , , , (del-page) ] "X" swap <bevel-button>
@right grid-add*
n model name <toggle-button> @center grid-add*
@right grid-add
n model name <toggle-button> @center grid-add
toggler swap add-gadget drop ;
: redo-toggler ( tabbed -- )
@ -52,10 +52,10 @@ DEFER: (del-page)
tabbed new-frame
0 <model> >>model
<pile> 1 >>fill >>toggler
dup toggler>> @left grid-add*
dup toggler>> @left grid-add
swap
[ keys >vector >>names ]
[ values over model>> <book> >>content dup content>> @center grid-add* ]
[ values over model>> <book> >>content dup content>> @center grid-add ]
bi
dup redo-toggler ;