Remove 'grid-add*'
parent
2066adcfec
commit
2291c2d18a
|
@ -20,11 +20,6 @@ grid
|
||||||
|
|
||||||
: grid-child ( grid i j -- gadget ) rot grid>> nth nth ;
|
: grid-child ( grid i j -- gadget ) rot grid>> nth nth ;
|
||||||
|
|
||||||
: grid-add* ( grid child i j -- grid )
|
|
||||||
>r >r dupd swap r> r>
|
|
||||||
>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 )
|
: grid-add ( grid child i j -- grid )
|
||||||
>r >r dupd swap r> r>
|
>r >r dupd swap r> r>
|
||||||
>r >r 2dup swap add-gadget drop r> r>
|
>r >r 2dup swap add-gadget drop r> r>
|
||||||
|
|
Loading…
Reference in New Issue