--- 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