--- 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 $'
! !