extra/ui/utils/utils.factor

   1 USING: accessors sequences namespaces ui.render opengl fry kernel ;
   2 IN: ui.utils
   3 SYMBOLS: width height ;
   4 : store-dim ( gadget -- ) dim>> [ first width set ] [ second height set ] bi ;
   5 : with-dim ( gadget quot -- ) '[ _ store-dim @ ] with-scope ; inline
   6 : with-w/h ( gadget quot -- ) '[ origin get _ with-translation ] with-dim ; inline