--- a/FileBrowserV2.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/FileBrowserV2.st	Sun Jan 29 15:33:37 2012 +0000
@@ -332,49 +332,10 @@
 #numberOfFiles
 'Number of files shown (Total number of files in directory)'
 
-)
-!
-
-helpSpec
-    "This resource specification was automatically generated
-     by the UIHelpTool of ST/X."
-
-    "Do not manually edit this!! If it is corrupted,
-     the UIHelpTool may not be able to read the specification."
-
-    "
-     UIHelpTool openOnClass:FileBrowserV2    
-    "
-
-    <resource: #help>
-
-    ^ super helpSpec addPairsFrom:#(
-
-#addTerminal
-''
-
-#columnLabel
-'The text-cursor''s column number.'
-
-#editFile
-''
-
-#encodingLabel
-'The files encoding.'
-
-#encodingLockedLabel
-'Lock the file-encoding (do not try to guess from the file''s contents).'
-
-#lineLabel
-'The text-cursor''s line number.'
-
-#make
-''
-
-#modeLabel
-'The editing mode (insert vs. overwrite).'
 
 )
+
+    "Modified: / 06-10-2011 / 14:37:12 / cg"
 ! !
 
 !FileBrowserV2 class methodsFor:'image specs'!
@@ -848,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
@@ -952,15 +914,33 @@
          (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: 'Perforce'
+            translateLabel: true
+            isVisible: perforceMenusAreShown
+            submenuChannel: perforceMenu
+          )
+         (MenuItem
+            label: 'Extras'
+            translateLabel: true
+            submenuChannel: extraMenu
+          )
+         (MenuItem
             label: 'MENU_Help'
             translateLabel: true
             startGroup: conditionalRight
@@ -1979,8 +1959,25 @@
 
 postBuildWith:aBuilder
 
+    | prefs |
+
     super postBuildWith:aBuilder.
     self updateToolVisibility.
+
+    "Load user settings"
+    prefs := UserPreferences current.
+    AbstractFileBrowser userPreferencesAspectList keysAndValuesDo:[:aspect :default|
+        | value |
+
+        (prefs respondsTo: aspect) ifTrue:[
+            value := prefs perform: aspect
+        ] ifFalse:[
+            value := prefs at: aspect ifAbsent:[default].
+        ].
+        (self perform: aspect) value: value
+    ]
+
+    "Modified: / 10-10-2011 / 10:54:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 postOpenWith:aBuilder
@@ -2002,7 +1999,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.192 2011/07/07 14:15:31 vrany Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.199 2012/01/19 15:44:18 cg Exp §'
 ! !
 
-FileBrowserV2 initialize!
\ No newline at end of file
+FileBrowserV2 initialize!