Tools__NewSystemBrowser.st
changeset 11278 2dbde30323c2
parent 11274 41f14da8d72e
child 11279 f4584d352191
--- a/Tools__NewSystemBrowser.st	Fri Feb 17 22:50:55 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 27 12:15:08 2012 +0100
@@ -16581,6 +16581,7 @@
             translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever ToolbarIconLibrary lint24x24Icon)
+            enabled: hasClassSelectedHolder
           )
          (MenuItem
             label: '-'
@@ -25242,7 +25243,9 @@
 
     |classes theSingleClass lbl badMethodsGenerator badMethodInfoHolder badClassInfoHolder|
 
-    classes := self selectedClasses value ? #().
+    classes := self selectedClasses value.
+    classes isEmptyOrNil ifTrue:[^ self].
+
     (theSingleClass := self theSingleSelectedClass) notNil ifTrue:[
         lbl := 'Check results of ' , theSingleClass name
     ] ifFalse:[
@@ -55780,11 +55783,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1714 2012-02-14 14:46:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1715 2012-02-27 11:15:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1714 2012-02-14 14:46:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1715 2012-02-27 11:15:08 cg Exp $'
 !
 
 version_SVN