"Happy Squeaking Sample(3)"
"Copyright (C) 1999 OGIS-RI"

Object subclass: #BooleanCondition
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'IfLess-Condition'!

!BooleanCondition methodsFor: 'actions' stamp: 'MU 1/8/1999 11:36'!
conditionTrue: oneAction conditionFalse: theOtherAction
	self subclassResponsibility! !


BooleanCondition subclass: #FalseCondition
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'IfLess-Condition'!

!FalseCondition methodsFor: 'actions' stamp: 'MU 1/8/1999 11:42'!
conditionTrue: oneAction conditionFalse: theOtherAction
	theOtherAction fire! !


BooleanCondition subclass: #TrueCondition
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'IfLess-Condition'!

!TrueCondition methodsFor: 'actions' stamp: 'MU 1/8/1999 11:41'!
conditionTrue: oneAction conditionFalse: theOtherAction
	oneAction fire! !