hg menu preps
authorClaus Gittinger <cg@exept.de>
Sun, 15 Jan 2012 13:12:02 +0100
changeset 11136 ae12e3fa6dcd
parent 11135 59e1d94df37f
child 11137 00363dec1b9c
hg menu preps
FileBrowserV2.st
--- a/FileBrowserV2.st	Sun Jan 15 13:11:35 2012 +0100
+++ b/FileBrowserV2.st	Sun Jan 15 13:12:02 2012 +0100
@@ -809,6 +809,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:FileBrowserV2 andSelector:#mainMenu
      (Menu new fromLiteralArrayEncoding:(FileBrowserV2 mainMenu)) startUp
@@ -918,15 +919,22 @@
          (MenuItem
             label: 'CVS'
             translateLabel: true
+            isVisible: cvsMenusAreShown
             submenuChannel: cvsMenu
           )
          (MenuItem
             label: 'SVN'
             translateLabel: true
-            isVisible: hasSubversionSupport
+            isVisible: svnMenusAreShown
             submenuChannel: svnMenu
           )
          (MenuItem
+            label: 'Mercurial'
+            translateLabel: true
+            isVisible: mercurialMenusAreShown
+            submenuChannel: mercurialMenu
+          )
+         (MenuItem
             label: 'MENU_Help'
             translateLabel: true
             startGroup: conditionalRight
@@ -957,7 +965,7 @@
         nil
       )
 
-    "Modified: / 06-01-2012 / 15:31:12 / cg"
+    "Modified: / 15-01-2012 / 13:08:52 / cg"
 !
 
 previewLabelMenu
@@ -1987,7 +1995,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.196 2012-01-06 23:31:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.197 2012-01-15 12:12:02 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!