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
--- a/MCPackage.st Wed May 29 13:46:48 2013 +0200
+++ b/MCPackage.st Wed May 29 13:46:55 2013 +0200
@@ -16,8 +16,18 @@
!MCPackage methodsFor:'accessing'!
+monticelloName
+ ^ self isStXPackage
+ ifTrue:[ self packageInfo projectDefinition monticelloName ]
+ ifFalse:[ name ].
+
+ "Created: / 29-05-2013 / 02:09:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
name
- ^ name
+ ^name
+
+ "Modified: / 29-05-2013 / 02:09:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
name: aString
@@ -100,17 +110,25 @@
^ MCWorkingCopy forPackage: self.
! !
+!MCPackage methodsFor:'testing'!
+
+isStXPackage
+ ^(ProjectDefinition definitionClassForPackage: name) notNil.
+
+ "Created: / 29-05-2013 / 01:46:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!MCPackage class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.12 2013-03-25 12:34:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.13 2013-05-29 11:46:55 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.12 2013-03-25 12:34:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.13 2013-05-29 11:46:55 vrany Exp $'
!
version_SVN
- ^ '§Id: MCPackage.st 5 2010-08-29 07:30:29Z vranyj1 §'
+ ^ '$Id: MCPackage.st,v 1.13 2013-05-29 11:46:55 vrany Exp $'
! !