WAMiniCalendar

• canSelect:
• canSelectBlock:
• date
• date:
• initialize
• month
• month:
• monthHeading
• renderCellForDate:on:
• renderContentOn:
• renderMonthNavigationOn:
• renderRowForWeek:on:
• select:
• selectBlock:
• weekDays

• example

	^ canSelectBlock notNil and: [canSelectBlock value: aDate]

	canSelectBlock _ aBlock

	^ date contents

	date contents: aDate.
	month contents: aDate month

	month _ WAStateHolder new contents: Date today month.
	date _ WAStateHolder new.

	^ month contents

	^ month contents: aMonth

	^ self month name, ' ', self month year asString

	html tableData: [
		aDate month = self month ifTrue:
			[html cssClass: (self date = aDate ifTrue: ['calendarArchiveDate']).
			html span: [
			(self canSelect: aDate)
				ifTrue: [html anchorWithAction: [self select: aDate] text: aDate dayOfMonth]
				ifFalse: [html text: aDate dayOfMonth]
			]]
	]

	html divClass: 'calendar' with: [
	html spanClass: 'calendarCaption' with:  self monthHeading.
	html table: [
		html cssClass: 'calendarTitle'; tableRow: [
			self weekDays do: [:ea | html tableData: ea].
		].
		self month eachWeekDo: [:week | self renderRowForWeek: week on: html].
	].
	self renderMonthNavigationOn: html.
	]

	html spanClass: 'calendarPrevious' with: [
		html
			anchorWithAction: [self month: self month previous]
			text: (self month previous name first: 3).
	].
	html space.
	html spanClass: 'calendarNext' with: [
		html
			anchorWithAction: [self month: self month next]
			text: (self month next name first: 3).
	]
	

	html tableRow: [
		aWeek do: [:ea | self renderCellForDate: ea on: html].
	]

	self date: aDate.
	selectBlock ifNotNil: [selectBlock value: aDate]

	selectBlock _ aBlock

	^ (1 to: 7) collect: [:i | (Date nameOfDay: i) first: 3]

	^self new