Class Magnitude Object
Methods Magnitude
	<= value
		^ (self < value) or: [ self = value ]

]
Methods Magnitude

	isChar
		^ false

]
Methods Magnitude

	>= value
		^ value <= self

]
Methods Magnitude

	= value
		^ (self == value)

]
Methods Magnitude

	~= value
		^ (self = value) not

]
Methods Magnitude

	between: low and: high
		^ (low <= self) and: [ self <= high ]

]
Methods Magnitude

	< value
		^ (self <= value) and: [ self ~= value ]

]
Methods Magnitude

	min: value
		^ (self < value)
			ifTrue: [ self ]
			ifFalse: [ value ]

]
Methods Magnitude

	> value
		^ (value < self)

]
Methods Magnitude

	max: value
		^ (self < value)
			ifTrue: [ value ]
			ifFalse: [ self ]

]