Added support for #multipleClassBrowserSpec in NewSystemBrowser>>selectedNonEmptyEnvironment jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 02 Sep 2015 21:41:49 +0100
branchjv
changeset 15839 aac7b8d588ce
parent 15825 462e872a3fb6
child 15840 9985aec41e0d
child 15845 c30680cd2455
Added support for #multipleClassBrowserSpec in NewSystemBrowser>>selectedNonEmptyEnvironment This one is used in inspector...
Tools__NewSystemBrowser.st
--- 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