From 5a14faecd6f7352a5556dc3a91e368721d164b22 Mon Sep 17 00:00:00 2001 From: Sam Anklesaria Date: Mon, 9 Mar 2009 20:13:17 -0500 Subject: [PATCH] added rendering functions --- basis/ui/utils/utils.factor | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 basis/ui/utils/utils.factor diff --git a/basis/ui/utils/utils.factor b/basis/ui/utils/utils.factor new file mode 100644 index 0000000000..468af45150 --- /dev/null +++ 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 ; \ No newline at end of file