X-Git-Url: https://git.jsancho.org/?p=gacela.git;a=blobdiff_plain;f=examples%2F02-event-driven-programming%2F02-event-driven-programming.scm;h=b15123368cbafcdf90ae2a4f47761976a673db88;hp=505f4b052a2b59f32e8278a1696a2608eb106def;hb=5a8e5314cceaa73d438c0b3f7a2fdb26ea9b3a2c;hpb=c99c0f2ef95a3f78ed1be83b9b38db6010d21981

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 505f4b0..b151233 100644
--- a/examples/02-event-driven-programming/02-event-driven-programming.scm
+++ b/examples/02-event-driven-programming/02-event-driven-programming.scm
@@ -19,7 +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))
-	  (when-quit (lambda () (format #t "Quit clicked!!~%"))))
+	  (when-quit counter-quit))
    (bitmap "x.bmp")))