More support Squeak/Pharo interoperability - part 1:
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 29 May 2013 13:46:48 +0200
changeset 843 a4ea1147dd16
parent 842 5d2a3cd1bb44
child 844 0f3cb256c0fb
More support Squeak/Pharo interoperability - part 1: - added ProjectDefinition>>monticelloName - added MCStXSnapshotTransformation to allow for transforming snapshot before/after snapshot is written/read. This is required to transparently hide nasty differences between Smalltalk/X and Squeak/Pharo package models. The support is not yet finished, more to come
stx_goodies_monticello.st
--- a/stx_goodies_monticello.st	Wed May 29 13:46:39 2013 +0200
+++ b/stx_goodies_monticello.st	Wed May 29 13:46:48 2013 +0200
@@ -84,12 +84,6 @@
         MCMerger
         MCMock
         MCMockAPoolDictionary
-        MCMockClassD
-        MCMockClassE
-        MCMockClassF
-        MCMockClassG
-        MCMockClassH
-        MCMockClassI
         MCMockDependency
         MCMockPackageInfo
         MCNoChangesException
@@ -149,8 +143,6 @@
         MCInstanceVariableDefinition
         MCMczWriter
         MCMethodDefinition
-        MCMockClassA
-        MCMockClassB
         MCMockDefinition
         MCMockDependentItem
         MCModification
@@ -182,7 +174,6 @@
         MCLazyVersionInfo
         MCMcdWriter
         MCMczReader
-        MCMockASubclass
         MCPatchBrowser
         MCPostscriptDefinition
         MCPreambleDefinition
@@ -200,12 +191,15 @@
         MCStxVersionInfo
         MCStxMczWriter
         MCStxStWriter
+        MCStXSnapshotTransformation
+        MCStXSnapshotPostReadTransformation
+        MCStXSnapshotPreWriteTransformation
     )
 !
 
 extensionMethodNames
     "lists the extension methods which are to be included in the project.
-     Entries are 2-element array literals, consisting of class-name and selector."
+     Entries are pairwise elements, consisting of class-name and selector."
 
     ^ #(
         Behavior includesLocalSelector:
@@ -219,8 +213,6 @@
         Object isConflict
         SequenceableCollection copyReplaceAll:with:asTokens:
         Stream isMessageStream
-        String asStringWithNativeLineEndings
-        String asStringWithSqueakLineEndings
         String extractNumber
         String withSqueakLineEndings
         StringCollection asStringWithNativeLineEndings
@@ -237,7 +229,13 @@
         'ProjectDefinition class' #'monticelloTimestamps_code'
         'ProjectDefinition class' #'monticelloTimestamps_codeFor:'
         'Timestamp class' fromMethodTimeStamp:
-        'Tools::NewSystemBrowser class' projectMonticelloMenu
+        Change mcDefinition
+        Change mcDefinition:
+        'ProjectDefinition class' monticelloName
+        'ProjectDefinition class' #'monticelloAncestry_code'
+        PackageInfo isMCStXPackageInfo
+        CharacterArray asStringWithSqueakLineEndings
+        CharacterArray asStringWithNativeLineEndings
     )
 ! !
 
@@ -288,10 +286,10 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/stx_goodies_monticello.st,v 1.18 2013-03-25 21:51:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/stx_goodies_monticello.st,v 1.19 2013-05-29 11:46:48 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/stx_goodies_monticello.st,v 1.18 2013-03-25 21:51:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/stx_goodies_monticello.st,v 1.19 2013-05-29 11:46:48 vrany Exp $'
 ! !