hg/stx-goodies-metacello: MetacelloValidationIssue.st@759ff40b4754 (annotated)

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	Object subclass:#MetacelloValidationIssue
9e312de5f694 - Initial commit jv parents: diff changeset	4	instanceVariableNames:'configurationClass explanation reasonCode callSite'
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-Validation'
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	!MetacelloValidationIssue class methodsFor:'instance creation'!
9e312de5f694 - Initial commit jv parents: diff changeset	12
9e312de5f694 - Initial commit jv parents: diff changeset	13	configurationClass: aClass reasonCode: aSymbol callSite: aCallSite explanation: aString
9e312de5f694 - Initial commit jv parents: diff changeset	14
9e312de5f694 - Initial commit jv parents: diff changeset	15	^(self new)
9e312de5f694 - Initial commit jv parents: diff changeset	16	configurationClass: aClass;
9e312de5f694 - Initial commit jv parents: diff changeset	17	reasonCode: aSymbol;
9e312de5f694 - Initial commit jv parents: diff changeset	18	callSite: aCallSite;
9e312de5f694 - Initial commit jv parents: diff changeset	19	explanation: aString;
9e312de5f694 - Initial commit jv parents: diff changeset	20	yourself
9e312de5f694 - Initial commit jv parents: diff changeset	21	! !
9e312de5f694 - Initial commit jv parents: diff changeset	22
9e312de5f694 - Initial commit jv parents: diff changeset	23	!MetacelloValidationIssue methodsFor:'accessing'!
9e312de5f694 - Initial commit jv parents: diff changeset	24
9e312de5f694 - Initial commit jv parents: diff changeset	25	callSite
9e312de5f694 - Initial commit jv parents: diff changeset	26	^ callSite
9e312de5f694 - Initial commit jv parents: diff changeset	27	!
9e312de5f694 - Initial commit jv parents: diff changeset	28
9e312de5f694 - Initial commit jv parents: diff changeset	29	callSite: anObject
9e312de5f694 - Initial commit jv parents: diff changeset	30	callSite := anObject
9e312de5f694 - Initial commit jv parents: diff changeset	31	!
9e312de5f694 - Initial commit jv parents: diff changeset	32
9e312de5f694 - Initial commit jv parents: diff changeset	33	configurationClass
9e312de5f694 - Initial commit jv parents: diff changeset	34	^ configurationClass
9e312de5f694 - Initial commit jv parents: diff changeset	35	!
9e312de5f694 - Initial commit jv parents: diff changeset	36
9e312de5f694 - Initial commit jv parents: diff changeset	37	configurationClass: aClass
9e312de5f694 - Initial commit jv parents: diff changeset	38	configurationClass := aClass
9e312de5f694 - Initial commit jv parents: diff changeset	39	!
9e312de5f694 - Initial commit jv parents: diff changeset	40
9e312de5f694 - Initial commit jv parents: diff changeset	41	explanation
9e312de5f694 - Initial commit jv parents: diff changeset	42	^ explanation
9e312de5f694 - Initial commit jv parents: diff changeset	43	!
9e312de5f694 - Initial commit jv parents: diff changeset	44
9e312de5f694 - Initial commit jv parents: diff changeset	45	explanation: aString
9e312de5f694 - Initial commit jv parents: diff changeset	46	explanation := aString
9e312de5f694 - Initial commit jv parents: diff changeset	47	!
9e312de5f694 - Initial commit jv parents: diff changeset	48
9e312de5f694 - Initial commit jv parents: diff changeset	49	label
9e312de5f694 - Initial commit jv parents: diff changeset	50
9e312de5f694 - Initial commit jv parents: diff changeset	51	^''
9e312de5f694 - Initial commit jv parents: diff changeset	52	!
9e312de5f694 - Initial commit jv parents: diff changeset	53
9e312de5f694 - Initial commit jv parents: diff changeset	54	reasonCode
9e312de5f694 - Initial commit jv parents: diff changeset	55
9e312de5f694 - Initial commit jv parents: diff changeset	56	reasonCode == nil ifTrue: [ reasonCode := #none ].
9e312de5f694 - Initial commit jv parents: diff changeset	57	^ reasonCode
9e312de5f694 - Initial commit jv parents: diff changeset	58	!
9e312de5f694 - Initial commit jv parents: diff changeset	59
9e312de5f694 - Initial commit jv parents: diff changeset	60	reasonCode: anObject
9e312de5f694 - Initial commit jv parents: diff changeset	61	reasonCode := anObject
9e312de5f694 - Initial commit jv parents: diff changeset	62	! !
9e312de5f694 - Initial commit jv parents: diff changeset	63
9e312de5f694 - Initial commit jv parents: diff changeset	64	!MetacelloValidationIssue methodsFor:'printing'!
9e312de5f694 - Initial commit jv parents: diff changeset	65
9e312de5f694 - Initial commit jv parents: diff changeset	66	printOn: aStream
9e312de5f694 - Initial commit jv parents: diff changeset	67	aStream
9e312de5f694 - Initial commit jv parents: diff changeset	68	nextPutAll: self label;
9e312de5f694 - Initial commit jv parents: diff changeset	69	nextPut: $:;
9e312de5f694 - Initial commit jv parents: diff changeset	70	space;
9e312de5f694 - Initial commit jv parents: diff changeset	71	nextPutAll: self explanation.
9e312de5f694 - Initial commit jv parents: diff changeset	72	self reasonCode ~~ #none
9e312de5f694 - Initial commit jv parents: diff changeset	73	ifTrue: [
9e312de5f694 - Initial commit jv parents: diff changeset	74	aStream
9e312de5f694 - Initial commit jv parents: diff changeset	75	space;
9e312de5f694 - Initial commit jv parents: diff changeset	76	nextPut: ${;
9e312de5f694 - Initial commit jv parents: diff changeset	77	space;
9e312de5f694 - Initial commit jv parents: diff changeset	78	nextPutAll: self reasonCode asString;
9e312de5f694 - Initial commit jv parents: diff changeset	79	space;
9e312de5f694 - Initial commit jv parents: diff changeset	80	nextPut: $} ].
9e312de5f694 - Initial commit jv parents: diff changeset	81	(self configurationClass ~~ nil or: [ self callSite ~~ nil ])
9e312de5f694 - Initial commit jv parents: diff changeset	82	ifTrue: [
9e312de5f694 - Initial commit jv parents: diff changeset	83	aStream
9e312de5f694 - Initial commit jv parents: diff changeset	84	space;
9e312de5f694 - Initial commit jv parents: diff changeset	85	nextPut: $[;
9e312de5f694 - Initial commit jv parents: diff changeset	86	space.
9e312de5f694 - Initial commit jv parents: diff changeset	87	self configurationClass ~~ nil
9e312de5f694 - Initial commit jv parents: diff changeset	88	ifTrue: [
9e312de5f694 - Initial commit jv parents: diff changeset	89	aStream
9e312de5f694 - Initial commit jv parents: diff changeset	90	nextPutAll: self configurationClass name asString;
9e312de5f694 - Initial commit jv parents: diff changeset	91	space ].
9e312de5f694 - Initial commit jv parents: diff changeset	92	self callSite ~~ nil
9e312de5f694 - Initial commit jv parents: diff changeset	93	ifTrue: [
9e312de5f694 - Initial commit jv parents: diff changeset	94	aStream
9e312de5f694 - Initial commit jv parents: diff changeset	95	nextPutAll: self callSite name asString;
9e312de5f694 - Initial commit jv parents: diff changeset	96	space ].
9e312de5f694 - Initial commit jv parents: diff changeset	97	aStream nextPut: $] ]
9e312de5f694 - Initial commit jv parents: diff changeset	98	! !
9e312de5f694 - Initial commit jv parents: diff changeset	99
9e312de5f694 - Initial commit jv parents: diff changeset	100	!MetacelloValidationIssue methodsFor:'testing'!
9e312de5f694 - Initial commit jv parents: diff changeset	101
9e312de5f694 - Initial commit jv parents: diff changeset	102	isCritical
9e312de5f694 - Initial commit jv parents: diff changeset	103
9e312de5f694 - Initial commit jv parents: diff changeset	104	^self isError or: [ self isCriticalWarning ]
9e312de5f694 - Initial commit jv parents: diff changeset	105	!
9e312de5f694 - Initial commit jv parents: diff changeset	106
9e312de5f694 - Initial commit jv parents: diff changeset	107	isCriticalWarning
9e312de5f694 - Initial commit jv parents: diff changeset	108
9e312de5f694 - Initial commit jv parents: diff changeset	109	^false
9e312de5f694 - Initial commit jv parents: diff changeset	110	!
9e312de5f694 - Initial commit jv parents: diff changeset	111
9e312de5f694 - Initial commit jv parents: diff changeset	112	isError
9e312de5f694 - Initial commit jv parents: diff changeset	113
9e312de5f694 - Initial commit jv parents: diff changeset	114	^false
9e312de5f694 - Initial commit jv parents: diff changeset	115	!
9e312de5f694 - Initial commit jv parents: diff changeset	116
9e312de5f694 - Initial commit jv parents: diff changeset	117	isWarning
9e312de5f694 - Initial commit jv parents: diff changeset	118
9e312de5f694 - Initial commit jv parents: diff changeset	119	^false
9e312de5f694 - Initial commit jv parents: diff changeset	120	! !
9e312de5f694 - Initial commit jv parents: diff changeset	121
9e312de5f694 - Initial commit jv parents: diff changeset	122	!MetacelloValidationIssue class methodsFor:'documentation'!
9e312de5f694 - Initial commit jv parents: diff changeset	123
9e312de5f694 - Initial commit jv parents: diff changeset	124	version_SVN
9e312de5f694 - Initial commit jv parents: diff changeset	125	^ '$Id:: $'
9e312de5f694 - Initial commit jv parents: diff changeset	126	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 05 Sep 2012 16:35:54 +0000
changeset 7	759ff40b4754
parent 1	9e312de5f694
permissions	-rw-r--r--