ui.gadgets: add init-gadget

db4
Eduardo Cavazos 2008-07-20 05:58:40 -05:00
parent cbbc476f55
commit 0ff745ffed
1 changed files with 7 additions and 7 deletions

View File

@ -27,13 +27,13 @@ M: gadget model-changed 2drop ;
: nth-gadget ( n gadget -- child ) children>> nth ;
: new-gadget ( class -- gadget )
new
{ 0 0 } clone >>loc
{ 0 0 } clone >>dim
{ 0 1 } >>orientation
t >>visible?
{ f f } >>graft-state ; inline
: init-gadget ( gadget -- gadget )
init-rect
{ 0 1 } >>orientation
t >>visible?
{ f f } >>graft-state ; inline
: new-gadget ( class -- gadget ) new init-gadget ; inline
: <gadget> ( -- gadget )
gadget new-gadget ;