ZipArchive.st
changeset 2313 28eedaae36f5
parent 2180 ed0c36ab24b8
child 2314 47af0c6544b8
--- a/ZipArchive.st	Thu Oct 22 19:33:36 2009 +0200
+++ b/ZipArchive.st	Mon Oct 26 15:36:00 2009 +0100
@@ -3044,6 +3044,14 @@
 !ZipArchive class methodsFor:'constants'!
 
 COMPR_DEFLATED
+    "please use compressionDeflated instead (Squeak compat.)"
+
+    ^ COMPR_DEFLATED
+!
+
+COMPR_STORED
+    "please use compressionStored instead (Squeak compat.)"
+
     ^ COMPR_DEFLATED
 !
 
@@ -3059,6 +3067,18 @@
     "Created: / 29.3.1998 / 19:11:20 / cg"
 !
 
+compressionDeflated
+    "same as COMPR_DEFLATED - squeak compatibility"
+
+    ^ COMPR_DEFLATED
+!
+
+compressionStored
+    "same as COMPR_STORED - squeak compatibility"
+
+    ^ COMPR_STORED
+!
+
 streamBufferSize
     ^ 65536     "/ 1024 * 64
 
@@ -4124,6 +4144,11 @@
 
 addFileCompressed: aFileName withContents: data
     ^ self addFile: aFileName withContents: data compressMethod: COMPR_DEFLATED asDirectory: false.
+!
+
+addString: aString as: path
+    ^ self 
+        addFile: path fromStream: (aString readStream)
 ! !
 
 !ZipArchive methodsFor:'writing - stream'!
@@ -4905,7 +4930,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.77 2009-07-08 18:03:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.78 2009-10-26 14:36:00 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.78 2009-10-26 14:36:00 cg Exp $'
 ! !
 
 ZipArchive initialize!