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

Notification subclass:#MetacelloErrorInProjectConstructionNotification
	instanceVariableNames:'versionString exception'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Exceptions-Notifications'
!


!MetacelloErrorInProjectConstructionNotification class methodsFor:'instance creation'!

versionString: aString exception: anException
    ^ self new
        versionString: aString;
        exception: anException;
        signal
! !

!MetacelloErrorInProjectConstructionNotification methodsFor:'accessing'!

exception
	^ exception
!

exception: anObject
	exception := anObject
!

versionString
	^ versionString
!

versionString: anObject
	versionString := anObject
! !

!MetacelloErrorInProjectConstructionNotification methodsFor:'exception description'!

defaultAction
    "Answer false if you want the version recorded in the errorMap.
	Answer true if you want to go ahead and throw the error"

    ^ false
! !

!MetacelloErrorInProjectConstructionNotification class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !