#REFACTORING by cg
class: UIPainter
changed:
#doBrowseAspectMethod:nameAs:
#doBrowseAspectMethods
#doGenerateAspectMethodFor
--- 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