From 1e5024665aa88cc70a5639b3a85fbc6469188b85 Mon Sep 17 00:00:00 2001
Message-Id: <1e5024665aa88cc70a5639b3a85fbc6469188b85.1713555812.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 21 Oct 2001 23:24:09 +0000
Subject: [PATCH] Updated due to API changes
Organization: Straylight/Edgeware

From: espen <espen>

---
 hello-world.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hello-world.lisp b/hello-world.lisp
index d89a585..0f4b5ec 100644
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -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)))
 
 
-- 
[mdw]