# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1364925124 -7200
# Node ID a0af9112b0513891a418bfbac1b0e2aa42164510
# Parent  cb5b9a1e1523901fcd47e96b98101c474cbe0035
class: SystemBrowser
changed: #browseImplementorsOf:in:ignoreCase:title:

diff -r cb5b9a1e1523 -r a0af9112b051 SystemBrowser.st
--- a/SystemBrowser.st	Tue Apr 02 18:06:50 2013 +0200
+++ b/SystemBrowser.st	Tue Apr 02 19:52:04 2013 +0200
@@ -2987,7 +2987,7 @@
     "launch a browser for all implementors of aSelector in
      the classes contained in aCollectionOfClasses and its metaclasses"
 
-    |list list2 rs selWithColon title top20 allSelectors choice|
+    |list list2 rs selWithColon title top20 allSelectors choice but|
 
     title := titleArg.
     list := self 
@@ -3031,11 +3031,13 @@
                     ]
                 ].
             ].
+            but := ''.
             (Smalltalk classNamed:aSelectorString) notNil ifTrue:[
                 top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse class ',aSelectorString,' <<'); yourself.
+                but := '\But there exists a class by that name.'.
             ].
             choice := Dialog 
-                choose:(title,' - none found.\\Browse implementors of a similar selector or cancel:' withCRs)
+                choose:(title,(' - none found.',but,'\\Browse implementors of a similar selector or cancel:') withCRs)
                 fromList:top20 
                 lines:10.
             choice notEmptyOrNil ifTrue:[
@@ -5993,7 +5995,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.311 2013-03-30 00:09:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.312 2013-04-02 17:52:04 cg Exp $'
 !
 
 version_SVN