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

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


!MetacelloAllowProjectUpgrade methodsFor:'accessing'!

operationString
    ^ 'upgrade'
! !

!MetacelloAllowProjectUpgrade methodsFor:'exception handling'!

defaultAction
    "Default for Upgrade is to allow"

    self checkAllowed.
    ^ self newProjectRegistration
! !

!MetacelloAllowProjectUpgrade methodsFor:'handlers'!

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

handleResolutionFor: aScriptEngine
    ^ aScriptEngine handleUpgrade: self
! !

!MetacelloAllowProjectUpgrade class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !