--- a/ZipArchive.st Thu Jun 05 16:19:45 2008 +0200
+++ b/ZipArchive.st Fri Jun 06 12:42:29 2008 +0200
@@ -2890,38 +2890,17 @@
newFileNamed:name
^ self new name:name mode:#write
-
- "Created: / 29.3.1998 / 17:46:16 / cg"
!
oldFileNamed:name
|zar f fn|
-"/ RecentlyUsedZipArchives isNil ifTrue:[
-"/ RecentlyUsedZipArchives := OrderedCollection new
-"/ ].
f := name asFilename.
f exists ifFalse:[^ nil].
fn := f pathName.
-"/ RecentlyUsedZipArchives keysAndValuesDo:[:i :z |
-"/ z name = fn ifTrue:[
-"/ RecentlyUsedZipArchives removeIndex:i.
-"/ RecentlyUsedZipArchives addLast:z.
-"/ self installFlushBlock.
-"/ ^ z
-"/ ].
-"/ ].
zar := self new name:fn mode:#read.
-"/ RecentlyUsedZipArchives add:zar.
-"/ [RecentlyUsedZipArchives size > 15] whileTrue:[
-"/ RecentlyUsedZipArchives removeFirst
-"/ ].
-"/ self installFlushBlock.
^ zar
-
- "Created: / 29.3.1998 / 17:46:09 / cg"
- "Modified: / 20.10.1998 / 00:30:02 / cg"
!
oldFileNamed:name startOfArchive: startOfArchive endOfArchive: endOfArchive
@@ -3078,6 +3057,13 @@
^ names
!
+fileSize
+ file notNil ifTrue:[
+ ^ file size
+ ].
+ ^ 0
+!
+
members
"return a collection of members"
@@ -3100,6 +3086,10 @@
setArchiveStartPosition: aStartposition endPosition: anEndPosition
startOfArchive := aStartposition.
endOfArchive := anEndPosition.
+!
+
+size
+ ^self fileSize
! !
!ZipArchive methodsFor:'finalization'!
@@ -4533,7 +4523,7 @@
!ZipArchive class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.65 2008-06-05 09:18:27 ab Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.66 2008-06-06 10:42:29 ab Exp $'
! !
ZipArchive initialize!