--- a/BrowserView.st	Tue Sep 15 14:12:34 2009 +0200
+++ b/BrowserView.st	Tue Sep 15 14:12:59 2009 +0200
@@ -5091,7 +5091,7 @@
 "/        subs := cls allSubclasses.
         (subs notNil and:[subs size ~~ 0]) ifTrue:[
             brwsr := SystemBrowser browseClasses:subs 
-                                   title:('subclasses of ' , cls name)
+                                   label:('subclasses of ' , cls name)
                                    sort:false.
             brwsr environment:environment
         ]
@@ -6071,8 +6071,8 @@
                     ]
                 ] ifFalse:[
                     self warn:('found multiple classes with a name of ' , nm , '.\\Select and rename as required') withCRs.
-                     SystemBrowser browseClasses:classes asOrderedCollection
-                                           title:'choose and rename as required'
+                    SystemBrowser browseClasses:classes asOrderedCollection
+                                          label:'choose and rename as required'
                 ]
             ] ifFalse:[
                 Class allSubInstancesDo:[:aClass |
@@ -12637,14 +12637,7 @@
 listBoxTitle:title okText:okText list:aList
     "convenient method: setup a listBox & return it"
 
-    |box|
-
-    box := ListSelectionBox 
-		title:(resources string:title)
-		okText:(resources string:okText)
-		action:nil.
-    box list:aList.
-    ^ box
+    ^ SystemBrowser listBoxTitle:title okText:okText list:aList
 !
 
 normalLabel
@@ -14512,7 +14505,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.821 2009-05-12 07:42:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.822 2009-09-15 12:12:59 cg Exp $'
 ! !
 
 BrowserView initialize!