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

Notification subclass:#MetacelloSkipDirtyPackageLoad
	instanceVariableNames:'packageSpec'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Exceptions-Notifications'
!


!MetacelloSkipDirtyPackageLoad class methodsFor:'signalling'!

signal: aMetacelloPackageSpec

	^(self new packageSpec: aMetacelloPackageSpec) signal
! !

!MetacelloSkipDirtyPackageLoad methodsFor:'accessing'!

defaultAction
	"Default action is to skip the load of a dirty package"

	^true
!

packageSpec

	^packageSpec
!

packageSpec: aMetacelloPackageSpec

	packageSpec := aMetacelloPackageSpec
! !

!MetacelloSkipDirtyPackageLoad class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !