TUPLE: pane-control < pane quot ;
-M: pane-control model-changed ( model pane-control -- )
+M: pane-control model-changed
[ value>> ] [ dup quot>> ] bi*
'[ _ call( value -- ) ] with-pane ;
GENERIC: sloppy-pick-up* ( loc gadget -- n )
-M: pack sloppy-pick-up* ( loc gadget -- n )
+M: pack sloppy-pick-up*
[ orientation>> ] [ children>> ] bi
[ loc>> ] (fast-children-on) ;