equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libtool' }" |
14 "{ Package: 'stx:libtool' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 AbstractDirectoryBrowser subclass:#DirectoryTreeBrowser |
18 AbstractDirectoryBrowser subclass:#DirectoryTreeBrowser |
15 instanceVariableNames:'oldDropItem expandItemTimedBlock updateTreeSelection |
19 instanceVariableNames:'oldDropItem expandItemTimedBlock updateTreeSelection |
16 doubleClickAction newVisibilityHolder allowFileOperations |
20 doubleClickAction newVisibilityHolder allowFileOperations |
17 multipleSelect treeSelectionHolder sortInTreeVisibilityHolder |
21 multipleSelect treeSelectionHolder sortInTreeVisibilityHolder |
1010 |selectedItems string fnName stream| |
1014 |selectedItems string fnName stream| |
1011 |
1015 |
1012 selectedItems := self selectedItems. |
1016 selectedItems := self selectedItems. |
1013 selectedItems isEmpty ifTrue:[ ^ '']. |
1017 selectedItems isEmpty ifTrue:[ ^ '']. |
1014 |
1018 |
1015 stream := WriteStream on:''. |
1019 stream := CharacterWriteStream with:(selectedItems first baseName). |
1016 stream nextPutAll:(selectedItems first baseName). |
|
1017 selectedItems size == 1 ifTrue:[ |
1020 selectedItems size == 1 ifTrue:[ |
1018 fnName := 'ui_menuitem.xpm'. |
1021 fnName := 'ui_menuitem.xpm'. |
1019 ] ifFalse:[ |
1022 ] ifFalse:[ |
1020 fnName := 'ui_submenu_open.xpm'. |
1023 fnName := 'ui_submenu_open.xpm'. |
1021 stream nextPutAll:' ... '. |
1024 stream nextPutAll:' ... '. |
1402 ! ! |
1405 ! ! |
1403 |
1406 |
1404 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1407 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1405 |
1408 |
1406 version |
1409 version |
1407 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.130 2014-07-04 10:22:18 cg Exp $' |
1410 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.131 2015-04-22 17:54:49 stefan Exp $' |
1408 ! |
1411 ! |
1409 |
1412 |
1410 version_CVS |
1413 version_CVS |
1411 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.130 2014-07-04 10:22:18 cg Exp $' |
1414 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.131 2015-04-22 17:54:49 stefan Exp $' |
1412 ! ! |
1415 ! ! |
1413 |
1416 |