Added convenient type GERROR-SIGNAL which will signal an error automatically when...

[clg] / hello-world.lisp

diff --git a/hello-world.lisp b/hello-world.lisp
index f700cb210b914d891f3a44244dcabbce36493116..ab992201e51e93e47bc04b129adc0bb79fff97c6 100644 (file)
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -1,10 +1,12 @@
 (use-package :gtk)
 
 (use-package :gtk)
 

+(clg-init)
+

 (make-instance 'window
 ; :type :toplevel
  :title "Test"
  :border-width 5
 (make-instance 'window
 ; :type :toplevel
  :title "Test"
  :border-width 5

- :show-all t
+ :visible t :show-children t

  :child (make-instance 'button
         :label "Hello World!"
         :signal (list 'clicked
  :child (make-instance 'button
         :label "Hello World!"
         :signal (list 'clicked