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 ; : nth-gadget ( n gadget -- child ) children>> nth ;
: new-gadget ( class -- gadget ) : init-gadget ( gadget -- gadget )
new init-rect
{ 0 0 } clone >>loc { 0 1 } >>orientation
{ 0 0 } clone >>dim t >>visible?
{ 0 1 } >>orientation { f f } >>graft-state ; inline
t >>visible?
{ f f } >>graft-state ; inline : new-gadget ( class -- gadget ) new init-gadget ; inline
: <gadget> ( -- gadget ) : <gadget> ( -- gadget )
gadget new-gadget ; gadget new-gadget ;