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

Object subclass: #BooleanConditionMaker
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'IfLess-Test'!

!BooleanConditionMaker methodsFor: 'actions' stamp: 'MU 1/8/1999 13:21'!
randomCondition
	10 atRandom < 5
		ifTrue: 
			[Transcript cr; show: 'TRUE'.
			^ TrueCondition new]
		ifFalse: 
			[Transcript cr; show: 'FALSE'.
			^ FalseCondition new]! !