From c4c11e6896fc19513e98e2e18e2874c430f14ed7 Mon Sep 17 00:00:00 2001 From: Sergey Cherepanov Date: Mon, 26 Nov 2012 11:00:03 +1100 Subject: [PATCH] Update examples/gtk/hello-world.scm. --- examples/gtk/hello-world.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/examples/gtk/hello-world.scm b/examples/gtk/hello-world.scm index 57e197b..6d1d6a6 100644 --- a/examples/gtk/hello-world.scm +++ b/examples/gtk/hello-world.scm @@ -3,4 +3,7 @@ (require 'gtk.la) (gtk-init (command-line-args)) +(define window (gtk-window-new 'gtk-window-toplevel)) +(gtk-window-set-title window "Hello, World!") +(gtk-widget-show-all window) (gtk-main)