Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
do not show class-inheritance button in a methodList browser
authorClaus Gittinger <cg@exept.de>
Fri, 28 Mar 2003 12:46:48 +0100
changeset 4735 71990d3cec93
parent 4734 082a31e3bd9a
child 4736 8a44b0d50b90
do not show class-inheritance button in a methodList browser
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Mar 28 12:46:18 2003 +0100
+++ b/NewSystemBrowser.st	Fri Mar 28 12:46:48 2003 +0100
@@ -9146,7 +9146,7 @@
             #itemValue: #switchToCategoryView
             #translateLabel: true
             #isButton: true
-            #isVisible: #organizerIsNotShowingCategories
+            #isVisible: #organizerIsShowingClassesAndIsNotShowingCategories
             #labelImage: #(#ResourceRetriever #NewSystemBrowser #showCategoriesIcon)
             #showBusyCursorWhilePerforming: true
           )
@@ -9156,7 +9156,7 @@
             #itemValue: #switchToClassHierarchyView
             #translateLabel: true
             #isButton: true
-            #isVisible: #organizerIsShowingCategories
+            #isVisible: #organizerIsShowingClassesAndIsShowingCategories
             #labelImage: #(#ResourceRetriever #NewSystemBrowser #showClassHierarchyIcon)
             #showBusyCursorWhilePerforming: true
           )
@@ -10211,6 +10211,28 @@
     ^ holder
 !
 
+organizerIsShowingClassesAndIsNotShowingCategories
+    |holder|
+
+    (holder := builder bindingAt:#organizerIsShowingClassesAndIsNotShowingCategories) isNil ifTrue:[
+        holder := BlockValue 
+            with:[:h | navigationState isMethodListBrowser not and:[h value ~~ #category]] 
+            argument:(self organizerModeForMenu)
+    ].
+    ^ holder
+!
+
+organizerIsShowingClassesAndIsShowingCategories
+    |holder|
+
+    (holder := builder bindingAt:#organizerIsShowingClassesAndIsShowingCategories) isNil ifTrue:[
+        holder := BlockValue 
+        with:[:h | navigationState isMethodListBrowser not and:[h value == #category]] 
+        argument:(self organizerModeForMenu)
+    ].
+    ^ holder
+!
+
 organizerMode
     ^ self navigationState organizerMode
 
@@ -55575,7 +55597,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.553 2003-03-26 15:03:56 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.554 2003-03-28 11:46:48 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Mar 28 12:46:18 2003 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Mar 28 12:46:48 2003 +0100
@@ -9146,7 +9146,7 @@
             #itemValue: #switchToCategoryView
             #translateLabel: true
             #isButton: true
-            #isVisible: #organizerIsNotShowingCategories
+            #isVisible: #organizerIsShowingClassesAndIsNotShowingCategories
             #labelImage: #(#ResourceRetriever #NewSystemBrowser #showCategoriesIcon)
             #showBusyCursorWhilePerforming: true
           )
@@ -9156,7 +9156,7 @@
             #itemValue: #switchToClassHierarchyView
             #translateLabel: true
             #isButton: true
-            #isVisible: #organizerIsShowingCategories
+            #isVisible: #organizerIsShowingClassesAndIsShowingCategories
             #labelImage: #(#ResourceRetriever #NewSystemBrowser #showClassHierarchyIcon)
             #showBusyCursorWhilePerforming: true
           )
@@ -10211,6 +10211,28 @@
     ^ holder
 !
 
+organizerIsShowingClassesAndIsNotShowingCategories
+    |holder|
+
+    (holder := builder bindingAt:#organizerIsShowingClassesAndIsNotShowingCategories) isNil ifTrue:[
+        holder := BlockValue 
+            with:[:h | navigationState isMethodListBrowser not and:[h value ~~ #category]] 
+            argument:(self organizerModeForMenu)
+    ].
+    ^ holder
+!
+
+organizerIsShowingClassesAndIsShowingCategories
+    |holder|
+
+    (holder := builder bindingAt:#organizerIsShowingClassesAndIsShowingCategories) isNil ifTrue:[
+        holder := BlockValue 
+        with:[:h | navigationState isMethodListBrowser not and:[h value == #category]] 
+        argument:(self organizerModeForMenu)
+    ].
+    ^ holder
+!
+
 organizerMode
     ^ self navigationState organizerMode
 
@@ -55575,7 +55597,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.553 2003-03-26 15:03:56 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.554 2003-03-28 11:46:48 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool