#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 12 Jun 2018 10:59:23 +0200
changeset 18194 2e01639cd8b0
parent 18193 240aaffc4453
child 18195 963edd8d8cab
#BUGFIX by cg class: Tools::NewSystemBrowser changed: #switchToClass:selector:updateHistory: class: Tools::NewSystemBrowser class changed: #browseClass:
Tools__NewSystemBrowser.st
--- 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