*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 11 Nov 2003 17:08:09 +0100
changeset 5338 393edc0a849a
parent 5337 2eb952222d94
child 5339 a740e2325527
*** empty log message ***
DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Tue Nov 11 14:07:44 2003 +0100
+++ b/DirectoryContentsBrowser.st	Tue Nov 11 17:08:09 2003 +0100
@@ -327,7 +327,7 @@
          labelActionArgument: 'fileSize'
          columnAlignment: right
          usePreferredWidth: true
-         minWidth: 45
+         minWidth: 50
          model: sizeInKiloBytesString
          canSelect: false
          showRowSeparator: false
@@ -342,7 +342,7 @@
          labelActionArgument: 'fileSize'
          columnAlignment: right
          usePreferredWidth: true
-         minWidth: 45
+         minWidth: 60
          model: sizeInBytesString
          canSelect: false
          showRowSeparator: false
@@ -3015,20 +3015,22 @@
 timeAndDate
     "returns the date
     "
-    |format modTime date|
+    |resources format modTime date|
 
     modTime := self modificationTime.
     modTime isNil ifTrue:[
         ^  '???'
     ].
 
+    resources := FileBrowser resources.
+
 "/    format := '%(year)-%(mon)-%(day) %h:%m:%s'.
     date := modTime asDate.
     date = Date today ifTrue:[
-        format := (FileBrowser resources string:'Today') , ', %(yearOrTime)'
+        format := (resources string:'Today') , ' %(yearOrTime)'
     ] ifFalse:[
         false "date = Date yesterday" ifTrue:[
-            format := (FileBrowser resources string:'Yesterday') , ', %(yearOrTime)'
+            format := (resources string:'Yesterday') , ' %(yearOrTime)'
         ] ifFalse:[
             Smalltalk languageTerritory == #us ifTrue:[
                 format := '%(ShortMonthName), %(dayPadded) %(yearOrTime)'.
@@ -3096,5 +3098,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.137 2003-11-11 09:51:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.138 2003-11-11 16:08:09 cg Exp $'
 ! !