# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1504268685 -7200
# Node ID 5493871b7dd254d4daaaebb9c8d67c798835a3a9
# Parent  3d0e00c511ba6bf20bb0c11dfe3cb1594608bbc3
#REFACTORING by cg
class: Workspace
changed:
	#browseImplementorsOfIt
	#browseReferencesToIt
	#browseSendersOfIt

diff -r 3d0e00c511ba -r 5493871b7dd2 Workspace.st
--- a/Workspace.st	Fri Sep 01 14:16:08 2017 +0200
+++ b/Workspace.st	Fri Sep 01 14:24:45 2017 +0200
@@ -1606,7 +1606,7 @@
             ] ifFalse:[
                 selector := SystemBrowser extractSelectorFrom:selectedText.
             ].
-            browserClass := UserPreferences systemBrowserClass.
+            browserClass := SystemBrowser default.
 
             (selector notNil and:[selector ~= selectedText]) ifTrue:[
                 (SystemBrowser
@@ -1645,8 +1645,8 @@
         ]
     ].
 
-    "Created: / 5.11.2001 / 17:32:23 / cg"
-    "Modified: / 19.11.2001 / 22:15:17 / cg"
+    "Created: / 05-11-2001 / 17:32:23 / cg"
+    "Modified: / 01-09-2017 / 14:24:04 / cg"
 !
 
 browseIt
@@ -1760,7 +1760,7 @@
 
     nameOfVariable := self selectedTextOrSyntaxElement.
     nameOfVariable notEmptyOrNil ifTrue:[
-        browserClass := UserPreferences systemBrowserClass.
+        browserClass := SystemBrowser default.
         self windowGroup withWaitCursorDo:[
             |cls nonMeta privateClass|
 
@@ -1827,7 +1827,7 @@
     ].
 
     "Created: / 05-11-2001 / 17:32:23 / cg"
-    "Modified: / 30-03-2016 / 20:33:17 / cg"
+    "Modified: / 01-09-2017 / 14:24:09 / cg"
 !
 
 browseSendersOfIt
@@ -1837,15 +1837,15 @@
 
     selectedText := self selectedTextOrSyntaxElement.
     selectedText notEmptyOrNil ifTrue:[
-	self windowGroup withWaitCursorDo:[
-	    selector := SystemBrowser extractSelectorFrom:selectedText.
-	    (UserPreferences systemBrowserClass)
-		browseAllCallsOn:(selector ? selectedText)
-	]
+        self windowGroup withWaitCursorDo:[
+            selector := SystemBrowser extractSelectorFrom:selectedText.
+            SystemBrowser default
+                browseAllCallsOn:(selector ? selectedText)
+        ]
     ].
 
-    "Created: / 5.11.2001 / 17:32:23 / cg"
-    "Modified: / 19.11.2001 / 22:15:27 / cg"
+    "Created: / 05-11-2001 / 17:32:23 / cg"
+    "Modified: / 01-09-2017 / 14:24:13 / cg"
 !
 
 browseSharedPoolOfIt