--- a/extensions.st	Wed Feb 08 10:43:08 2012 +0100
+++ b/extensions.st	Wed Feb 08 10:43:35 2012 +0100
@@ -225,6 +225,203 @@
     Transcript showCR:self class name, ': action for #svnUpdateWithExternalDiff3 ...'.
 ! !
 
+!AbstractFileBrowser class methodsFor:'menu specs'!
+
+scmMenuSlice
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+
+    "
+     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#scmMenuSlice
+     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser scmMenuSlice)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'CVS'
+            translateLabel: true
+            isVisible: cvsMenusAreShown
+            submenuChannel: cvsMenu
+          )
+         (MenuItem
+            label: 'SVN'
+            translateLabel: true
+            isVisible: svnMenusAreShown
+            submenuChannel: svnMenu
+          )
+         (MenuItem
+            label: 'Mercurial'
+            translateLabel: true
+            isVisible: mercurialMenusAreShown
+            submenuChannel: mercurialMenu
+          )
+         (MenuItem
+            label: 'Perforce'
+            translateLabel: true
+            isVisible: perforceMenusAreShown
+            submenuChannel: perforceMenu
+          )
+         )
+        nil
+        nil
+      )
+! !
+
+!AbstractFileBrowser class methodsFor:'menu specs-scm'!
+
+svnMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+
+    "
+     MenuEditor new openOnClass:AbstractFileBrowser andSelector:#svnMenu
+     (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser svnMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Commit'
+            itemValue: svnCommit
+            translateLabel: true
+            labelImage: (ResourceRetriever #'SVN::IconLibrary' commit 'Commit')
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Update'
+            itemValue: svnUpdate
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Update with External Diff3 '
+            itemValue: svnUpdateWithExternalDiff3
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Add'
+            itemValue: svnAdd
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Remove'
+            itemValue: svnRemove
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Revert'
+            itemValue: svnRevert
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Status'
+            itemValue: svnStatus
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Status (show updates)'
+            itemValue: svnStatusShowUpdates
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Info'
+            itemValue: svnInfo
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Merge...'
+            itemValue: svnMerge
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Merge with External Diff3...'
+            itemValue: svnMergeWithExternalDiff3
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Compare with HEAD'
+            itemValue: svnCompareWithHEAD
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Compare with Revision'
+            itemValue: svnCompare
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Diff (svn diff ...)'
+            itemValue: svnDiff
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            enabled: hasSubversionWorkingCopySelected
+            label: 'Debug'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: hasSubversionWorkingCopySelected
+                  label: 'Open Working Copy Browser'
+                  itemValue: svnDebugOpenWorkingCopyBrowser
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
+         )
+        nil
+        nil
+      )
+! !
+
 !ChangeSet methodsFor:'utilities'!
 
 condenseChangesForPackage2:aPackageSymbol