Added multi-threading support

[clg] / hello-world.lisp

diff --git a/hello-world.lisp b/hello-world.lisp
index d89a58539bfe3e85b4133d5c180a1c4cafd813a3..2ce6269925aad5c387e9457cc8ae19cb05ca3431 100644 (file)
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -1,15 +1,18 @@
-(use-package "GTK")
+(gtk:clg-init)

 
 

-(make-instance 'window
- :type :toplevel
+(make-instance 'gtk:window
+; :type :toplevel

  :title "Test"
  :border-width 5
  :title "Test"
  :border-width 5

- :visible t
- :child (make-instance 'button
+ :visible t :show-children t
+ :child (make-instance 'gtk:button

         :label "Hello World!"
         :label "Hello World!"

-        :visible t
-        :signals
-        (list (list 'clicked #'(lambda () (write-line "Button clicked"))))))
-
-
-
+        :signal (list 'clicked
+                      #'(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
+                  )))