equal
deleted
inserted
replaced
4786 "/ self label: myName, '- gathering file names ...'. |
4786 "/ self label: myName, '- gathering file names ...'. |
4787 [ |
4787 [ |
4788 fileNames := dir recursiveDirectoryContents. |
4788 fileNames := dir recursiveDirectoryContents. |
4789 ] on:FileStream openErrorSignal do:[:ex| |
4789 ] on:FileStream openErrorSignal do:[:ex| |
4790 self warn:('Cannot access: %1\(%2)' |
4790 self warn:('Cannot access: %1\(%2)' |
4791 bindWith:ex parameter printString |
4791 bindWith:ex pathName |
4792 with:ex description) withCRs. |
4792 with:ex description) withCRs. |
4793 ^ self |
4793 ^ self |
4794 ]. |
4794 ]. |
4795 fileNames := fileNames |
4795 fileNames := fileNames |
4796 collect:[:fn | dir construct:fn] |
4796 collect:[:fn | dir construct:fn] |
4912 |
4912 |
4913 allFiles := OrderedCollection new. |
4913 allFiles := OrderedCollection new. |
4914 directories do:[ : dir| |
4914 directories do:[ : dir| |
4915 [ |
4915 [ |
4916 fileNames := dir directoryContents. |
4916 fileNames := dir directoryContents. |
4917 fileNames := fileNames |
4917 fileNames notNil ifTrue:[ |
4918 collect:[:fn | dir construct:fn] |
4918 fileNames := fileNames |
4919 thenSelect:[:fn | fn isDirectory not]. |
4919 collect:[:fn | dir construct:fn] |
4920 allFiles addAll:fileNames. |
4920 thenSelect:[:fn | fn isDirectory not]. |
|
4921 allFiles addAll:fileNames. |
|
4922 ] |
4921 ] on:FileStream openErrorSignal do:[:ex| |
4923 ] on:FileStream openErrorSignal do:[:ex| |
4922 self warn:('Cannot access: %1\(%2)' |
4924 self warn:('Cannot access: %1\(%2)' |
4923 bindWith:ex parameter printString |
4925 bindWith:ex pathName |
4924 with:ex description) withCRs. |
4926 with:ex description) withCRs. |
|
4927 ex proceedWith:nil. |
4925 ]. |
4928 ]. |
4926 ]. |
4929 ]. |
4927 |
4930 |
4928 infoDir := Dictionary new. |
4931 infoDir := Dictionary new. |
4929 allFiles do:[:fn | |
4932 allFiles do:[:fn | |
6074 |directories| |
6077 |directories| |
6075 |
6078 |
6076 directories := self currentDirectories value. |
6079 directories := self currentDirectories value. |
6077 directories do:[:dir| |
6080 directories do:[:dir| |
6078 [ |
6081 [ |
6079 (dir directoryContents do:[:f| (f asFilename suffix = suffix) ifTrue:[ ^ true]]) |
6082 (dir directoryContentsAsFilenamesDo:[:fn | (fn suffix = suffix) ifTrue:[ ^ true]]) |
6080 ] on:FileStream openErrorSignal do:[:ex|]. |
6083 ] on:FileStream openErrorSignal do:[:ex|]. |
6081 ]. |
6084 ]. |
6082 ^ false. |
6085 ^ false. |
6083 ! |
6086 ! |
6084 |
6087 |
6717 ! ! |
6720 ! ! |
6718 |
6721 |
6719 !AbstractFileBrowser class methodsFor:'documentation'! |
6722 !AbstractFileBrowser class methodsFor:'documentation'! |
6720 |
6723 |
6721 version |
6724 version |
6722 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.226 2004-03-22 22:00:36 cg Exp $' |
6725 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.227 2004-04-01 12:00:11 cg Exp $' |
6723 ! ! |
6726 ! ! |