#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Wed, 25 Jan 2017 16:51:19 +0100
changeset 17268 d43ecc65b047
parent 17267 417b4efdd40c
child 17269 9a118f7ef290
#UI_ENHANCEMENT by cg class: Tools::NewSystemBrowser changed: #switchToClass:selector:updateHistory:
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Wed Jan 25 16:49:50 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Jan 25 16:51:19 2017 +0100
@@ -54206,13 +54206,15 @@
     (navigationState isClassBrowser) ifTrue:[
         "/ must check if that class is in the list ...
         ((navigationState classList value ? #()) includesIdentical:aClass) ifFalse:[
-            navigationState isSingleClassBrowser ifTrue:[
-                navigationState classList value:(Array with:aClass).
-            ] ifFalse:[
-                (self confirm:'Class not in list.\\Add a buffer for it ?' withCRs) ifTrue:[
-                    self spawnFullBrowserInClass:aClass selector:aSelector in:#newBuffer.
-                ].
-                ^ self
+            ((navigationState classList value ? #()) includesIdentical:aClass theNonMetaclass) ifFalse:[
+                navigationState isSingleClassBrowser ifTrue:[
+                    navigationState classList value:(Array with:aClass).
+                ] ifFalse:[
+                    (self confirm:'Class not in list.\\Add a buffer for it ?' withCRs) ifTrue:[
+                        self spawnFullBrowserInClass:aClass selector:aSelector in:#newBuffer.
+                    ].
+                    ^ self
+                ].
             ].
         ].
         self selectedClasses value:(OrderedCollection with:aClass).