X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=gacela%2Fwindow.scm;h=6d43ce600971c29f18be332dcc4ca2d8de7ec0be;hp=eeed32d2beba1c6cc33a4adb928a7f48545f06b7;hb=c99c0f2ef95a3f78ed1be83b9b38db6010d21981;hpb=8f7ad6cdbc41a4a10ec133c6e6029928bd304025

diff --git a/gacela/window.scm b/gacela/window.scm
index eeed32d..6d43ce6 100644
--- a/gacela/window.scm
+++ b/gacela/window.scm
@@ -20,8 +20,13 @@
   #:export (window))
 
 
-(define* (window window-properties #:optional scene)
-  (make-scene
-   "window"
-   (lambda ()
-     (apply run-scene (cons scene window-properties)))))
+(define-syntax window
+  (lambda (x)
+    (syntax-case x ()
+      ((_ ((property-name property-value) ...) scene)
+       #'(make-scene
+	  "window"
+	  (lambda ()
+	    (apply run-scene (cons scene
+				   (append (list (symbol->keyword 'property-name) property-value)
+					   ...)))))))))