--- a/SystemBrowser.st	Sat Aug 24 23:14:04 2013 +0100
+++ b/SystemBrowser.st	Wed Aug 28 10:50:17 2013 +0100
@@ -732,7 +732,8 @@
                                     in:#newBrowser 
                                     select:false.
                             ].
-                            box hide
+                            box hide.
+                            box closeRequest
                          ].
             box addButton:browseButton before:box okButton.
             box minExtent:300@250.
@@ -772,6 +773,10 @@
                 action:nil.
     box list:aList.
     ^ box
+
+    "
+     (self listBoxTitle:'hello world' okText:'aaa' list:#(1 2 3 4)) open
+    "
 ! !
 
 !SystemBrowser class methodsFor:'image specs'!
@@ -6433,11 +6438,11 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.332 2013-08-19 16:00:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.332 2013-08-19 16:00:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $'
 !
 
 version_HG
@@ -6446,7 +6451,7 @@
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st,v 1.332 2013-08-19 16:00:57 stefan Exp $'
+    ^ '$Id: SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $'
 ! !