DirectoryContentsBrowser.st
changeset 8255 da5e4e208cc9
parent 8252 17b35ca1a9ab
child 8372 c83a3ec5e7e3
equal deleted inserted replaced
8254:72f023d8ec87 8255:da5e4e208cc9
  2693 
  2693 
  2694 startDiskUsageInfoProcess
  2694 startDiskUsageInfoProcess
  2695     |aColOfFiles selectedFile info|
  2695     |aColOfFiles selectedFile info|
  2696 
  2696 
  2697     aColOfFiles := self currentSelectedObjects.
  2697     aColOfFiles := self currentSelectedObjects.
  2698     aColOfFiles := aColOfFiles select:[:file | file notNil].
       
  2699 
  2698 
  2700     (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[
  2699     (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[
  2701         ^ self
  2700         ^ self
  2702     ].
  2701     ].
  2703     aColOfFiles size == 1 ifTrue:[
  2702     aColOfFiles size == 1 ifTrue:[
  3262 ! !
  3261 ! !
  3263 
  3262 
  3264 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3263 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3265 
  3264 
  3266 version
  3265 version
  3267     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.214 2008-08-26 21:37:23 cg Exp $'
  3266     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.215 2008-08-26 21:41:54 cg Exp $'
  3268 ! !
  3267 ! !