--- a/UIPainter.st Tue Dec 11 17:05:09 2007 +0100
+++ b/UIPainter.st Tue Dec 11 18:49:39 2007 +0100
@@ -3932,7 +3932,7 @@
stringWithCRs:'Browse implementors of %1 ?'
with:aspect allBold))
ifTrue:[
- SystemBrowser browseImplementorsOf:aspect
+ UserPreferences current systemBrowserClass browseImplementorsOf:aspect
].
^ self
].
@@ -3942,7 +3942,7 @@
inClass:cls.
code readStream fileIn.
].
- SystemBrowser openInClass:cls selector:aspect
+ UserPreferences current systemBrowserClass openInClass:cls selector:aspect
!
doBrowseAspectMethods