Add on-gl

2014-03-31 20:25:51 -04:00
parent b0ebeac813
commit c66f75ed92
1 changed files with 7 additions and 0 deletions
--- a/src/play_clj/core_utils.clj
+++ b/src/play_clj/core_utils.clj
@@ -1,5 +1,12 @@
 (in-ns 'play-clj.core)

+(defmacro on-gl
+  "Runs the macro body on the GL thread.
+
+    (on-gl (set-screen! hello-world main-screen))"
+  [& body]
+  `(app! :post-runnable (fn [] ~@body)))
+
 ; static fields

 (defmacro scaling