2012-11-24 01:20:44 -05:00
|
|
|
;;; -*-Scheme-*-
|
|
|
|
|
|
|
|
|
|
(require 'gtk.la)
|
2012-11-24 03:35:58 -05:00
|
|
|
|
|
|
|
|
(gtk-init (command-line-args))
|
2012-11-25 19:00:03 -05:00
|
|
|
(define window (gtk-window-new 'gtk-window-toplevel))
|
|
|
|
|
(gtk-window-set-title window "Hello, World!")
|
2012-12-03 20:33:42 -05:00
|
|
|
(define callback (lambda args (gtk-main-quit)))
|
|
|
|
|
(g-signal-connect window "destroy" callback)
|
2012-11-25 19:00:03 -05:00
|
|
|
(gtk-widget-show-all window)
|
2012-11-24 03:35:58 -05:00
|
|
|
(gtk-main)
|
