ZipArchive.st
changeset 2550 fba099d1ff46
parent 2524 364d34cb6192
child 2553 c0ab4d690210
--- a/ZipArchive.st	Mon Mar 14 11:43:41 2011 +0100
+++ b/ZipArchive.st	Mon Mar 28 19:50:30 2011 +0200
@@ -4726,6 +4726,12 @@
     "/ ^ relative_offset_local_header + ZipArchive LREC_SIZE + 4 + name size
 
     "Created: / 29.3.1998 / 19:10:57 / cg"
+!
+
+isDirectory
+    ^ (externalFileAttributes ? 0) bitTest:EXTERNALFILEATTRIBUTES_ISDIRECTORY
+
+    "Created: / 28-03-2011 / 19:19:26 / cg"
 ! !
 
 !ZipArchive::ZipMember methodsFor:'reading & writing'!
@@ -5018,11 +5024,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.91 2011-01-20 23:15:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.92 2011-03-28 17:50:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.91 2011-01-20 23:15:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.92 2011-03-28 17:50:30 cg Exp $'
 ! !
 
 ZipArchive initialize!