#REFACTORING by cg draft
authorClaus Gittinger <cg@exept.de>
Fri, 01 Sep 2017 14:27:15 +0200
changeset 3484 cc691402a3de
parent 3483 05354d795b15
child 3485 2105ccafc068
#REFACTORING by cg class: UIPainter changed: #doBrowseAspectMethod:nameAs: #doBrowseAspectMethods #doGenerateAspectMethodFor
UIPainter.st
--- a/UIPainter.st	Fri Sep 01 14:26:00 2017 +0200
+++ b/UIPainter.st	Fri Sep 01 14:27:15 2017 +0200
@@ -5726,7 +5726,7 @@
                           onCancel:#abort.
 
         answer == #browseImplementors ifTrue:[
-            UserPreferences systemBrowserClass browseImplementorsOf:aspect.
+            SystemBrowser default browseImplementorsOf:aspect.
             ^ self
         ].
         answer == #abort ifTrue:[
@@ -5743,8 +5743,10 @@
         ].
     ].
 
-    UserPreferences systemBrowserClass 
+    SystemBrowser default
         openInClass:implementingClass selector:aspect
+
+    "Modified: / 01-09-2017 / 14:23:30 / cg"
 !
 
 doBrowseAspectMethods
@@ -5760,9 +5762,11 @@
         self warn:'No aspect methods found !!'.
         ^ self.
     ].
-    UserPreferences systemBrowserClass 
+    SystemBrowser default
         browseMethods:methods 
         title:'Aspect methods'.
+
+    "Modified: / 01-09-2017 / 14:23:34 / cg"
 !
 
 doBrowseClass
@@ -6007,10 +6011,12 @@
                         collect:[:sel | cls compiledMethodAt:sel]
                         thenSelect:[:m | m notNil].
 
-        UserPreferences systemBrowserClass 
+        SystemBrowser default
             browseMethods:methods 
             title:'Some Aspect methods'.
     ].
+
+    "Modified: / 01-09-2017 / 14:23:37 / cg"
 !
 
 doGenerateAspectMethods