Write window declarations using a syntax

[gacela.git] / examples / 02-event-driven-programming / 02-event-driven-programming.scm

diff --git a/examples/02-event-driven-programming/02-event-driven-programming.scm b/examples/02-event-driven-programming/02-event-driven-programming.scm
index 903a6a536d00857feb92c97c5af32b3a22f8e32a..505f4b052a2b59f32e8278a1696a2608eb106def 100644 (file)
--- a/examples/02-event-driven-programming/02-event-driven-programming.scm
+++ b/examples/02-event-driven-programming/02-event-driven-programming.scm
@@ -19,4 +19,7 @@
 
 (use-modules (gacela))
 
-(run-scene (import-bitmap "x.bmp"))
+(display-scene
+ (window ((resolution '(640 480))
+         (when-quit (lambda () (format #t "Quit clicked!!~%"))))
+   (bitmap "x.bmp")))