--- a/SelectionBrowser.st	Mon Dec 22 21:47:47 1997 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,65 +0,0 @@
-SimpleDialog subclass:#SelectionBrowser
-	instanceVariableNames:'title'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-Advanced-Tools'
-!
-
-SelectionBrowser class instanceVariableNames:'lastSelection'
-
-"
- The following class instance variables are inherited by this class:
-
-	SimpleDialog - 
-	ApplicationModel - ClassResources
-	Model - 
-	Object - 
-"
-!
-
-
-!SelectionBrowser class methodsFor:'accessing'!
-
-label
-
-    |label|
-    label := ''.
-    self name do:
-    [:c|
-        c isUppercase ifTrue: [label := label, $ ].
-        label := label, c
-    ].
-    ^label trimBlanks
-
-!
-
-lastSelection
-
-    ^lastSelection
-!
-
-lastSelection: aString
-
-    lastSelection := aString
-! !
-
-!SelectionBrowser methodsFor:'initialization'!
-
-postBuildWith:aBuilder
-
-    self setLabel.
-    ^super postBuildWith:aBuilder
-
-!
-
-setLabel
-
-    builder window label: title ? self class label
-
-! !
-
-!SelectionBrowser class methodsFor:'documentation'!
-
-version
-    ^ '$Header$'
-! !