--- 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