--- a/Tools__NewSystemBrowser.st	Thu May 08 15:05:08 2014 +0200
+++ b/Tools__NewSystemBrowser.st	Thu May 08 15:47:51 2014 +0200
@@ -13444,13 +13444,6 @@
           )
          (MenuItem
             enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
-            label: 'Edit Version in Repository...'
-            itemValue: classMenuEditVersionInRepository
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
-         (MenuItem
-            enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
             label: 'Browse and Compare All Versions in Repository'
             itemValue: classMenuBrowseAllVersionsInRepository
             translateLabel: true
@@ -13512,6 +13505,13 @@
           )
          (MenuItem
             enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+            label: 'Edit Version in Repository...'
+            itemValue: classMenuEditVersionInRepository
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
             label: 'Create PatchFile against Version...'
             itemValue: classMenuCreatePatchFileAgainstVersionFromRepository
             translateLabel: true
@@ -14227,6 +14227,20 @@
      #(Menu
         (
          (MenuItem
+            enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+            label: 'Edit Version in Repository...'
+            itemValue: classMenuEditVersionInRepository
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+            label: 'Create PatchFile against Version...'
+            itemValue: classMenuCreatePatchFileAgainstVersionFromRepository
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
             enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
             label: 'Set Tag...'
             itemValue: classMenuSetTag
@@ -14234,13 +14248,6 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
             showBusyCursorWhilePerforming: true
           )
-         (MenuItem
-            enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
-            label: 'Edit Version in Repository...'
-            itemValue: classMenuEditVersionInRepository
-            translateLabel: true
-            showBusyCursorWhilePerforming: true
-          )
          )
         nil
         nil
@@ -38922,6 +38929,7 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -54283,30 +54291,36 @@
                     [
                         |result moreResults extensionMethods arguments2|
 
-                        selector notNil ifTrue:[
-                            result := self class perform:selector withArguments:arguments.
-                        ] ifFalse:[
-                            result := aSelectorOrBlock valueWithArguments:arguments
-                        ].
-                        "/ sorry for this special case: when searching in a package,
-                        "/ also search extensionMethods
-                        dialog searchAreaSelected == #currentPackage ifTrue:[
-                            aSelectorOrBlock isArray ifTrue:[
-                                "/ findSendersOf:inMethods:ignoreCase:match:
-                                extensionMethods := environment allExtensionsForPackage:(dialog currentPackage).
-                                arguments2 := arguments copy.
-                                arguments2 at:2 put:extensionMethods.
-                                moreResults := self class perform:(aSelectorOrBlock at:2) withArguments:arguments2.
-                                result := result , moreResults.
-                            ]
-                        ].
-                        dialog metaclassesOnly ifTrue:[
-                            result := result select:[:m | m mclass isMeta]
-                        ] ifFalse:[
-                            dialog classesOnly ifTrue:[
-                                result := result reject:[:m | m mclass isMeta]
+                        ProgressNotification handle:[:ex |
+                            self infoLabelHolder value:('Searching... (%1%% done)' bindWith:(ex progressValue truncated)).
+                            ex proceed.
+                        ] do:[
+                            selector notNil ifTrue:[
+                                result := self class perform:selector withArguments:arguments.
+                            ] ifFalse:[
+                                result := aSelectorOrBlock valueWithArguments:arguments
                             ].
-                        ].
+                            "/ sorry for this special case: when searching in a package,
+                            "/ also search extensionMethods
+                            dialog searchAreaSelected == #currentPackage ifTrue:[
+                                aSelectorOrBlock isArray ifTrue:[
+                                    "/ findSendersOf:inMethods:ignoreCase:match:
+                                    extensionMethods := environment allExtensionsForPackage:(dialog currentPackage).
+                                    arguments2 := arguments copy.
+                                    arguments2 at:2 put:extensionMethods.
+                                    moreResults := self class perform:(aSelectorOrBlock at:2) withArguments:arguments2.
+                                    result := result , moreResults.
+                                ]
+                            ].
+                            dialog metaclassesOnly ifTrue:[
+                                result := result select:[:m | m mclass isMeta]
+                            ] ifFalse:[
+                                dialog classesOnly ifTrue:[
+                                    result := result reject:[:m | m mclass isMeta]
+                                ].
+                            ].
+                        ].
+                        self infoLabelHolder value:nil.
                         result
                     ].
 
@@ -61526,11 +61540,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2067 2014-05-07 16:10:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2068 2014-05-08 13:47:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2067 2014-05-07 16:10:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2068 2014-05-08 13:47:51 cg Exp $'
 !
 
 version_HG
@@ -61539,7 +61553,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2067 2014-05-07 16:10:24 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2068 2014-05-08 13:47:51 cg Exp $'
 ! !