Update hello-world.scm.
This commit is contained in:
parent
7146e4176a
commit
78aef417bd
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue