moo/stix/kernel/Boolean.st

#class Boolean(Object)
{
	"TODO: do i need to really define methods defined in True and False here?
	       and call subclassResponsibiltiy?"
}

#class True(Boolean)
{
	#method not
	{
		^false
	}

	#method & aBoolean
	{
		^aBoolean
	}

	#method | aBoolean
	{
		^true
	}

	#method and: aBlock
	{
		^aBlock value
	}

	#method or: aBlock
	{
		^true
	}

	#method ifTrue: trueBlock ifFalse: falseBlock
	{
		^trueBlock value.
	}

	#method ifTrue: trueBlock
	{
		^trueBlock value.
	}

	#method ifFalse: falseBlock
	{
		^nil.
	}
}

#class False(Boolean)
{
	#method not
	{
		^true
	}

	#method & aBoolean
	{
		^false
	}

	#method | aBoolean
	{
		^aBoolean
	}

	#method and: aBlock
	{
		^false
	}

	#method or: aBlock
	{
		^aBlock value
	}

	#method ifTrue: trueBlock ifFalse: falseBlock
	{
		^falseBlock value.
	}

	#method ifTrue: trueBlock
	{
		^nil.
	}

	#method ifFalse: falseBlock
	{
		^falseBlock value.
	}
}