conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update hello-world.scm.

This commit is contained in:
Sergey Cherepanov 2012-12-04 12:33:42 +11:00 committed by Lassi Kortela
parent 7146e4176a
commit 78aef417bd
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/gtk/hello-world.scm
View File

@ -5,5 +5,7 @@
(gtk-init (command-line-args)) (gtk-init (command-line-args))
(define window (gtk-window-new 'gtk-window-toplevel)) (define window (gtk-window-new 'gtk-window-toplevel))
(gtk-window-set-title window "Hello, World!") (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-widget-show-all window)
(gtk-main) (gtk-main)