--- a/DirectoryTreeBrowser.st Mon Jul 15 13:16:46 2013 +0100
+++ b/DirectoryTreeBrowser.st Tue Jul 16 17:18:09 2013 +0100
@@ -66,11 +66,8 @@
"
! !
-
!DirectoryTreeBrowser class methodsFor:'instance creation'!
-
-
openOn:aFileName
| file |
@@ -102,7 +99,6 @@
"
! !
-
!DirectoryTreeBrowser class methodsFor:'defaults'!
timeForExpandOnDropInMilliseconds
@@ -110,7 +106,6 @@
^ 1500
! !
-
!DirectoryTreeBrowser class methodsFor:'interface specs'!
windowSpec
@@ -179,7 +174,6 @@
)
! !
-
!DirectoryTreeBrowser class methodsFor:'menu specs'!
menu
@@ -400,7 +394,6 @@
)
! !
-
!DirectoryTreeBrowser class methodsFor:'plugIn spec'!
aspectSelectors
@@ -415,7 +408,7 @@
(if this app is embedded in a subCanvas)."
^ #(
- selectedDirectoryModel
+ treeSelectionHolder
rootHolder
filterModel
showFiles
@@ -423,7 +416,6 @@
).
! !
-
!DirectoryTreeBrowser methodsFor:'accessing'!
allowRenameOnOneClick
@@ -456,7 +448,6 @@
^ updateTreeSelection
! !
-
!DirectoryTreeBrowser methodsFor:'actions'!
doDoubleClick:anIndex
@@ -712,7 +703,6 @@
]
! !
-
!DirectoryTreeBrowser methodsFor:'aspects'!
allowFileOperations
@@ -804,9 +794,14 @@
treeSelectionHolder addDependent:self.
].
^ treeSelectionHolder
+!
+
+treeSelectionHolder:aValueHolder
+ treeSelectionHolder removeDependent:self.
+ treeSelectionHolder := aValueHolder.
+ treeSelectionHolder addDependent:self.
! !
-
!DirectoryTreeBrowser methodsFor:'change & update'!
changeMatchBlock
@@ -925,7 +920,6 @@
^ self
! !
-
!DirectoryTreeBrowser methodsFor:'drag & drop'!
dropDestinationPath
@@ -1052,7 +1046,6 @@
afterMilliseconds:(self class timeForExpandOnDropInMilliseconds).
! !
-
!DirectoryTreeBrowser methodsFor:'event handling'!
processEvent:anEvent
@@ -1114,7 +1107,6 @@
^ false
! !
-
!DirectoryTreeBrowser methodsFor:'queries'!
hasOpenEditor
@@ -1144,7 +1136,6 @@
"/ ^ false
! !
-
!DirectoryTreeBrowser methodsFor:'selection'!
firstSelectedDirectory
@@ -1268,7 +1259,6 @@
^ Array with:selection. "Wrap single value into Array"
! !
-
!DirectoryTreeBrowser methodsFor:'startup & release'!
makeDependent
@@ -1371,7 +1361,6 @@
^ super release.
! !
-
!DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'accessing'!
draggedItem
@@ -1384,7 +1373,6 @@
draggedItem := anItemOrNil.
! !
-
!DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'protocol'!
grayDirectoryIcon
@@ -1405,15 +1393,14 @@
^ super iconFor:anItem.
! !
-
!DirectoryTreeBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.123 2013-03-24 11:40:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.124 2013-07-10 10:14:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.123 2013-03-24 11:40:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.124 2013-07-10 10:14:03 cg Exp $'
!
version_HG