--- a/NewLauncher.st	Fri Feb 15 14:13:57 2002 +0100
+++ b/NewLauncher.st	Fri Feb 15 14:26:07 2002 +0100
@@ -1053,6 +1053,7 @@
             #nameKey: #systemBrowser
             #value: #openApplication:
             #activeHelpKey: #classesSystemBrowser
+            #showBusyCursorWhilePerforming: true
             #argument: 'SystemBrowser'
             #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')
           )
@@ -1073,6 +1074,7 @@
             #nameKey: #startChangeSetBrowser
             #value: #startChangeSetBrowser
             #activeHelpKey: #startChangeSetBrowser
+            #showBusyCursorWhilePerforming: true
           )
          #(#MenuItem
             #label: 'Changed Classes'
@@ -1080,6 +1082,7 @@
             #nameKey: #classBrowserOnChanges
             #value: #startClassBrowserOnChanges
             #activeHelpKey: #classesClassBrowserOnChanges
+            #showBusyCursorWhilePerforming: true
           )
          #(#MenuItem
             #label: 'Changed Methods'
@@ -1087,34 +1090,66 @@
             #nameKey: #classBrowserOnChangedMethods
             #value: #startClassBrowserOnChangedMethods
             #activeHelpKey: #classBrowserOnChangedMethods
+            #showBusyCursorWhilePerforming: true
           )
          #(#MenuItem
             #label: '-'
           )
          #(#MenuItem
-            #label: 'Class Browser on...'
-            #translateLabel: true
-            #nameKey: #classBrowserOn
-            #value: #startClassBrowser
-            #activeHelpKey: #classesClassBrowser
-          )
-         #(#MenuItem
-            #label: 'Full Class Browser on...'
+            #label: 'Special Browsers'
             #translateLabel: true
-            #value: #startFullClassBrowser
-            #activeHelpKey: #classesFullClassBrowser
-          )
-         #(#MenuItem
-            #label: 'Class Hierarchy Browser on...'
-            #translateLabel: true
-            #value: #startClassHierarchyBrowser
-            #activeHelpKey: #classesClassHierarchyBrowser
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'Class Browser on...'
+                  #translateLabel: true
+                  #nameKey: #classBrowserOn
+                  #value: #startClassBrowser
+                  #activeHelpKey: #classesClassBrowser
+                  #showBusyCursorWhilePerforming: true
+                )
+               #(#MenuItem
+                  #label: 'Full Class Browser on...'
+                  #translateLabel: true
+                  #value: #startFullClassBrowser
+                  #activeHelpKey: #classesFullClassBrowser
+                  #showBusyCursorWhilePerforming: true
+                )
+               #(#MenuItem
+                  #label: 'Class Hierarchy Browser on...'
+                  #translateLabel: true
+                  #value: #startClassHierarchyBrowser
+                  #activeHelpKey: #classesClassHierarchyBrowser
+                  #showBusyCursorWhilePerforming: true
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Snapshot Image Browser...'
+                  #translateLabel: true
+                  #value: #startSnapshotImageBrowser
+                  #showBusyCursorWhilePerforming: true
+                )
+               #(#MenuItem
+                  #label: 'Remote Image Browser...'
+                  #translateLabel: true
+                  #value: #startRemoteImageBrowser
+                  #enabled: #remoteImageBrowserAvailable
+                  #showBusyCursorWhilePerforming: true
+                )
+               )
+              nil
+              nil
+            )
           )
          #(#MenuItem
             #label: 'Class Tree'
             #translateLabel: true
             #value: #openApplication:
             #activeHelpKey: #classesClassTreeBrowser
+            #showBusyCursorWhilePerforming: true
             #argument: 'ClassTreeGraphView'
           )
          #(#MenuItem
@@ -1125,12 +1160,14 @@
             #translateLabel: true
             #value: #browseImplementors
             #activeHelpKey: #classesImplementors
+            #showBusyCursorWhilePerforming: true
           )
          #(#MenuItem
             #label: 'Senders of...'
             #translateLabel: true
             #value: #browseSenders
             #activeHelpKey: #classesSenders
+            #showBusyCursorWhilePerforming: true
           )
          #(#MenuItem
             #label: '-'
@@ -4115,5 +4152,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.245 2001-12-14 09:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.246 2002-02-15 13:26:07 cg Exp $'
 ! !