;; -*-theme-d-*-

;; Copyright (C) 2015 Tommi Höynälänmaa

(define-proper-program (gnome-examples hello)

  (import (standard-library core)
	  (gnome gobject)
	  (gnome gtk))

  (define-simple-proc main (() <none> nonpure)
    (let ((window (gtk-window-create 'toplevel))
	  (button (gtk-button-create-with-label "Hello, World!")))
      (set-border-width window 10)
      (add window button)
      (connect
       button 'clicked
       (lambda (((args (rest <object>))) <object> nonpure)
	 (gtk-main-quit)
	 null))
      (show-all window)
      (gtk-main))))
