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=505f4b052a2b59f32e8278a1696a2608eb106def;hp=2fcd3ababc46925c9ad0f78d8b1a4c0860ee4ef1;hb=c99c0f2ef95a3f78ed1be83b9b38db6010d21981;hpb=8f7ad6cdbc41a4a10ec133c6e6029928bd304025

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 2fcd3ab..505f4b0 100644
--- a/examples/02-event-driven-programming/02-event-driven-programming.scm
+++ b/examples/02-event-driven-programming/02-event-driven-programming.scm
@@ -20,5 +20,6 @@
 (use-modules (gacela))
 
 (display-scene
- (window '(#:resolution (640 480))
-	 (bitmap "x.bmp")))
+ (window ((resolution '(640 480))
+	  (when-quit (lambda () (format #t "Quit clicked!!~%"))))
+   (bitmap "x.bmp")))