# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1414801268 -3600
# Node ID c4564a0396b953d6d1c00c84077ef0bfd9765c9d
# Parent  5e40fb19c435d743fc3700d38cbf0f5732b62889
Fix in  MCStXSnapshotPreWriteTransformation: do not fix extension cstegory if the prefix in OK.

...otherwise package category is lost when exporting previously imported .mcz.
Thanks JK for spotting this.

diff -r 5e40fb19c435 -r c4564a0396b9 MCStXSnapshotPreWriteTransformation.st
--- a/MCStXSnapshotPreWriteTransformation.st	Sat Nov 01 01:05:26 2014 +0100
+++ b/MCStXSnapshotPreWriteTransformation.st	Sat Nov 01 01:21:08 2014 +0100
@@ -166,16 +166,21 @@
 
 visitMethodDefinition: definition
     (self isExtensionMethodDefinition: definition) ifTrue:[
-        extensionMethodCategoryMap add:
-            (Array 
-                with: definition className , (definition classIsMeta ifTrue:[' class'] ifFalse:[''])
-                with: definition selector
-                with: definition category).
-        definition category: '*' , self monticelloName.
+        | prefix |
+
+        prefix := '*' , self monticelloName asLowercase.
+        (definition category asLowercase startsWith: prefix) ifFalse:[
+            extensionMethodCategoryMap add:
+                (Array 
+                    with: definition className , (definition classIsMeta ifTrue:[' class'] ifFalse:[''])
+                    with: definition selector
+                    with: definition category).
+            definition category: '*' , self monticelloName.
+        ]
     ].
 
     "Created: / 30-05-2013 / 22:48:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 31-05-2013 / 00:18:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-11-2014 / 00:20:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitOrganizationDefinition: defintion
@@ -195,10 +200,10 @@
 !MCStXSnapshotPreWriteTransformation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.8 2014-10-05 00:24:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.9 2014-11-01 00:21:08 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.8 2014-10-05 00:24:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.9 2014-11-01 00:21:08 vrany Exp $'
 ! !