"{ Package: 'stx:goodies/metacello/core' }"

MetacelloResolveProjectUpgrade subclass:#MetacelloAllowProjectDowngrade
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Scripts'
!


!MetacelloAllowProjectDowngrade methodsFor:'accessing'!

operationString
    ^ 'downgrade'
! !

!MetacelloAllowProjectDowngrade methodsFor:'handlers'!

handleOnDownGrade: onDownGradeBlock onUpgrade: onUpgradeBlock
    ^ onDownGradeBlock cull: self cull: self existingProjectRegistration cull: self newProjectRegistration
!

handleResolutionFor: aScriptEngine
    ^ aScriptEngine handleDowngrade: self
! !

!MetacelloAllowProjectDowngrade class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !