changed: #askForClassNameMatching:inEnvironment:for:
authorClaus Gittinger <cg@exept.de>
Sat, 24 Oct 2009 14:43:04 +0200
changeset 9065 efb483eb10a8
parent 9064 5ef99b2103ef
child 9066 5a3e22e2c61c
changed: #askForClassNameMatching:inEnvironment:for:
SystemBrowser.st
--- a/SystemBrowser.st	Sat Oct 24 14:06:10 2009 +0200
+++ b/SystemBrowser.st	Sat Oct 24 14:43:04 2009 +0200
@@ -660,9 +660,9 @@
             ].
 
             aMatchString includesMatchCharacters ifTrue:[
-                msg := 'Classes matching "%1"\\Select or enter name of class to switch to:'
+                msg := 'Classes matching or similar to "%1"\\Select or enter name of class to switch to:'
             ] ifFalse:[
-                msg := 'Classes containing "%1"\\Select or enter name of class to switch to:'
+                msg := 'Classes containing or similar to "%1"\\Select or enter name of class to switch to:'
             ].
 
             box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs
@@ -677,7 +677,7 @@
             browseButton action:[
                             |classes title|
 
-                            title := resources string:'Classes Matching "%1"' with:matchStringArg.
+                            title := resources string:'Classes Matching or Similar to "%1"' with:matchStringArg.
                             classes := classNames collect:[:nm | Smalltalk classNamed:nm].
                             aBrowserOrNil isNil ifTrue:[
                                 SystemBrowser
@@ -5556,11 +5556,11 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.274 2009-10-20 10:15:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.275 2009-10-24 12:43:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.274 2009-10-20 10:15:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.275 2009-10-24 12:43:04 cg Exp $'
 ! !
 
 SystemBrowser initialize!