smalltalk
/
osmo-st-all
Archived
1
0
Fork 0
Code Releases Activity

Fixed a bug in Calendar

This commit is contained in:
Nicolas Petton 2009-08-04 10:52:00 +00:00
parent b3820eab2a
commit 61a77da9ac
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
More/UI/Calendar.st
View File

@ -82,10 +82,11 @@ UIWidget subclass: Calendar [
table build: self daysOfWeekRowContents.
row := table tableRow.
date dayOfWeek - 1 timesRepeat: [row tableData].
date daysInMonth timesRepeat: [
date daysInMonth timesRepeat: [| selectedDate |
selectedDate := date.
date dayOfWeek - 1 \\ 7 = 0 ifTrue: [row := table tableRow].
row tableData anchor
action: [self selectDate: date];
action: [self selectDate: selectedDate];
text: date dayOfMonth asString.
date := date addDays: 1]]
]