automata.ui: update for new add-gadget effect
parent
7c8d03f765
commit
731e57c7b7
|
@ -23,11 +23,8 @@ IN: automata.ui
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
QUALIFIED: ui.gadgets
|
||||
QUALIFIED: ui.gadgets.grids
|
||||
|
||||
: add-gadget ( parent child -- parent ) over ui.gadgets:add-gadget ;
|
||||
|
||||
: grid-add ( grid child i j -- grid )
|
||||
>r >r dupd swap r> r> ui.gadgets.grids:grid-add ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue