# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256755984 -3600
# Node ID d028c545a0114627cb8f124b5d6ce93d4b3fa120
# Parent  4566dd920e0952d39c5b64c238e9599f64fa23d3
changes for better FileDialog

diff -r 4566dd920e09 -r d028c545a011 DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Wed Oct 28 19:53:02 2009 +0100
+++ b/DirectoryTreeBrowser.st	Wed Oct 28 19:53:04 2009 +0100
@@ -550,7 +550,6 @@
 !
 
 renameFileInTreeView
-
     self allowRenameOnOneClick ifTrue:[
         browser openEditor.
     ] ifFalse:[
@@ -638,7 +637,6 @@
 !
 
 toggleExpand:anItem
-
     (anItem notNil and:[anItem isDirectory]) ifTrue:[
 "/        self withWaitCursorDo:[
             anItem toggleExpand
@@ -649,7 +647,6 @@
 !
 
 toggleExpandSelectedItem
-
     |selDir|
 
     selDir := self selectedDirectoryItems.
@@ -659,7 +656,6 @@
 !
 
 updateSelectedItem
-
     | sel |
 
     sel := self selectedItems.
@@ -706,7 +702,6 @@
 !
 
 multipleSelect:aBoolean
-
     multipleSelect := aBoolean.
     browser notNil ifTrue:[
         browser multipleSelectOk:aBoolean.
@@ -714,8 +709,8 @@
 !
 
 newVisibilityHolder
-    "newVisibilityHolder
-    "
+    "newVisibilityHolder"
+
     newVisibilityHolder isNil ifTrue:[
         newVisibilityHolder := true asValue.
     ].
@@ -749,8 +744,13 @@
     ^ sortPropertyInTree.
 !
 
+sortPropertyInTree:aValueHolder
+    sortPropertyInTree removeDependent:self.
+    sortPropertyInTree := aValueHolder.
+    sortPropertyInTree addDependent:self.
+!
+
 treeSelectionHolder
-
     treeSelectionHolder isNil ifTrue:[
         treeSelectionHolder := ValueHolder new.
         treeSelectionHolder addDependent:self.
@@ -1113,8 +1113,8 @@
 
 selectFiles:aColOfFileOrDirectory
     "selects a file; if the file is not included in my
-     root directory, the root will be changed
-    "
+     root directory, the root will be changed"
+
     |items directory item newRoot|
 
     aColOfFileOrDirectory isEmpty ifTrue:[ self selectItems:#()].
@@ -1146,7 +1146,6 @@
 !
 
 selectItems:aColOfItems
-
     |currentSelection newSelection|
 
     currentSelection := self selectedItems.
@@ -1297,7 +1296,6 @@
 !
 
 release
-
     self fileList stopMonitoringTask.
     ^ super release.
 ! !
@@ -1337,9 +1335,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.112 2009-10-28 16:47:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.113 2009-10-28 18:53:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.112 2009-10-28 16:47:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.113 2009-10-28 18:53:04 cg Exp $'
 ! !