added rendering functions

2009-03-09 20:13:17 -05:00 · 2009-03-09 20:13:17 -05:00 · 5a14faecd6
parent 91652c706b
commit 5a14faecd6
1 changed files with 6 additions and 0 deletions
--- a/basis/ui/utils/utils.factor
+++ b/basis/ui/utils/utils.factor
@ -0,0 +1,6 @@
+USING: accessors sequences namespaces ui.render opengl fry ;
+IN: ui.utils
+SYMBOLS: width height ;
+: store-dim ( gadget -- ) dim>> [ first width set ] [ second height set ] bi ;
+: with-dim ( gadget quot -- ) '[ _ store-dim @ ] with-scope ;
+: with-w/h ( gadget quot -- ) '[ origin get _ with-translation ] with-dim ;