Bug fix

[clg] / hello-world.lisp

diff --git a/hello-world.lisp b/hello-world.lisp
index 0f4b5ec83188016b4515a970e7c32041498bf190..43245c9f54571083de24dde62adee2482bd68004 100644 (file)
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -1,15 +1,20 @@
-(in-package "GTK")
+(use-package :gtk)
+
+(clg-init)

 
 (make-instance 'window
 
 (make-instance 'window

- :type :toplevel
+; :type :toplevel

  :title "Test"
  :border-width 5
  :show-all t
  :child (make-instance 'button
         :label "Hello World!"
         :signal (list 'clicked
  :title "Test"
  :border-width 5
  :show-all t
  :child (make-instance 'button
         :label "Hello World!"
         :signal (list 'clicked

-                      #'(lambda (button)
-                          (print button) (write-line "clicked"))
-                      :object t)))
-
-
+                      #'(lambda ()
+                          (write-line "Hello World!"))))
+ :signal (list 'delete-event
+              #'(lambda (event)
+                  (declare (ignore event))
+                  (write-line "Destroying window")
+                  nil ; Returning NIL generates a destroy event
+                  )))