Added support for #multipleClassBrowserSpec in NewSystemBrowser>>selectedNonEmptyEnvironment
This one is used in inspector...
--- a/Tools__NewSystemBrowser.st Tue Sep 01 06:43:01 2015 +0100
+++ b/Tools__NewSystemBrowser.st Wed Sep 02 21:41:49 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -19196,6 +19194,9 @@
type == #multipleMethodBrowserSpec ifTrue:[
^ self selectedCodeComponentsUsing: #(selectedSelectorsAsEnvironment)
].
+ type == #multipleClassBrowserSpec ifTrue:[
+ ^ self selectedCodeComponentsUsing: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment)
+ ].
"Add more..."
self breakPoint: #jv.
@@ -19203,7 +19204,7 @@
^ self selectedCodeComponentsUsing: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment)
"Created: / 02-04-2014 / 11:38:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 24-08-2015 / 23:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 02-09-2015 / 21:35:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
selectedNonEmptyEnvironmentFrom: environmentsOrSelectors