--- a/Tools__NewSystemBrowser.st	Thu Jul 19 14:59:49 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jul 19 16:13:09 2012 +0200
@@ -44116,6 +44116,10 @@
                                                 value:nil
                                                 value:nil
                                                 value:nil.
+
+                                            theMethodNameList size > 7 ifTrue:[
+                                                brwsr showInfo:('%1 methods in list.' bindWith:theMethodNameList size).
+                                            ]
                                       ].
 
             sortHow notNil ifTrue:[brwsr sortBy value:sortHow].
@@ -44169,7 +44173,7 @@
             ]
         ]
 
-    "Modified: / 18-05-2010 / 15:15:27 / cg"
+    "Modified: / 19-07-2012 / 11:51:02 / cg"
 !
 
 spawnMethodBrowserFor:methods in:where label:labelOrNil perMethodInfo:infoDictionaryOrNil sortBy:sortHow
@@ -57002,11 +57006,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1753 2012-07-18 17:30:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1754 2012-07-19 14:13:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1753 2012-07-18 17:30:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1754 2012-07-19 14:13:09 cg Exp $'
 !
 
 version_SVN