equal
deleted
inserted
replaced
6696 text add:s. |
6696 text add:s. |
6697 text add:(resources string:'size: %1' with:(info size) printString). |
6697 text add:(resources string:'size: %1' with:(info size) printString). |
6698 |
6698 |
6699 info isRegular ifTrue:[ |
6699 info isRegular ifTrue:[ |
6700 md5Hash := MD5Stream hashValueOfFile:f. |
6700 md5Hash := MD5Stream hashValueOfFile:f. |
6701 s := String streamContents:[:s | md5Hash do:[:byte | s nextPutAll:(byte hexPrintString)]]. |
6701 s := md5Hash hexPrintString. |
6702 text add:(resources string:'md5: %1' with:s). |
6702 text add:(resources string:'md5: %1' with:s). |
6703 ]. |
6703 ]. |
6704 |
6704 |
6705 modeBits := info mode. |
6705 modeBits := info mode. |
6706 modeString := self getModeString:modeBits. |
6706 modeString := self getModeString:modeBits. |
6727 with:(ts asTime printString) |
6727 with:(ts asTime printString) |
6728 with:(ts asDate printString)). |
6728 with:(ts asDate printString)). |
6729 ]. |
6729 ]. |
6730 ^ text asString |
6730 ^ text asString |
6731 |
6731 |
6732 "Modified: / 8.9.1995 / 11:59:28 / claus" |
6732 "Modified: / 08-09-1995 / 11:59:28 / claus" |
6733 "Modified: / 18.9.1997 / 16:34:31 / stefan" |
6733 "Modified: / 18-09-1997 / 16:34:31 / stefan" |
6734 "Modified: / 16.11.2001 / 00:45:11 / cg" |
6734 "Modified: / 16-11-2001 / 00:45:11 / cg" |
|
6735 "Modified: / 23-09-2018 / 03:47:09 / Claus Gittinger" |
6735 ! |
6736 ! |
6736 |
6737 |
6737 getInfoFile |
6738 getInfoFile |
6738 "get filename of a description-file (.dir.info, README etc.); |
6739 "get filename of a description-file (.dir.info, README etc.); |
6739 This file is automatically shown when a directory is entered. |
6740 This file is automatically shown when a directory is entered. |