--- 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 $'
! !