# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1197395379 -3600
# Node ID dc5bf75732987c5604f8b1708b1bc06707fca8d4
# Parent  01fdf3323d89efd1fd7a76fea272f54da910d32a
changed #doBrowseActionMethod:

diff -r 01fdf3323d89 -r dc5bf7573298 UIPainter.st
--- 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