equal
deleted
inserted
replaced
8438 |
8438 |
8439 ^ self currentSelectedDirectories notEmpty. |
8439 ^ self currentSelectedDirectories notEmpty. |
8440 ! |
8440 ! |
8441 |
8441 |
8442 directoriesForFiles:aFileCol |
8442 directoriesForFiles:aFileCol |
8443 |
8443 ^ aFileCol collect:[:file| self getDirWithoutFileName:file] as:Set. |
8444 ^ (aFileCol collect:[:file| self getDirWithoutFileName:file]) asSet. |
|
8445 ! |
8444 ! |
8446 |
8445 |
8447 fileListIsEmpty |
8446 fileListIsEmpty |
8448 self |
8447 self |
8449 applicationNamed:#DirectoryContentsBrowser |
8448 applicationNamed:#DirectoryContentsBrowser |
8550 ]. |
8549 ]. |
8551 ^ nil |
8550 ^ nil |
8552 ! |
8551 ! |
8553 |
8552 |
8554 parentDirectoriesOfCurrentFiles |
8553 parentDirectoriesOfCurrentFiles |
8555 |
8554 ^ self currentSelectedObjects |
8556 ^ (self currentSelectedObjects |
8555 collect:[:file | file directory] as:Set |
8557 collect:[:file | file directory]) asSet |
|
8558 |
8556 |
8559 "Modified: / 04-12-2006 / 13:15:21 / cg" |
8557 "Modified: / 04-12-2006 / 13:15:21 / cg" |
8560 ! |
8558 ! |
8561 |
8559 |
8562 recursiveAnyFilesPresentWithSuffix:suffix |
8560 recursiveAnyFilesPresentWithSuffix:suffix |
9102 ! ! |
9100 ! ! |
9103 |
9101 |
9104 !AbstractFileBrowser class methodsFor:'documentation'! |
9102 !AbstractFileBrowser class methodsFor:'documentation'! |
9105 |
9103 |
9106 version |
9104 version |
9107 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.498 2012-07-28 07:07:46 cg Exp $' |
9105 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.499 2012-08-13 14:19:33 stefan Exp $' |
9108 ! |
9106 ! |
9109 |
9107 |
9110 version_CVS |
9108 version_CVS |
9111 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.498 2012-07-28 07:07:46 cg Exp $' |
9109 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.499 2012-08-13 14:19:33 stefan Exp $' |
9112 ! ! |
9110 ! ! |