"{ 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::                                                                                                                        $'

! !