equal
deleted
inserted
replaced
1 "{ Package: 'stx:libtool' }" |
1 "{ Package: 'stx:libtool' }" |
2 |
2 |
3 AbstractFileBrowser subclass:#DirectoryTreeBrowser |
3 AbstractFileBrowser subclass:#DirectoryTreeBrowser |
4 instanceVariableNames:'rootHolder dirBrowser updateToExternFileHolderLock oldDropItem |
4 instanceVariableNames:'rootHolder dirBrowser updateToExternFileHolderLock oldDropItem |
5 expandItemTimedBlock updateTreeSelection inDropMode canDropItem |
5 expandItemTimedBlock updateTreeSelection inDropMode canDropItem |
6 doubleClickAction newVisibilityHolder allowFileOperations |
6 doubleClickAction newVisibilityHolder allowFileOperations |
7 multipleSelect treeSelectionHolder' |
7 multipleSelect treeSelectionHolder' |
8 classVariableNames:'' |
8 classVariableNames:'' |
9 poolDictionaries:'' |
9 poolDictionaries:'' |
10 category:'Interface-Tools-File' |
10 category:'Interface-Tools-File' |
11 ! |
11 ! |
12 |
12 |
13 HierarchicalFileList subclass:#DirTreeBrowserHFL |
13 HierarchicalFileList subclass:#DirTreeBrowserHFL |
14 instanceVariableNames:'draggedItem grayDirectoryIcon' |
14 instanceVariableNames:'draggedItem grayDirectoryIcon' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 privateIn:DirectoryTreeBrowser |
17 privateIn:DirectoryTreeBrowser |
18 ! |
18 ! |
19 |
19 |
20 !DirectoryTreeBrowser class methodsFor:'documentation'! |
20 !DirectoryTreeBrowser class methodsFor:'documentation'! |
21 |
21 |
22 documentation |
22 documentation |
572 ]. |
572 ]. |
573 ! |
573 ! |
574 |
574 |
575 selectionChanged |
575 selectionChanged |
576 |
576 |
577 | sel currentFileDir| |
577 |sel currentFileDir| |
578 |
578 |
579 " if viewFiles is false i cant take my |
579 " if viewFiles is false i can't take my |
580 selction to overwrite currentFileNameHolder |
580 selection to overwrite currentFileNameHolder" |
581 " |
581 |
582 sel := self selectedFiles. |
582 sel := self selectedFiles. |
583 (self viewFilesInDirectoryTree value not) ifTrue:[ |
583 (self viewFilesInDirectoryTree value not) ifTrue:[ |
584 (self currentFilesAreInSameDirectory and:[sel size == 1]) ifTrue:[ |
584 (self currentFilesAreInSameDirectory and:[sel size == 1]) ifTrue:[ |
585 currentFileDir := self getDirWithoutFileName:(self currentFileNameHolder value first). |
585 currentFileDir := self getDirWithoutFileName:(self currentFileNameHolder value first). |
586 (sel first = currentFileDir) ifTrue:[ |
586 (sel first = currentFileDir) ifTrue:[ |
1058 |
1058 |
1059 | selection | |
1059 | selection | |
1060 |
1060 |
1061 selection := self treeSelectionHolder value. |
1061 selection := self treeSelectionHolder value. |
1062 selection isNil ifTrue:[ ^ #() ]. |
1062 selection isNil ifTrue:[ ^ #() ]. |
|
1063 selection size == 0 ifTrue:[^ Array with:selection]. "Wrap single value into Array" |
1063 ^ selection |
1064 ^ selection |
1064 ! ! |
1065 ! ! |
1065 |
1066 |
1066 !DirectoryTreeBrowser methodsFor:'startup & release'! |
1067 !DirectoryTreeBrowser methodsFor:'startup & release'! |
1067 |
1068 |
1190 ! ! |
1191 ! ! |
1191 |
1192 |
1192 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1193 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1193 |
1194 |
1194 version |
1195 version |
1195 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.19 2002-10-14 16:02:02 penk Exp $' |
1196 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.20 2002-10-14 19:33:02 stefan Exp $' |
1196 ! ! |
1197 ! ! |