From 78aef417bd2387087f28bc290b2840e79f7eb652 Mon Sep 17 00:00:00 2001 From: Sergey Cherepanov Date: Tue, 4 Dec 2012 12:33:42 +1100 Subject: [PATCH] Update hello-world.scm. --- examples/gtk/hello-world.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/examples/gtk/hello-world.scm b/examples/gtk/hello-world.scm index 6d1d6a6..bfd6947 100644 --- a/examples/gtk/hello-world.scm +++ b/examples/gtk/hello-world.scm @@ -5,5 +5,7 @@ (gtk-init (command-line-args)) (define window (gtk-window-new 'gtk-window-toplevel)) (gtk-window-set-title window "Hello, World!") +(define callback (lambda args (gtk-main-quit))) +(g-signal-connect window "destroy" callback) (gtk-widget-show-all window) (gtk-main)