#BUGFIX by cg
class: Tools::NewSystemBrowser
changed: #switchToClass:selector:updateHistory:
class: Tools::NewSystemBrowser class
changed: #browseClass:
--- a/Tools__NewSystemBrowser.st Tue Jun 12 10:49:16 2018 +0200
+++ b/Tools__NewSystemBrowser.st Tue Jun 12 10:59:23 2018 +0200
@@ -18449,7 +18449,7 @@
|browser|
- browser := self basicNew spawnClassBrowserFor:(Array with:aClass theNonMetaclass) in:#newBrowser.
+ browser := self basicNew spawnClassBrowserFor:(Array with:aClass "theNonMetaclass") in:#newBrowser.
aClass isMeta ifTrue:[
browser switchToClass:aClass.
].
@@ -18460,6 +18460,7 @@
"
"Modified: / 15-01-2011 / 14:07:36 / cg"
+ "Modified: / 12-06-2018 / 10:35:00 / Claus Gittinger"
!
browseClasses:aCollectionOfClasses
@@ -55479,9 +55480,9 @@
navigationState isSingleClassBrowser ifTrue:[
navigationState classList value:(Array with:aClass).
] ifFalse:[
- (self confirm:'Class not in list.\\Add a buffer for it ?' withCRs) ifTrue:[
+ "/ (self confirm:'Class not in list.\\Add a buffer for it ?' withCRs) ifTrue:[
self spawnFullBrowserInClass:aClass selector:aSelector in:#newBuffer.
- ].
+ "/ ].
^ self
].
].
@@ -55631,6 +55632,7 @@
"Modified: / 27-02-2008 / 16:45:21 / janfrog"
"Modified: / 28-02-2012 / 16:53:17 / cg"
"Modified: / 10-09-2013 / 14:59:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 12-06-2018 / 10:37:15 / Claus Gittinger"
!
switchToClassNameMatching:aMatchString