chiark / gitweb /
Updated due to API changes
authorespen <espen>
Sun, 21 Oct 2001 23:24:09 +0000 (23:24 +0000)
committerespen <espen>
Sun, 21 Oct 2001 23:24:09 +0000 (23:24 +0000)
hello-world.lisp

index d89a585..0f4b5ec 100644 (file)
@@ -1,15 +1,15 @@
-(use-package "GTK")
+(in-package "GTK")
 
 (make-instance 'window
  :type :toplevel
  :title "Test"
  :border-width 5
- :visible t
+ :show-all t
  :child (make-instance 'button
         :label "Hello World!"
-        :visible t
-        :signals
-        (list (list 'clicked #'(lambda () (write-line "Button clicked"))))))
-
+        :signal (list 'clicked
+                      #'(lambda (button)
+                          (print button) (write-line "clicked"))
+                      :object t)))