--- a/ZipArchive.st Mon Feb 04 13:14:52 2013 +0100
+++ b/ZipArchive.st Fri Feb 08 18:00:27 2013 +0100
@@ -3238,6 +3238,18 @@
self closeFile
!
+flush
+ "finish the zip archive, but do not close the underlying stream"
+
+ file notNil ifTrue:[
+ Lobby unregister:self.
+ mode == #write ifTrue: [
+ self addCentralZipDirectory
+ ].
+ file := nil.
+ ]
+!
+
name:name mode:readOrWriteMode
"open read or writestream on archiveFileName"
@@ -3366,15 +3378,14 @@
!
closeFile
- "close the stream - tell operating system"
+ "finish the zip archive and close the stream"
+
+ |savedFile|
file notNil ifTrue:[
- Lobby unregister:self.
- mode == #write ifTrue: [
- self addCentralZipDirectory
- ].
- file close.
- file := nil.
+ savedFile := file.
+ self flush.
+ savedFile close.
]
!
@@ -5155,11 +5166,12 @@
!ZipArchive class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.102 2013-02-03 11:30:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.103 2013-02-08 17:00:27 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.102 2013-02-03 11:30:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.103 2013-02-08 17:00:27 stefan Exp $'
! !
+
ZipArchive initialize!