#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 13 May 2016 02:00:33 +0200
changeset 16568 591a21c10e45
parent 16567 d47f89d64e91
child 16569 dd7031784931
#FEATURE by cg class: Tools::NavigationState changed: #isClassBrowser #isSingleClassBrowser
Tools__NavigationState.st
--- a/Tools__NavigationState.st	Fri May 13 02:00:11 2016 +0200
+++ b/Tools__NavigationState.st	Fri May 13 02:00:33 2016 +0200
@@ -1607,7 +1607,8 @@
 isClassBrowser
     ^ canvasType == #classBrowserSpec
       or:[ canvasType == #singleClassBrowserSpec
-      or:[ canvasType == #multipleClassBrowserSpec ]]
+      or:[ canvasType == #singleClassWithoutVariableListBrowserSpec
+      or:[ canvasType == #multipleClassBrowserSpec ]]]
 
     "Modified: / 25.2.2000 / 00:38:07 / cg"
 !
@@ -1709,7 +1710,8 @@
 !
 
 isSingleClassBrowser
-    ^ canvasType == #singleClassBrowserSpec    
+    ^ (canvasType == #singleClassBrowserSpec)
+    or:[ canvasType == #singleClassWithoutVariableListBrowserSpec ]
 !
 
 isSingleFullProtocolBrowser