--- a/TransparentBox.st	Fri Jul 16 16:40:32 2004 +0200
+++ b/TransparentBox.st	Fri Jul 16 16:41:50 2004 +0200
@@ -13,7 +13,8 @@
 "
     | tv b1 b2 |
 
-    b1 := Button label:'hello'.
+    b1 := Button label:'close'.
+    b1 action:[ tv close ].
     b1 origin:10@10.
 
     b2 := Button label:'hello'.
@@ -95,5 +96,5 @@
 !TransparentBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TransparentBox.st,v 1.2 2004-07-16 14:40:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TransparentBox.st,v 1.3 2004-07-16 14:41:50 cg Exp $'
 ! !