--- 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).