Hopefully allow (require :glib) again.

[clg] / hello-world.lisp

diff --git a/hello-world.lisp b/hello-world.lisp
index 43245c9f54571083de24dde62adee2482bd68004..9af70abf56a8aadc93354469557693778a970716 100644 (file)
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -1,20 +1,19 @@
-(use-package :gtk)
+(gtk:clg-init)
 
-(clg-init)
-
-(make-instance 'window
-; :type :toplevel
- :title "Test"
- :border-width 5
- :show-all t
- :child (make-instance 'button
-        :label "Hello World!"
-        :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
-                  )))
+(gtk:within-main-loop
+  (make-instance 'gtk:window
+;   :type :toplevel
+   :title "Test"
+   :border-width 5
+   :visible t :show-children t
+   :child (make-instance 'gtk:button
+          :label "Hello World!"
+          :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
+               ))))