# HG changeset patch
# User tz
# Date 887475043 -3600
# Node ID 52824496093d250845d99402f64d04f4d03bc205
# Parent  9bee5100566f07c3ab4287a72b2da5a517402be4
*** empty log message ***

diff -r 9bee5100566f -r 52824496093d SelectionBrowser.st
--- a/SelectionBrowser.st	Sat Feb 07 23:32:23 1998 +0100
+++ b/SelectionBrowser.st	Sat Feb 14 17:50:43 1998 +0100
@@ -60,19 +60,6 @@
 
 !SelectionBrowser class methodsFor:'accessing'!
 
-label
-
-    |label|
-    label := ''.
-    self name do:
-    [:c|
-        c isUppercase ifTrue: [label := label, $ ].
-        label := label, c
-    ].
-    ^label trimBlanks
-
-!
-
 lastSelection
 
     ^lastSelection
@@ -95,7 +82,7 @@
 
 postBuildWith:aBuilder
 
-    builder window label: title ? self class label.
+    builder window label: title ? builder window label.
 
     ^super postBuildWith:aBuilder