--- a/Workspace.st	Tue Nov 13 10:43:15 2001 +0100
+++ b/Workspace.st	Tue Nov 13 13:56:58 2001 +0100
@@ -854,6 +854,23 @@
     "Modified: / 5.11.2001 / 17:32:38 / cg"
 !
 
+browseSendersOfIt
+    "open a browser on the senders of the selected text"
+
+    |sel|
+
+    sel := self selectionAsString.
+    sel size > 0 ifTrue:[
+        self windowGroup withWaitCursorDo:[
+            (UserPreferences current systemBrowserClass)
+                browseAllCallsOn:sel
+        ]
+    ].
+
+    "Created: / 5.11.2001 / 17:32:23 / cg"
+    "Modified: / 13.11.2001 / 13:52:41 / cg"
+!
+
 doIt
     "user selected 'doIt' from menu; show a wait-cursor, evaluate the code
      and finally restore cursor; return result of evaluation"
@@ -1011,5 +1028,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.98 2001-11-13 09:43:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.99 2001-11-13 12:56:58 cg Exp $'
 ! !