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