# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256570543 -3600
# Node ID 0685502fd2f3d5d60a660e6b1d9f4fefbc804630
# Parent  47af0c6544b8c3d6c66a35bd3bde89c2a949d130
added: #membersMatching:

diff -r 47af0c6544b8 -r 0685502fd2f3 ZipArchive.st
--- a/ZipArchive.st	Mon Oct 26 15:55:42 2009 +0100
+++ b/ZipArchive.st	Mon Oct 26 16:22:23 2009 +0100
@@ -3150,6 +3150,12 @@
     ^ members
 !
 
+membersMatching:aFileMatchPattern
+    "return a collection of members which match aFileMatchPattern"
+
+    ^ self members select:[:m | aFileMatchPattern match:m fileName]
+!
+
 name
     "return the (file-)name of this zipArchive"
 
@@ -4937,11 +4943,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.79 2009-10-26 14:55:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.80 2009-10-26 15:22:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.79 2009-10-26 14:55:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.80 2009-10-26 15:22:23 cg Exp $'
 ! !
 
 ZipArchive initialize!