--- a/NewLauncher.st	Wed Jun 26 10:45:11 2013 +0200
+++ b/NewLauncher.st	Wed Jun 26 20:12:01 2013 +0200
@@ -258,7 +258,7 @@
      the UIHelpTool may not be able to read the specification."
 
     "
-     UIHelpTool openOnClass:NewLauncher
+     UIHelpTool openOnClass:NewLauncher    
     "
 
     <resource: #help>
@@ -463,6 +463,9 @@
 #demosWalkingMan
 'Opens a walking man animation demo'
 
+#enableGlobalCoverageAnalysis
+'Enable coverage statistic gathering in all processes (global covarage analysis)'
+
 #fileApplicationBuilder
 'Open an Application Builder for building stand alone ST/X-applications'
 
@@ -484,6 +487,12 @@
 #fileSaveImageAs
 'Save the complete state of ST/X into a snapshot file'
 
+#findClassAndBrowse
+'Find and browse a class by name'
+
+#flyByWindowInformation
+'Show flyby info about the window under the pointer. Easy access to View, Application and Model'
+
 #gamesPingPong
 'Play classic PingPong against the computer'
 
@@ -772,14 +781,7 @@
 #windowsViewTreeAllViews
 'Display the widget hierarchies of all ST/X windows (on this display)'
 
-#flyByWindowInformation
-'Show flyby info about the window under the pointer. Easy access to View, Application and Model'
-
-#enableGlobalCoverageAnalysis
-'Enable coverage statistic gathering in all processes (global covarage analysis)'
 )
-
-    "Modified: / 21-09-2012 / 10:59:33 / cg"
 ! !
 
 !NewLauncher class methodsFor:'interface specs'!
@@ -1185,122 +1187,129 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
-	(
-	 (MenuItem
-	    activeHelpKey: classesSystemBrowser
-	    label: 'System Browser'
-	    itemValue: openApplication:
-	    nameKey: systemBrowser
-	    submenuChannel: menuClassHistory
-	    labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon 'System Browser')
-	    argument: 'Tools::NewSystemBrowser'
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    label: '-'
-	  )
-	 (MenuItem
-	    activeHelpKey: startChangeSetBrowser
-	    label: 'Recent Changes'
-	    itemValue: startChangeSetBrowser
-	    nameKey: startChangeSetBrowser
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    activeHelpKey: classesClassBrowserOnChanges
-	    label: 'Changed Classes'
-	    itemValue: startClassBrowserOnChanges
-	    nameKey: classBrowserOnChanges
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    activeHelpKey: classBrowserOnChangedMethods
-	    label: 'Changed Methods'
-	    itemValue: startClassBrowserOnChangedMethods
-	    nameKey: classBrowserOnChangedMethods
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    activeHelpKey: startSmallTeamChangeSetBrowser
-	    label: 'Recent Changes on SmallTeam Host'
-	    isVisible: smallTeamAvailable
-	    submenuChannel: startBrowserOnSmallTeamChangesMenu
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    label: '-'
-	  )
-	 (MenuItem
-	    label: 'Special Browsers'
-	    submenuChannel: classesSpecialBrowserMenu
-	  )
-	 (MenuItem
-	    activeHelpKey: classesClassTreeBrowser
-	    label: 'Class Tree'
-	    itemValue: openApplication:
-	    argument: 'ClassTreeGraphView'
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    label: '-'
-	  )
-	 (MenuItem
-	    activeHelpKey: classesImplementors
-	    label: 'Implementors Of...'
-	    itemValue: browseImplementors
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    activeHelpKey: classesSenders
-	    label: 'Senders Of...'
-	    itemValue: browseSenders
-	    showBusyCursorWhilePerforming: true
-	  )
-	 (MenuItem
-	    label: 'Method Finder'
-	    itemValue: openMethodFinder
-	    labelImage: (ResourceRetriever ToolbarIconLibrary methodFinder24x24Icon 'Method Finder')
-	  )
-	 (MenuItem
-	    activeHelpKey: classesResourceMethods
-	    label: 'Find Resource Methods...'
-	    itemValue: browseResources
-	  )
-	 (MenuItem
-	    label: '-'
-	  )
-	 (MenuItem
-	    activeHelpKey: classesSpecial
-	    label: 'Special'
-	    nameKey: special
-	    submenu:
-	   (Menu
-	      (
-	       (MenuItem
-		  activeHelpKey: classesSpecialReferencesToUnboundGlobals
-		  label: 'References to Unbound Globals'
-		  itemValue: browseUnboundGlobals
-		)
-	       (MenuItem
-		  activeHelpKey: classesSpecialReferencesToUndeclared
-		  label: 'References to Undeclared'
-		  itemValue: browseUndeclared
-		)
-	       (MenuItem
-		  activeHelpKey: classesSpecialReferencesToUndeclared
-		  label: 'Clear Undeclared Variables'
-		  itemValue: clearUndeclaredVariables
-		)
-	       )
-	      nil
-	      nil
-	    )
-	  )
-	 )
-	nil
-	nil
+        (
+         (MenuItem
+            activeHelpKey: classesSystemBrowser
+            label: 'System Browser'
+            itemValue: openApplication:
+            nameKey: systemBrowser
+            submenuChannel: menuClassHistory
+            labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon 'System Browser')
+            argument: 'Tools::NewSystemBrowser'
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            activeHelpKey: findClassAndBrowse
+            label: 'Find Class...'
+            itemValue: findClassAndBrowse
+            nameKey: startChangeSetBrowser
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: startChangeSetBrowser
+            label: 'Recent Changes'
+            itemValue: startChangeSetBrowser
+            nameKey: startChangeSetBrowser
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            activeHelpKey: classesClassBrowserOnChanges
+            label: 'Changed Classes'
+            itemValue: startClassBrowserOnChanges
+            nameKey: classBrowserOnChanges
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            activeHelpKey: classBrowserOnChangedMethods
+            label: 'Changed Methods'
+            itemValue: startClassBrowserOnChangedMethods
+            nameKey: classBrowserOnChangedMethods
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            activeHelpKey: startSmallTeamChangeSetBrowser
+            label: 'Recent Changes on SmallTeam Host'
+            isVisible: smallTeamAvailable
+            submenuChannel: startBrowserOnSmallTeamChangesMenu
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Special Browsers'
+            submenuChannel: classesSpecialBrowserMenu
+          )
+         (MenuItem
+            activeHelpKey: classesClassTreeBrowser
+            label: 'Class Tree'
+            itemValue: openApplication:
+            argument: 'ClassTreeGraphView'
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: classesImplementors
+            label: 'Implementors Of...'
+            itemValue: browseImplementors
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            activeHelpKey: classesSenders
+            label: 'Senders Of...'
+            itemValue: browseSenders
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: 'Method Finder'
+            itemValue: openMethodFinder
+            labelImage: (ResourceRetriever ToolbarIconLibrary methodFinder24x24Icon 'Method Finder')
+          )
+         (MenuItem
+            activeHelpKey: classesResourceMethods
+            label: 'Find Resource Methods...'
+            itemValue: browseResources
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: classesSpecial
+            label: 'Special'
+            nameKey: special
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: classesSpecialReferencesToUnboundGlobals
+                  label: 'References to Unbound Globals'
+                  itemValue: browseUnboundGlobals
+                )
+               (MenuItem
+                  activeHelpKey: classesSpecialReferencesToUndeclared
+                  label: 'References to Undeclared'
+                  itemValue: browseUndeclared
+                )
+               (MenuItem
+                  activeHelpKey: classesSpecialReferencesToUndeclared
+                  label: 'Clear Undeclared Variables'
+                  itemValue: clearUndeclaredVariables
+                )
+               )
+              nil
+              nil
+            )
+          )
+         )
+        nil
+        nil
       )
 !
 
@@ -4657,6 +4666,16 @@
     "Created: / 28-10-2011 / 20:31:28 / cg"
 !
 
+findClassAndBrowse
+    |cls|
+
+    cls := UserPreferences current systemBrowserClass askForClass.
+    cls notNil ifTrue:[
+        UserPreferences current systemBrowserClass 
+            openInClass:cls selector:nil
+    ]
+!
+
 openMethodFinder
     "open the methodFinder (ported from squeak)"
 
@@ -4965,14 +4984,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.463 2013-06-25 17:09:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.464 2013-06-26 18:12:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.463 2013-06-25 17:09:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.464 2013-06-26 18:12:01 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.463 2013-06-25 17:09:16 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.464 2013-06-26 18:12:01 cg Exp $'
 ! !