MetacelloValidationNotification.st
author jv
Mon, 03 Sep 2012 11:13:41 +0000
changeset 1 9e312de5f694
permissions -rw-r--r--
- Initial commit
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     1
"{ Package: 'stx:goodies/metacello' }"
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     2
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     3
Notification subclass:#MetacelloValidationNotification
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     4
	instanceVariableNames:'issue'
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     5
	classVariableNames:''
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     6
	poolDictionaries:''
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     7
	category:'Metacello-Core-Exceptions-Notifications'
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     8
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     9
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    10
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    11
!MetacelloValidationNotification class methodsFor:'exceptioninstantiator'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    12
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    13
signal: aMetacelloValidationIssue
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    14
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    15
	^ self new signal: aMetacelloValidationIssue
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    16
! !
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    17
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    18
!MetacelloValidationNotification methodsFor:'accessing'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    19
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    20
issue
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    21
	^ issue
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    22
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    23
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    24
issue: anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    25
	issue := anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    26
! !
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    27
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    28
!MetacelloValidationNotification methodsFor:'signaling'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    29
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    30
signal: aMetacelloValidationIssue
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    31
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    32
	self issue: aMetacelloValidationIssue.
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    33
	^ self signal
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    34
! !
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    35
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    36
!MetacelloValidationNotification class methodsFor:'documentation'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    37
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    38
version_SVN
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    39
    ^ '$Id::                                                                                                                        $'
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    40
! !