FileBrowserV2SettingsAppl.st
changeset 9580 0412197f0e64
parent 9117 e1a6bddb1943
child 9799 d908e671b942
--- a/FileBrowserV2SettingsAppl.st	Thu Oct 14 19:18:14 2010 +0200
+++ b/FileBrowserV2SettingsAppl.st	Fri Oct 15 10:31:34 2010 +0200
@@ -340,13 +340,15 @@
     aspectList := AbstractFileBrowser userPreferencesAspectList.
 
     writeToCurrentFileBrowser := (settingsDialog notNil and:[settingsDialog isKindOf:AbstractFileBrowser]).
-    aspectList do:[ :anAspect | |value|
+    aspectList keysDo:[ :anAspect | |value|
         value := (self perform:anAspect) value.
         (currentUserPrefs perform:((anAspect asString, ':') asSymbol) with:value).
         writeToCurrentFileBrowser ifTrue:[
             (settingsDialog perform:anAspect) value:value.
         ].
     ].
+
+    "Modified: / 15-10-2010 / 10:29:28 / cg"
 !
 
 helpFilename
@@ -410,10 +412,12 @@
 
 showHiddenFiles
     showHiddenFiles isNil ifTrue:[
-        showHiddenFiles := false asValue.
+        showHiddenFiles := true asValue.
         showHiddenFiles onChangeSend:#updateModifiedChannel to:self
     ].
     ^ showHiddenFiles
+
+    "Modified: / 15-10-2010 / 10:28:07 / cg"
 !
 
 sortCaseless
@@ -578,9 +582,9 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.23 2009-10-28 18:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.24 2010-10-15 08:31:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.23 2009-10-28 18:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.24 2010-10-15 08:31:34 cg Exp $'
 ! !