MetacelloValidationNotification.st
changeset 1 9e312de5f694
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MetacelloValidationNotification.st	Mon Sep 03 11:13:41 2012 +0000
@@ -0,0 +1,40 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+Notification subclass:#MetacelloValidationNotification
+	instanceVariableNames:'issue'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Metacello-Core-Exceptions-Notifications'
+!
+
+
+!MetacelloValidationNotification class methodsFor:'exceptioninstantiator'!
+
+signal: aMetacelloValidationIssue
+
+	^ self new signal: aMetacelloValidationIssue
+! !
+
+!MetacelloValidationNotification methodsFor:'accessing'!
+
+issue
+	^ issue
+!
+
+issue: anObject
+	issue := anObject
+! !
+
+!MetacelloValidationNotification methodsFor:'signaling'!
+
+signal: aMetacelloValidationIssue
+
+	self issue: aMetacelloValidationIssue.
+	^ self signal
+! !
+
+!MetacelloValidationNotification class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !