UIPainter.st
changeset 1392 f6f7a70c5d41
parent 1391 be99f3e9260e
child 1394 97a7eeabae40
--- a/UIPainter.st	Thu Aug 10 15:52:04 2000 +0200
+++ b/UIPainter.st	Tue Aug 15 16:15:49 2000 +0200
@@ -3182,26 +3182,24 @@
     |methods|
 
     self painter isModified ifTrue:[
-	self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs.
+        self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs.
     ].
 
     (methods := self painter aspectMethods) isEmpty ifTrue:[
-	self warn:'No aspect methods found!!'.
-	^ self.
+        self warn:'No aspect methods found!!'.
+        ^ self.
     ].
-    SystemBrowser browseMethods:methods title:'Aspect methods'.
-
+    UserPreferences current systemBrowserClass browseMethods:methods title:'Aspect methods'.
 !
 
 doBrowseClass
     "opens a System Browser on the specClass"
 
     self painter isModified ifTrue:[
-	self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs.
+        self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs.
     ].
 
-    SystemBrowser openInClass:(self resolveName:specClass)
-    
+    UserPreferences current systemBrowserClass openInClass:(self resolveName:specClass)
 !
 
 doDefineClassAndSelector