#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 07 Mar 2018 15:48:31 +0100
changeset 4615 b34aafb02ddd
parent 4614 86242cfe8f40
child 4616 22f8c0303a8b
#FEATURE by cg class: ZipArchive added: #memberNamed:
ZipArchive.st
--- a/ZipArchive.st	Fri Mar 02 18:54:07 2018 +0100
+++ b/ZipArchive.st	Wed Mar 07 15:48:31 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -3205,6 +3207,10 @@
     ^ 0
 !
 
+memberNamed:aFilename
+    ^ self findMember:aFilename
+!
+
 members
     "return a collection of members"