CwMonthCalendar
CwMonthCalendar visually represents a calendar.
Several protocols exist to control calendar’s value; the other group of protocols specifies the appearance and behavior of the calendar.
Protocol
Manipulating Value
day
answer the current day of the calendar
day: aDate
set the current day of the calendar
maxDate
Answer the maximum (latest) allowable date in the receiver.
The default is to have no latest limit.
maxDate: aDate
Set the maximum (latest) allowable date in the receiver.
maxSelectionCount
Answer the maximum number of days the receiver can select.
The default is 1.
maxSelectionCount:
Set the maximum number of days the receiver can select.
minDate
Answer the minimum (earliest) allowable date in the receiver.
The default is to have no earliest limit.
minDate: aDate
Set the minimum (earliest) allowable date in the receiver.
month
answer the current month of the calendar
month:
set the current month of the calendar
selection
Answer the selected date in the receiver. If the maxSelectionCount exceeds one, answer the selection range; that is, earliest and latest date selected. If no date is selected, answer nil.
selection: aDate
Set the selected date in the receiver.
selectionMin:max:
Set the selected range in the receiver. The selected range is selection range is a pair of dates: earliest and latest. It makes sense to set this if the maxSelectionCount exceeds one.
selectionMinMax
Answer the range of selected date in the receiver. If the maxSelectionCount exceeds one, answer the selection range; that is, earliest and latest date selected. If no range is selected, answer a pair of nils.
year
answer the current year of the calendar
year:
set the current year of the calendar
Look and Feel
boldDayList
Answer the dates in the control which are to be displayed with bold typeface. This list is only consulted if displayDayStatus is true.
The default is an empty collection.
boldDayList: aCollection
Set the dates in the control which are to be displayed with bold typeface.
displayDayStatus
Answer whether the receiver can display a day in more than one way.
The default is false.
displayDayStatus: aBoolean
Set whether the receiver can display a day in more than one way.
firstDayOfWeek
Answers the first day of the week in the receiver.
| | | |
1 | Tuesday, | 5 | Saturday |
2 | Wednesday; | 6 | Sunday |
3 | Thursday | -1 | Use Windows locale information |
The default is to use the Windows locale information to determine the first day of the week.
firstDayOfWeek: anInteger
Sets the first day of the week in the receiver.
| | | |
1 | Tuesday, | 5 | Saturday |
2 | Wednesday; | 6 | Sunday |
3 | Thursday | -1 | Use Windows locale information |
scrollBy
Answer the scroll rate in the receiver.
The default is 1.
scrollBy: anInteger
Set the scroll rate in the receiver.
today
Answer the date specified as 'today' in the receiver.
The default is to have today match the Windows date. If the default is in force, answer nil.
today: aDate
Set the date specified as 'today' in the receiver.
todayCircled
Answer true if the receiver circles today’s date.
The default is true.
todayCircled: aBoolean
Set whether the receiver circles today’s date.
todayShown
Answer true if the receiver shows today’s date at the bottom.
The default is false.
todayShown: aBoolean
Set whether the receiver shows today’s date at the bottom.
weeksNumbered
Answer true if the receiver shows week numbers.
The default is false.
weeksNumbered: aBoolean
Set whether the receiver shows week numbers.
Callbacks and Events
The month calendar has no callbacks or events specific to it.
Example
monthCalendar := CwMonthCalendar
createWidget: 'MonthCalendar' "$NON-NLS$"
parent: workWindow
argBlock: nil.
monthCalendar manageChild.
monthCalendar setValuesBlock: [:w |
w
leftAttachment: XmATTACHFORM;
rightAttachment: XmATTACHFORM;
topAttachment: XmATTACHFORM;
bottomAttachment: XmATTACHFORM;
width: 200;
height: 200;
month: 6;
displayDayStatus: true;
todayShown: true;
weeksNumbered: true].
monthCalendar
addCallback: XmNvalueChangedCallback
receiver: self
selector: #propogateValue:clientData:callData:
clientData: anIterestedWidget;
yourself.
Note :
When displayDayStatus is true, some day in the calendar can be shown in bold typeface. The dates to be displayed as such are specifiec in boldDayList
e.g. following code snippet
year := Date today year.
boldDayList := OrderedCollection new
add: (Date newDay: 31 monthIndex: 12 year: year - 1) ;
add: (Date newDay: 1 monthIndex: 1 year: year) ;
add: (Date newDay: 18 monthIndex: 2 year: year) ;
add: (Date newDay: 1 monthIndex: 4 year: year) ;
add: (Date newDay: 27 monthIndex: 5 year: year) ;
add: (Date newDay: 4 monthIndex: 7 year: year) ;
add: (Date newDay: 5 monthIndex: 7 year: year) ;
add: (Date newDay: 2 monthIndex: 9 year: year) ;
add: (Date newDay: 28 monthIndex: 11 year: year) ;
add: (Date newDay: 29 monthIndex: 11 year: year) ;
add: (Date newDay: 24 monthIndex: 12 year: year) ;
add: (Date newDay: 25 monthIndex: 12 year: year) ;
add: (Date newDay: 31 monthIndex: 12 year: year) ;
add: (Date newDay: 1 monthIndex: 1 year: year + 1) ;
yourself.
monthCalendar boldDayList: boldDayList