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