2009-03-16 04:01:32 -04:00
|
|
|
USING: accessors sequences namespaces ui.render opengl fry kernel ;
|
2009-03-09 21:13:17 -04:00
|
|
|
IN: ui.utils
|
|
|
|
|
SYMBOLS: width height ;
|
|
|
|
|
: store-dim ( gadget -- ) dim>> [ first width set ] [ second height set ] bi ;
|
2009-03-16 04:01:32 -04:00
|
|
|
: with-dim ( gadget quot -- ) '[ _ store-dim @ ] with-scope ; inline
|
|
|
|
|
: with-w/h ( gadget quot -- ) '[ origin get _ with-translation ] with-dim ; inline
|
