Tools__NewSystemBrowser.st
changeset 18858 606f43192a78
parent 18853 b98987a05654
child 18859 f469d25ef22a
--- a/Tools__NewSystemBrowser.st	Fri Jun 28 09:06:08 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Jun 28 09:22:00 2019 +0200
@@ -27388,7 +27388,7 @@
 
     "/ do not use self class new here - to avoid using obsolete classes instances
     "/ while working on the browser itself ...
-    browser := (Smalltalk at:self class name) new.
+    browser := (Smalltalk at:self className) new.
     browser environment: self environment.
     browser allButOpen.
     browser setupNavigationStateFrom:navigationState.
@@ -27406,6 +27406,7 @@
 
     "Modified: / 08-08-2010 / 15:19:13 / cg"
     "Modified: / 27-04-2014 / 11:07:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-06-2019 / 09:20:37 / Claus Gittinger"
 !
 
 browseMenuDeprecatedMethods
@@ -29357,8 +29358,10 @@
 
     "action to be added ..."
 
-    Transcript showCR:self class name, ': action for #categoryMenuFileOutCypressAs ...'.
+    Transcript showCR:self className, ': action for #categoryMenuFileOutCypressAs ...'.
     Dialog warn:'unimplemented function'.
+
+    "Modified: / 28-06-2019 / 09:20:42 / Claus Gittinger"
 !
 
 categoryMenuFileOutEachBinaryIn