--- a/mercurial/HGPackageModelRegistry.st	Thu Nov 22 11:50:47 2012 +0000
+++ b/mercurial/HGPackageModelRegistry.st	Thu Nov 22 11:52:29 2012 +0000
@@ -30,6 +30,24 @@
     "Modified: / 16-11-2012 / 19:52:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!HGPackageModelRegistry methodsFor:'initialization'!
+
+flush: pattern
+    "Flushes all cached data packages matching given name."
+    | toFlush |
+    toFlush := OrderedCollection new.
+    packages valuesDo:[:package|
+        (package name matches: pattern) ifTrue:[toFlush add: package]].
+    toFlush do:[:package|
+        repositories removeKey: package repository path ifAbsent:[nil].
+        package workingCopy path recursiveRemove.
+        packages removeKey: package name
+    ].
+
+    "Created: / 16-11-2012 / 19:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-11-2012 / 11:38:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGPackageModelRegistry class methodsFor:'documentation'!
 
 version_HG