--- a/AbstractLauncherApplication.st	Fri Nov 28 13:33:01 2014 +0100
+++ b/AbstractLauncherApplication.st	Fri Nov 28 13:34:08 2014 +0100
@@ -1376,6 +1376,26 @@
     "Modified: / 14-02-2012 / 14:17:51 / cg"
 !
 
+browseReferencesToClass
+    "open a browser after asking for a class"
+
+    |browserClass class|
+
+    browserClass := UserPreferences systemBrowserClass.
+
+    class := Dialog
+                    requestClassName:(resources string:'Browse References to Class named (Tab for Completion):')
+                    okLabel:(resources string:'Browse')
+                    initialAnswer:''.
+    class notNil ifTrue:[
+        self withWaitCursorDo:[
+            browserClass browseReferendsOf:class
+        ]
+    ].
+
+    "Modified: / 14-02-2012 / 14:20:56 / cg"
+!
+
 browseResources
     "open a resource- browser after asking for a resource string"
 
@@ -1479,7 +1499,7 @@
                     initialAnswer:''.
     selector size > 0 ifTrue:[
         self withWaitCursorDo:[
-            UserPreferences systemBrowserClass browseAllCallsOn:selector
+            browserClass browseAllCallsOn:selector
         ]
     ].
 
@@ -6995,14 +7015,14 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.467 2014-10-08 22:55:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.468 2014-11-28 12:34:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.467 2014-10-08 22:55:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.468 2014-11-28 12:34:08 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractLauncherApplication.st,v 1.467 2014-10-08 22:55:59 vrany Exp $'
+    ^ '$Id: AbstractLauncherApplication.st,v 1.468 2014-11-28 12:34:08 cg Exp $'
 ! !