changed:6 methods
authorClaus Gittinger <cg@exept.de>
Sun, 04 Oct 2009 20:10:32 +0200
changeset 8871 d785afd44f31
parent 8870 5bd0d4eecb35
child 8872 4e7b577815f3
changed:6 methods
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- a/NewSystemBrowser.st	Sun Oct 04 19:42:03 2009 +0200
+++ b/NewSystemBrowser.st	Sun Oct 04 20:10:32 2009 +0200
@@ -4481,14 +4481,14 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             enabled: hasCategorySelectedHolder
             label: 'FileOut'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -4552,7 +4552,7 @@
             enabled: hasSourceCodeManagerHolder
             label: 'CVS'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -4570,6 +4570,7 @@
                   label: 'CheckOut Newest All'
                   itemValue: categoryMenuCheckOutNewest
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest All')
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
@@ -4593,13 +4594,12 @@
               nil
               nil
             )
-          )
-         )
-        nil
-        nil
-      )
-
-    "Modified: / 20-09-2007 / 14:58:51 / cg"
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCVSIcon 'CVS')
+          )
+         )
+        nil
+        nil
+      )
 !
 
 categoryMenuNewAndRenameSlice
@@ -5623,6 +5623,7 @@
             label: 'CVS'
             translateLabel: true
             submenuChannel: classRepositoryMenu
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCVSIcon 'CVS')
             keepLinkedMenu: true
           )
          (MenuItem
@@ -5631,7 +5632,7 @@
             translateLabel: true
             isVisible: hasSubversionSupport
             submenuChannel: classMenuSubversion
-            labelImage: (ResourceRetriever ToolbarIconLibrary #'svn_persp' 'SubVersion')
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositorySVNIcon 'SubVersion')
           )
          (MenuItem
             label: 'SmallTeam'
@@ -6212,17 +6213,17 @@
 
     <resource: #menu>
 
-    ^
-     #(Menu
-        (
-         (MenuItem
-            isVisible: hasNoSourceCodeManagerHolder
+    ^ 
+     #(Menu
+        (
+         (MenuItem
             label: '** No SourceCodeManager - See Settings in the Launcher **'
             translateLabel: true
-          )
-         (MenuItem
             isVisible: hasNoSourceCodeManagerHolder
-            label: '-'
+          )
+         (MenuItem
+            label: '-'
+            isVisible: hasNoSourceCodeManagerHolder
           )
          (MenuItem
             enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
@@ -6267,6 +6268,7 @@
             label: 'Set Tag...'
             itemValue: classMenuSetTag
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -6277,6 +6279,7 @@
             label: 'CheckOut Newest'
             itemValue: classMenuCheckOutNewest
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -6303,7 +6306,6 @@
             translateLabel: true
             showBusyCursorWhilePerforming: true
           )
-
          (MenuItem
             label: '-'
           )
@@ -6312,6 +6314,7 @@
             label: 'Compare with Newest in Repository...'
             itemValue: classMenuCompareAgainstNewestInRepository
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -6335,7 +6338,7 @@
             translateLabel: true
             showBusyCursorWhilePerforming: true
           )
-          (MenuItem
+         (MenuItem
             enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
             label: 'Compare Build Support File'
             translateLabel: true
@@ -6345,8 +6348,6 @@
         nil
         nil
       )
-
-    "Modified: / 19-03-2007 / 11:16:33 / cg"
 !
 
 classSmallTeamMenu
@@ -7362,125 +7363,124 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:NewSystemBrowser andSelector:#nameSpaceMenu
-     (Menu new fromLiteralArrayEncoding:(NewSystemBrowser nameSpaceMenu)) startUp
-    "
-
-    <resource: #menu>
-
-    ^
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'CVS'
-            #translateLabel: true
-            #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-            #submenu:
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'CheckIn All...'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuCheckInAll
-                  #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-                  #showBusyCursorWhilePerforming: true
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'CheckOut Newest All'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuCheckOutNewest
-                  #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-                  #showBusyCursorWhilePerforming: true
-                )
-               #(#MenuItem
-                  #label: 'CheckOut Previous Version All...'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuCheckOut
-                  #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-                  #showBusyCursorWhilePerforming: true
-                )
-               )
-              nil
-              nil
-            )
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'Spawn'
-            #translateLabel: true
-            #enabled: #hasNameSpaceSelectedHolder
-            #submenu:
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Buffer'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuSpawnBuffer
-                  #enabled: #hasNameSpaceSelectedHolder
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'Browser'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuSpawn
-                  #enabled: #hasNameSpaceSelectedHolder
-                )
-               )
-              nil
-              nil
-            )
-          )
-         #(#MenuItem
-            #label: 'Find'
-            #translateLabel: true
-            #submenuChannel: #searchMenu
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'New...'
-            #translateLabel: true
-            #value: #nameSpaceMenuNew
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'Rename'
-            #translateLabel: true
-            #value: #nameSpaceMenuRename
-            #enabled: #canRenameNameSpaceHolder
-          )
-         #(#MenuItem
-            #label: 'Remove'
-            #translateLabel: true
-            #value: #nameSpaceMenuRemove
-            #enabled: #canRemoveNameSpaceHolder
-            #showBusyCursorWhilePerforming: true
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'Update'
-            #translateLabel: true
-            #showBusyCursorWhilePerforming: true
-            #value: #nameSpaceMenuUpdate
-          )
-         )
-        nil
-        nil
-      )
-
-    "Modified: / 29-09-2006 / 16:11:01 / cg"
+     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#nameSpaceMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser nameSpaceMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+            label: 'CVS'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+                  label: 'CheckIn All...'
+                  itemValue: nameSpaceMenuCheckInAll
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+                  label: 'CheckOut Newest All'
+                  itemValue: nameSpaceMenuCheckOutNewest
+                  translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest All')
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+                  label: 'CheckOut Previous Version All...'
+                  itemValue: nameSpaceMenuCheckOut
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasNameSpaceSelectedHolder
+            label: 'Spawn'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasNameSpaceSelectedHolder
+                  label: 'Buffer'
+                  itemValue: nameSpaceMenuSpawnBuffer
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasNameSpaceSelectedHolder
+                  label: 'Browser'
+                  itemValue: nameSpaceMenuSpawn
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: 'Find'
+            translateLabel: true
+            submenuChannel: searchMenu
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'New...'
+            itemValue: nameSpaceMenuNew
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: canRenameNameSpaceHolder
+            label: 'Rename'
+            itemValue: nameSpaceMenuRename
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: canRemoveNameSpaceHolder
+            label: 'Remove'
+            itemValue: nameSpaceMenuRemove
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Update'
+            itemValue: nameSpaceMenuUpdate
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         )
+        nil
+        nil
+      )
 !
 
 projectMenu
@@ -7617,6 +7617,7 @@
                   label: 'Set Tag (Release As)...'
                   itemValue: projectMenuSetTag
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
                 )
                (MenuItem
                   label: '-'
@@ -7626,6 +7627,7 @@
                   label: 'CheckOut Newest'
                   itemValue: projectMenuCheckOutNewest
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
@@ -8984,14 +8986,14 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             enabled: hasMethodSelectedHolder
             label: 'FileOut'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -9024,7 +9026,7 @@
             enabled: hasMethodSelected
             label: 'CVS'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -9049,6 +9051,7 @@
                   label: 'Compare with Newest in Repository...'
                   itemValue: selectorMenuCompareAgainstNewestInRepository
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
                 )
                (MenuItem
                   enabled: hasMethodSelectedAndSourceCodeManagerHolder
@@ -42904,11 +42907,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1320 2009-10-04 13:40:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1321 2009-10-04 18:10:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1320 2009-10-04 13:40:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1321 2009-10-04 18:10:32 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Sun Oct 04 19:42:03 2009 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Oct 04 20:10:32 2009 +0200
@@ -4481,14 +4481,14 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             enabled: hasCategorySelectedHolder
             label: 'FileOut'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -4552,7 +4552,7 @@
             enabled: hasSourceCodeManagerHolder
             label: 'CVS'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -4570,6 +4570,7 @@
                   label: 'CheckOut Newest All'
                   itemValue: categoryMenuCheckOutNewest
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest All')
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
@@ -4593,13 +4594,12 @@
               nil
               nil
             )
-          )
-         )
-        nil
-        nil
-      )
-
-    "Modified: / 20-09-2007 / 14:58:51 / cg"
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCVSIcon 'CVS')
+          )
+         )
+        nil
+        nil
+      )
 !
 
 categoryMenuNewAndRenameSlice
@@ -5623,6 +5623,7 @@
             label: 'CVS'
             translateLabel: true
             submenuChannel: classRepositoryMenu
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCVSIcon 'CVS')
             keepLinkedMenu: true
           )
          (MenuItem
@@ -5631,7 +5632,7 @@
             translateLabel: true
             isVisible: hasSubversionSupport
             submenuChannel: classMenuSubversion
-            labelImage: (ResourceRetriever ToolbarIconLibrary #'svn_persp' 'SubVersion')
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositorySVNIcon 'SubVersion')
           )
          (MenuItem
             label: 'SmallTeam'
@@ -6212,17 +6213,17 @@
 
     <resource: #menu>
 
-    ^
-     #(Menu
-        (
-         (MenuItem
-            isVisible: hasNoSourceCodeManagerHolder
+    ^ 
+     #(Menu
+        (
+         (MenuItem
             label: '** No SourceCodeManager - See Settings in the Launcher **'
             translateLabel: true
-          )
-         (MenuItem
             isVisible: hasNoSourceCodeManagerHolder
-            label: '-'
+          )
+         (MenuItem
+            label: '-'
+            isVisible: hasNoSourceCodeManagerHolder
           )
          (MenuItem
             enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
@@ -6267,6 +6268,7 @@
             label: 'Set Tag...'
             itemValue: classMenuSetTag
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -6277,6 +6279,7 @@
             label: 'CheckOut Newest'
             itemValue: classMenuCheckOutNewest
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -6303,7 +6306,6 @@
             translateLabel: true
             showBusyCursorWhilePerforming: true
           )
-
          (MenuItem
             label: '-'
           )
@@ -6312,6 +6314,7 @@
             label: 'Compare with Newest in Repository...'
             itemValue: classMenuCompareAgainstNewestInRepository
             translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -6335,7 +6338,7 @@
             translateLabel: true
             showBusyCursorWhilePerforming: true
           )
-          (MenuItem
+         (MenuItem
             enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
             label: 'Compare Build Support File'
             translateLabel: true
@@ -6345,8 +6348,6 @@
         nil
         nil
       )
-
-    "Modified: / 19-03-2007 / 11:16:33 / cg"
 !
 
 classSmallTeamMenu
@@ -7362,125 +7363,124 @@
      the MenuEditor may not be able to read the specification."
 
     "
-     MenuEditor new openOnClass:NewSystemBrowser andSelector:#nameSpaceMenu
-     (Menu new fromLiteralArrayEncoding:(NewSystemBrowser nameSpaceMenu)) startUp
-    "
-
-    <resource: #menu>
-
-    ^
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'CVS'
-            #translateLabel: true
-            #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-            #submenu:
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'CheckIn All...'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuCheckInAll
-                  #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-                  #showBusyCursorWhilePerforming: true
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'CheckOut Newest All'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuCheckOutNewest
-                  #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-                  #showBusyCursorWhilePerforming: true
-                )
-               #(#MenuItem
-                  #label: 'CheckOut Previous Version All...'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuCheckOut
-                  #enabled: #hasNameSpaceSelectedAndSourceCodeManagerHolder
-                  #showBusyCursorWhilePerforming: true
-                )
-               )
-              nil
-              nil
-            )
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'Spawn'
-            #translateLabel: true
-            #enabled: #hasNameSpaceSelectedHolder
-            #submenu:
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Buffer'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuSpawnBuffer
-                  #enabled: #hasNameSpaceSelectedHolder
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'Browser'
-                  #translateLabel: true
-                  #value: #nameSpaceMenuSpawn
-                  #enabled: #hasNameSpaceSelectedHolder
-                )
-               )
-              nil
-              nil
-            )
-          )
-         #(#MenuItem
-            #label: 'Find'
-            #translateLabel: true
-            #submenuChannel: #searchMenu
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'New...'
-            #translateLabel: true
-            #value: #nameSpaceMenuNew
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'Rename'
-            #translateLabel: true
-            #value: #nameSpaceMenuRename
-            #enabled: #canRenameNameSpaceHolder
-          )
-         #(#MenuItem
-            #label: 'Remove'
-            #translateLabel: true
-            #value: #nameSpaceMenuRemove
-            #enabled: #canRemoveNameSpaceHolder
-            #showBusyCursorWhilePerforming: true
-          )
-         #(#MenuItem
-            #label: '-'
-          )
-         #(#MenuItem
-            #label: 'Update'
-            #translateLabel: true
-            #showBusyCursorWhilePerforming: true
-            #value: #nameSpaceMenuUpdate
-          )
-         )
-        nil
-        nil
-      )
-
-    "Modified: / 29-09-2006 / 16:11:01 / cg"
+     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#nameSpaceMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser nameSpaceMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+            label: 'CVS'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+                  label: 'CheckIn All...'
+                  itemValue: nameSpaceMenuCheckInAll
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+                  label: 'CheckOut Newest All'
+                  itemValue: nameSpaceMenuCheckOutNewest
+                  translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest All')
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
+                  enabled: hasNameSpaceSelectedAndSourceCodeManagerHolder
+                  label: 'CheckOut Previous Version All...'
+                  itemValue: nameSpaceMenuCheckOut
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasNameSpaceSelectedHolder
+            label: 'Spawn'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasNameSpaceSelectedHolder
+                  label: 'Buffer'
+                  itemValue: nameSpaceMenuSpawnBuffer
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  enabled: hasNameSpaceSelectedHolder
+                  label: 'Browser'
+                  itemValue: nameSpaceMenuSpawn
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
+            label: 'Find'
+            translateLabel: true
+            submenuChannel: searchMenu
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'New...'
+            itemValue: nameSpaceMenuNew
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: canRenameNameSpaceHolder
+            label: 'Rename'
+            itemValue: nameSpaceMenuRename
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: canRemoveNameSpaceHolder
+            label: 'Remove'
+            itemValue: nameSpaceMenuRemove
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Update'
+            itemValue: nameSpaceMenuUpdate
+            translateLabel: true
+            showBusyCursorWhilePerforming: true
+          )
+         )
+        nil
+        nil
+      )
 !
 
 projectMenu
@@ -7617,6 +7617,7 @@
                   label: 'Set Tag (Release As)...'
                   itemValue: projectMenuSetTag
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
                 )
                (MenuItem
                   label: '-'
@@ -7626,6 +7627,7 @@
                   label: 'CheckOut Newest'
                   itemValue: projectMenuCheckOutNewest
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
@@ -8984,14 +8986,14 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             enabled: hasMethodSelectedHolder
             label: 'FileOut'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -9024,7 +9026,7 @@
             enabled: hasMethodSelected
             label: 'CVS'
             translateLabel: true
-            submenu:
+            submenu: 
            (Menu
               (
                (MenuItem
@@ -9049,6 +9051,7 @@
                   label: 'Compare with Newest in Repository...'
                   itemValue: selectorMenuCompareAgainstNewestInRepository
                   translateLabel: true
+                  labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
                 )
                (MenuItem
                   enabled: hasMethodSelectedAndSourceCodeManagerHolder
@@ -42904,11 +42907,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1320 2009-10-04 13:40:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1321 2009-10-04 18:10:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1320 2009-10-04 13:40:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1321 2009-10-04 18:10:32 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!