ui.gadgets.grids: grid-add*

2008-07-14 17:48:21 -05:00 · 2008-07-14 17:48:21 -05:00 · 779dbb9ee6
parent 4809a69d7f
commit 779dbb9ee6
1 changed files with 2 additions and 0 deletions
--- a/extra/ui/gadgets/grids/grids.factor
+++ b/extra/ui/gadgets/grids/grids.factor
@ -24,6 +24,8 @@ grid
    >r >r 2dup swap add-gadget drop r> r>
    3dup grid-child unparent rot grid>> nth set-nth ;

+: grid-add* ( grid child i j -- grid ) >r >r dupd swap r> r> grid-add ;
+
 : grid-remove ( grid i j -- )
    >r >r >r <gadget> r> r> r> grid-add ;