D119251: Do not show namespace filter for environments which have no namespaces
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 03 Mar 2015 12:23:09 +0100
changeset 15502 d19365d73686
parent 15501 46e2abb0c3e2
child 15503 09257eb5c318
D119251: Do not show namespace filter for environments which have no namespaces ...such as JBrowserClassEnvironment.
Tools__OrganizerCanvas.st
--- a/Tools__OrganizerCanvas.st	Tue Mar 03 12:08:59 2015 +0100
+++ b/Tools__OrganizerCanvas.st	Tue Mar 03 12:23:09 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -34,7 +36,7 @@
 		sortVariablesByName showAllClassesInNameSpaceView
 		showMethodInheritance showMethodComplexity showMethodTypeIcon
 		methodVisibilityHolder showCoverageInformation
-		sortByNameAndInheritance'
+		sortByNameAndInheritance nameSpaceListWidgetVisibleHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -2113,6 +2115,7 @@
                             (ExtendedComboBoxSpec
                                name: 'NameSpaceFilterComboBox'
                                layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
+                               visibilityChannel: nameSpaceListWidgetVisibleHolder
                                tabable: true
                                model: nameSpaceFilterSelectedNameSpace
                                menuWidgetHolder: nameSpaceListWidgetHolder
@@ -2414,11 +2417,11 @@
                                 (SubChannelInfoSpec
                                    subAspect: sortVariablesByName
                                    aspect: sortVariablesByName
-                                 )
+                                 ) 
                                 (SubChannelInfoSpec
                                    subAspect: slaveMode
                                    aspect: classListSlaveMode
-                                 ) 
+                                 )
                                )
                                createNewApplication: true
                                createNewBuilder: true
@@ -4739,6 +4742,20 @@
     "Modified: / 08-03-2007 / 23:02:15 / cg"
 !
 
+nameSpaceListWidgetVisibleHolder
+    |holder|
+
+    (holder := builder bindingAt:#nameSpaceListWidgetVisibleHolder) isNil ifTrue:[
+        holder := BlockValue 
+                        with:[:env | env hasNameSpaces ]
+                        argument:(self environmentHolder).
+        builder aspectAt:#nameSpaceListWidgetVisibleHolder put: holder
+    ].
+    ^ holder
+
+    "Modified: / 03-03-2015 / 11:24:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 packageDiagramShown
     |holder|
 
@@ -5231,10 +5248,10 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__OrganizerCanvas.st,v 1.60 2015-02-13 11:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__OrganizerCanvas.st,v 1.61 2015-03-03 11:23:09 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__OrganizerCanvas.st,v 1.60 2015-02-13 11:15:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__OrganizerCanvas.st,v 1.61 2015-03-03 11:23:09 vrany Exp $'
 ! !