[snow-cvs] r73 - trunk/src/lisp/snow

[Alessio Stalla]

Author: astalla
Date: Sun Apr 11 18:21:02 2010
New Revision: 73

Log:
call-in-gui-thread, and thus with-gui, now by default run the code synchronously on the EDT and return its return value. An optional parameter can be passed to require an asynchronous call, in which case NIL will be returned as before.


Modified:
   trunk/src/lisp/snow/snow.lisp

Modified: trunk/src/lisp/snow/snow.lisp
==============================================================================
--- trunk/src/lisp/snow/snow.lisp	(original)
+++ trunk/src/lisp/snow/snow.lisp	Sun Apr 11 18:21:02 2010
@@ -69,8 +69,8 @@
 	      (let ((*dynamic-environment* ,dynamic-environment))
 		, at body)))))))
 
-(defmacro with-gui ((&optional dont-wait) &body body)
-  `(call-in-gui-thread (lambda/dynamic-environment () , at body) ,dont-wait))
+(defmacro with-gui ((&key async) &body body)
+  `(call-in-gui-thread (lambda/dynamic-environment () , at body) ,async))
 
 (defun dashed->camelcased (string-designator)
   "Transforms a name (string designator) from the Lisp naming convention of separating multiple words with dashes to the Java camelCase convention."