equal
deleted
inserted
replaced
724 " if viewFiles is false i can't take my |
724 " if viewFiles is false i can't take my |
725 selection to overwrite currentFileNameHolder" |
725 selection to overwrite currentFileNameHolder" |
726 |
726 |
727 sel := self selectedFiles. |
727 sel := self selectedFiles. |
728 (self viewFilesInDirectoryTree value not) ifTrue:[ |
728 (self viewFilesInDirectoryTree value not) ifTrue:[ |
729 (self currentFilesAreInSameDirectory and:[sel size == 1]) ifTrue:[ |
729 (self currentFilesAreInSameDirectory and:[sel size == 1 and:[self currentFileNameHolder value notEmpty]]) ifTrue:[ |
730 currentFileDir := self getDirWithoutFileName:(self currentFileNameHolder value first). |
730 currentFileDir := self getDirWithoutFileName:(self currentFileNameHolder value first). |
731 (sel first = currentFileDir) ifTrue:[ |
731 (sel first = currentFileDir) ifTrue:[ |
732 ^ self. |
732 ^ self. |
733 ]. |
733 ]. |
734 ]. |
734 ]. |
1188 browser multipleSelectOk:self multipleSelect. |
1188 browser multipleSelectOk:self multipleSelect. |
1189 ! |
1189 ! |
1190 |
1190 |
1191 postOpen |
1191 postOpen |
1192 |
1192 |
|
1193 self windowGroup application class == FileBrowserV2 ifTrue:[ |
|
1194 self multipleSelect:true. |
|
1195 ]. |
1193 self rootHolderChanged. |
1196 self rootHolderChanged. |
1194 self currentFileNameHolderChangedForCommon. |
1197 self currentFileNameHolderChangedForCommon. |
1195 self currentFileNameHolderChanged. |
1198 self currentFileNameHolderChanged. |
1196 self sortFileListsBy:self sortPropertyInTree value. |
1199 self sortFileListsBy:self sortPropertyInTree value. |
1197 self windowGroup addPreEventHook:self. |
1200 self windowGroup addPreEventHook:self. |
1236 ! ! |
1239 ! ! |
1237 |
1240 |
1238 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1241 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1239 |
1242 |
1240 version |
1243 version |
1241 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.63 2003-05-07 14:40:03 cg Exp $' |
1244 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.64 2003-05-13 14:05:07 penk Exp $' |
1242 ! ! |
1245 ! ! |