ask userPrefs
authorClaus Gittinger <cg@exept.de>
Mon, 04 Nov 2002 15:27:54 +0100
changeset 4153 603173e5f84e
parent 4152 92e3975f1904
child 4154 d243b609e104
ask userPrefs
DebugView.st
--- a/DebugView.st	Mon Nov 04 15:26:14 2002 +0100
+++ b/DebugView.st	Mon Nov 04 15:27:54 2002 +0100
@@ -3220,8 +3220,8 @@
     selectedContext isNil ifTrue:[
         ^ self showError:'** select a context first **'
     ].
-    selectedContext receiver class browserClass
-    "SystemBrowser"
+    "/ selectedContext receiver class browserClass
+    UserPreferences systemBrowserClass
          browseImplementorsOf:selectedContext selector.
 !
 
@@ -3243,7 +3243,7 @@
                     initialAnswer:initial.
     selector size == 0 ifFalse:[
         UserPreferences systemBrowserClass
-            browseImplementorsOf:selector asSymbol.
+            browseImplementorsMatching:selector.
     ]
 
     "Modified: / 6.2.2000 / 01:05:14 / cg"
@@ -5786,7 +5786,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.333 2002-10-31 11:50:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.334 2002-11-04 14:27:54 cg Exp $'
 ! !
 
 DebugView initialize!