# HG changeset patch # User Claus Gittinger # Date 1068566889 -3600 # Node ID 393edc0a849add7bbdf101033985be67a31ebb05 # Parent 2eb952222d944f8417b1745f301835156f555579 *** empty log message *** diff -r 2eb952222d94 -r 393edc0a849a 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 $' ! !