X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F02-event-driven-programming%2F02-event-driven-programming.scm;h=a75eddfd5770e99d9f75e3592c82275a06c7b796;hb=e1e0e1c4a98a9b27391eeef40dea40a59d983710;hp=0044ac53160b33c7fc31663b4fc75e4fbd68b905;hpb=ee72c2bc37b7d06fbf90b27fa8e45e6f2d4e27bc;p=gacela.git

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 0044ac5..a75eddf 100644
--- a/examples/02-event-driven-programming/02-event-driven-programming.scm
+++ b/examples/02-event-driven-programming/02-event-driven-programming.scm
@@ -19,6 +19,16 @@
 
 (use-modules (gacela))
 
+(define counter-quit #f)
+(let ((n 0))
+  (set! counter-quit
+    (lambda ()
+      (set! n (+ n 1))
+      (format #t "Quit clicked ~a times !!~%" n)
+      (if (> n 2)
+	  (stop-game)))))
+
 (display-scene
- (window '(#:resolution (640 480))
-	 (import-bitmap "x.bmp")))
+ (window ((resolution '(640 480))
+	  (when-quit counter-quit))
+   (image "x.bmp")))