#REFACTORING by cg
class: Workspace
changed:
#browseImplementorsOfIt
#browseReferencesToIt
#browseSendersOfIt
--- 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