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