changed: #postBuildWith: - read settings from user preferences
authorvrany
Sat, 08 Oct 2011 14:52:41 +0200
changeset 10787 637d7e03d602
parent 10786 2499584c6260
child 10788 14e0e02da097
changed: #postBuildWith: - read settings from user preferences
FileBrowserV2.st
--- 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!