ui.gadgets: inline gadget-child and nth-gadget.

db4
John Benediktsson 2012-09-17 12:37:18 -07:00
parent b2cd64d0e9
commit d5900ba7ee
1 changed files with 2 additions and 2 deletions

View File

@ -32,9 +32,9 @@ M: gadget hashcode* nip identity-hashcode ;
M: gadget model-changed 2drop ;
: gadget-child ( gadget -- child ) children>> first ;
: gadget-child ( gadget -- child ) children>> first ; inline
: nth-gadget ( n gadget -- child ) children>> nth ;
: nth-gadget ( n gadget -- child ) children>> nth ; inline
: <gadget> ( -- gadget )
gadget new ;