# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1493383185 -7200
# Node ID 0fd83e26247f3f4322f7e95399000d4c6bc38f1c
# Parent  81d141fee490787ffeda4188eb89eaf3e30250a2
#REFACTORING by stefan
class: KeyedCollection
added: #removeAllKeys:
    moved from Collection

diff -r 81d141fee490 -r 0fd83e26247f KeyedCollection.st
--- a/KeyedCollection.st	Thu Apr 27 14:14:45 2017 +0200
+++ b/KeyedCollection.st	Fri Apr 28 14:39:45 2017 +0200
@@ -429,6 +429,15 @@
 
 !KeyedCollection methodsFor:'removing'!
 
+removeAllKeys:aCollection
+    "remove all keys of the argument, aCollection from the receiver.
+     Raises an error, if some element-to-remove is not in the receiver."
+
+    aCollection do:[:element | self removeKey:element].
+
+    "Modified (comment): / 28-04-2017 / 13:36:15 / stefan"
+!
+
 removeKey:aKey
     "remove key (and the value stored under that key) from the
      receiver; raise an error if no such element is contained"