Class Boolean Object
Methods Boolean
	ifTrue: trueBlock
		^ self ifTrue: trueBlock ifFalse: []

]
Methods Boolean

	ifFalse: falseBlock
		^ self ifTrue: [] ifFalse: falseBlock

]
Methods Boolean

	or: aBlock
		^ self ifTrue: [ true ] ifFalse: aBlock

]
Methods Boolean

	and: aBlock
		^ self ifTrue: aBlock ifFalse: [ false ]

]
Methods Boolean

	ifFalse: falseBlock ifTrue: trueBlock
		^ self ifTrue: trueBlock
			ifFalse: falseBlock

]