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