diff --git a/extra/automata/ui/ui.factor b/extra/automata/ui/ui.factor index 8dd3c7ece5..cfb0462877 100644 --- a/extra/automata/ui/ui.factor +++ b/extra/automata/ui/ui.factor @@ -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 ] { 400 400 } >>pdim dup >slate - @center grid-add* + @center grid-add diff --git a/extra/boids/ui/ui.factor b/extra/boids/ui/ui.factor index 6d57bb32ac..4639a0b58d 100755 --- a/extra/boids/ui/ui.factor +++ b/extra/boids/ui/ui.factor @@ -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 diff --git a/extra/color-picker/color-picker.factor b/extra/color-picker/color-picker.factor index 15c4e7c733..c3214f5bf2 100755 --- a/extra/color-picker/color-picker.factor +++ b/extra/color-picker/color-picker.factor @@ -37,11 +37,11 @@ M: color-preview model-changed swap dup - [ @top grid-add* ] - [ @center grid-add* ] + [ @top grid-add ] + [ @center grid-add ] [ [ [ truncate number>string ] map " " join ] - @bottom grid-add* + @bottom grid-add ] tri* ; diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor index a79920efe5..9b8d1a4d11 100755 --- a/extra/irc/ui/ui.factor +++ b/extra/irc/ui/ui.factor @@ -155,12 +155,12 @@ irc-editor "general" f { : ( listener client -- irc-tab ) irc-tab new-frame swap client>> >>client swap >>listener - [ @center grid-add* ] keep - @bottom grid-add* ; + [ @center grid-add ] keep + @bottom grid-add ; : ( listener client -- irc-tab ) - [ @right grid-add* ] dip >>listmodel + [ @right grid-add ] dip >>listmodel [ update-participants ] keep ; : ( listener client -- irc-tab ) diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor index 5688bb5a2e..12031e5911 100755 --- a/extra/ui/gadgets/tabs/tabs.factor +++ b/extra/ui/gadgets/tabs/tabs.factor @@ -15,8 +15,8 @@ DEFER: (del-page) :: add-toggle ( model n name toggler -- ) n name toggler parent>> '[ , , , (del-page) ] "X" swap - @right grid-add* - n model name @center grid-add* + @right grid-add + n model name @center grid-add toggler swap add-gadget drop ; : redo-toggler ( tabbed -- ) @@ -52,10 +52,10 @@ DEFER: (del-page) tabbed new-frame 0 >>model 1 >>fill >>toggler - dup toggler>> @left grid-add* + dup toggler>> @left grid-add swap [ keys >vector >>names ] - [ values over model>> >>content dup content>> @center grid-add* ] + [ values over model>> >>content dup content>> @center grid-add ] bi dup redo-toggler ;