DirectoryContentsBrowser.st
changeset 16109 4f16e24fdef2
parent 16101 58b48772bf62
child 16110 4347775e9885
equal deleted inserted replaced
16107:8e8e7dc3035d 16109:4f16e24fdef2
       
     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
  2908     |kbString|
  2910     |kbString|
  2909 
  2911 
  2910     kbString := UnitConverter fileSizeStringFor:(kiloBytes * 1024).
  2912     kbString := UnitConverter fileSizeStringFor:(kiloBytes * 1024).
  2911     self notify:('%2 in %1' 
  2913     self notify:('%2 in %1' 
  2912                     bindWith:(aDirectory baseName "pathName" allBold) 
  2914                     bindWith:(aDirectory baseName "pathName" allBold) 
  2913                     with:(kbString , 'b') "allBold").
  2915                     with:kbString "allBold").
  2914 !
  2916 !
  2915 
  2917 
  2916 startDiskUsageInfoProcess
  2918 startDiskUsageInfoProcess
  2917     |aColOfFiles selectedFile info|
  2919     |aColOfFiles selectedFile info|
  2918 
  2920