class: UIPainter
authorClaus Gittinger <cg@exept.de>
Thu, 03 Sep 2015 11:49:03 +0200
changeset 3228 1653d1bda447
parent 3227 2dbc0662a8c7
child 3229 ba4c463b66ad
class: UIPainter changed: #doBrowseActionMethod:nameAs:
UIPainter.st
--- a/UIPainter.st	Mon Jul 27 19:46:24 2015 +0200
+++ b/UIPainter.st	Thu Sep 03 11:49:03 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995-1998 by eXept Software AG
               All Rights Reserved
@@ -5432,7 +5434,7 @@
                                 stringWithCRs:'Browse implementors of %1 ?'
                                 with:aspect allBold)) 
             ifTrue:[
-                UserPreferences current systemBrowserClass browseImplementorsOf:aspect
+                SystemBrowser default browseImplementorsOf:aspect
             ].
             ^ self
         ].
@@ -5444,7 +5446,7 @@
             code readStream fileIn.
         ].
     ].
-    UserPreferences current systemBrowserClass openInClass:cls selector:aspect
+    SystemBrowser default openInClass:cls selector:aspect
 
     "Modified: / 28-01-2014 / 21:55:56 / cg"
 !