'From Squeak3.0 of 4 February 2001 [latest update: #3545] on 7 November 2001 at 1:26:38 pm'!
Magnitude subclass: #DaysOfTheWeek
	instanceVariableNames: 'today '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'New Category'!

!DaysOfTheWeek methodsFor: 'as yet unclassified' stamp: 'SMC 11/7/2001 13:03'!
<  anotherDay
	"comment stating purpose of message"

	^(self today < anotherDay today)! !

!DaysOfTheWeek methodsFor: 'as yet unclassified' stamp: 'SMC 11/7/2001 13:05'!
= anotherDay
	"comment stating purpose of message"

	^(self today = anotherDay today)! !

!DaysOfTheWeek methodsFor: 'as yet unclassified' stamp: 'SMC 11/7/2001 12:56'!
setDay: aDay
	"comment stating purpose of message"

	(aDay between: 1 and: 7)
		ifTrue: [today := aDay]! !

!DaysOfTheWeek methodsFor: 'as yet unclassified' stamp: 'SMC 11/7/2001 12:56'!
today
	"comment stating purpose of message"

	^today! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

DaysOfTheWeek class
	instanceVariableNames: ''!

!DaysOfTheWeek class methodsFor: 'as yet unclassified' stamp: 'SMC 11/7/2001 13:17'!
new: initDay
	"Create a new instance and set its initial value to initDay"

	| aDay |
	aDay := self new .
	aDay setDay: initDay .
	^aDay! !