Update code in extra to use 'grid-add'

diff --git a/extra/automata/ui/ui.factor b/extra/automata/ui/ui.factor
index 8dd3c7ece52e2160928acee1e7654ec1f1240b1e..cfb0462877d732b39dbc42380fdc2f027a90e526 100644 (file)
--- 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 ] <slate>
       { 400 400 } >>pdim
     dup >slate
 
-    @center grid-add*
+    @center grid-add
 
   <handler>
 

diff --git a/extra/boids/ui/ui.factor b/extra/boids/ui/ui.factor
index 6d57bb32acf647aee78733f898f31360bd9c9324..4639a0b58d4a620a31462e85672c4115d5d1bf60 100755 (executable)
--- 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
 
   <handler> 
 

diff --git a/extra/color-picker/color-picker.factor b/extra/color-picker/color-picker.factor
index 15c4e7c73339e086c4ae8c7fbe3e70212c638da9..c3214f5bf2d346376fecae11b31a13748e363256 100755 (executable)
--- a/extra/color-picker/color-picker.factor
+++ b/extra/color-picker/color-picker.factor
@@ -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* ;
 

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index a79920efe5698b6f6db99f7f787ff8bb1e87d6f4..9b8d1a4d11cb7c7d0a42dfc0209933ed0ce5e055 100755 (executable)
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -155,12 +155,12 @@ irc-editor "general" f {
 : <irc-tab> ( listener client -- irc-tab )\r
     irc-tab new-frame\r
     swap client>> >>client swap >>listener\r
-    <irc-pane> [ <scroller> @center grid-add* ] keep\r
-    <irc-editor> <scroller> @bottom grid-add* ;\r
+    <irc-pane> [ <scroller> @center grid-add ] keep\r
+    <irc-editor> <scroller> @bottom grid-add ;\r
 \r
 : <irc-channel-tab> ( listener client -- irc-tab )\r
     <irc-tab>\r
-    <irc-list> [ <scroller> @right grid-add* ] dip >>listmodel\r
+    <irc-list> [ <scroller> @right grid-add ] dip >>listmodel\r
     [ update-participants ] keep ;\r
 \r
 : <irc-server-tab> ( listener client -- irc-tab )\r

diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor
index 5688bb5a2e246335e689989f26ae2291b5b90d60..12031e5911124594b083eb3fa205d25de286fc66 100755 (executable)
--- 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 -- )\r
   <frame>\r
     n name toggler parent>> '[ , , , (del-page) ] "X" swap <bevel-button>\r
-      @right grid-add*\r
-    n model name <toggle-button> @center grid-add*\r
+      @right grid-add\r
+    n model name <toggle-button> @center grid-add\r
   toggler swap add-gadget drop ;\r
 \r
 : redo-toggler ( tabbed -- )\r
@@ -52,10 +52,10 @@ DEFER: (del-page)
   tabbed new-frame\r
     0 <model> >>model\r
     <pile> 1 >>fill >>toggler\r
-    dup toggler>> @left grid-add*\r
+    dup toggler>> @left grid-add\r
     swap\r
       [ keys >vector >>names ]\r
-      [ values over model>> <book> >>content dup content>> @center grid-add* ]\r
+      [ values over model>> <book> >>content dup content>> @center grid-add ]\r
     bi\r
     dup redo-toggler ;\r
     \r