DirectoryTreeBrowser.st
branchjv
changeset 13182 bc686a7cc736
parent 12571 b2e5fdb702cb
parent 13154 2d99f6a0181b
child 13289 cc75e3cd0362
--- 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