ui.gadgets: add some inline.

basis/ui/gadgets/gadgets.factor

@@ -37,7 +37,7 @@ M: gadget model-changed 2drop ;
 : nth-gadget ( n gadget -- child ) children>> nth ; inline
 
 : <gadget> ( -- gadget )
-    gadget new ;
+    gadget new ; inline
 
 : control-value ( control -- value )
     model>> value>> ;
@@ -162,7 +162,7 @@ PRIVATE>
     [ drop ] [ dup invalidate layout-later ] if ;
 
 : show-gadget ( gadget -- ) t >>visible? drop ;
-                              
+
 : hide-gadget ( gadget -- ) f >>visible? drop ;
 
 <PRIVATE
@@ -189,7 +189,7 @@ GENERIC: pref-dim* ( gadget -- dim )
         [ drop ] [ dupd pref-dim<< ] if
     ] ?if ;
 
-: pref-dims ( gadgets -- seq ) [ pref-dim ] map ;
+: pref-dims ( gadgets -- seq ) [ pref-dim ] map ; inline
 
 M: gadget pref-dim* dim>> ;
 

basis/ui/gadgets/labels/labels.factor

@@ -47,7 +47,7 @@ M: label string<< ( string label -- )
     label new-label ;
 
 : >label< ( label -- font text )
-    [ font>> ] [ text>> ] bi ;
+    [ font>> ] [ text>> ] bi ; inline
 
 M: label pref-dim*
     >label< text-dim ;

basis/ui/gadgets/packs/packs.factor

@@ -78,13 +78,13 @@ M: pack pref-dim*
     dup children>> pref-dims pack-pref-dim ;
 
 : vertical-baseline ( pack -- y )
-    children>> [ f ] [ first baseline ] if-empty ;
+    children>> [ f ] [ first baseline ] if-empty ; inline
 
 : horizontal-baseline ( pack -- y )
-    children>> dup pref-dims measure-metrics drop ;
+    children>> dup pref-dims measure-metrics drop ; inline
 
-: pack-cap-height ( pack -- n )
+: pack-cap-height ( pack -- n/f )
-    children>> [ cap-height ] map ?supremum ;
+    children>> [ cap-height ] map ?supremum ; inline
 
 PRIVATE>