chiark / gitweb /
Changed how the widgets are made visible.
[clg] / hello-world.lisp
index 43245c9f54571083de24dde62adee2482bd68004..f6881bfdc5310839168f7bc5906009ff53f94f1c 100644 (file)
@@ -6,7 +6,7 @@ (make-instance 'window
 ; :type :toplevel
  :title "Test"
  :border-width 5
- :show-all t
+ :visible :show-children t
  :child (make-instance 'button
         :label "Hello World!"
         :signal (list 'clicked