--- a/FileBrowserV2.st Sat Oct 08 13:54:46 2011 +0200
+++ b/FileBrowserV2.st Sat Oct 08 14:52:41 2011 +0200
@@ -1940,8 +1940,18 @@
postBuildWith:aBuilder
+ | prefs |
+
super postBuildWith:aBuilder.
self updateToolVisibility.
+
+ "Load user settings"
+ prefs := UserPreferences current.
+ AbstractFileBrowser userPreferencesAspectList keysAndValuesDo:[:aspect :default|
+ (self perform: aspect) value: (prefs perform: aspect ifNotUnderstood:[default])
+ ]
+
+ "Modified: / 08-10-2011 / 13:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
postOpenWith:aBuilder
@@ -1963,7 +1973,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.193 2011-10-06 12:57:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.194 2011-10-08 12:52:41 vrany Exp $'
! !
FileBrowserV2 initialize!