property theDate : missing value

property daysList : {"日", "月", "火", "水", "木", "金", "土"} –Japanese
–property daysList : {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"}–English

set paramObj to {myMessage:"月選択", mySubMessage:"作成対象の月を選択してください。日付はどれでもけっこうです。"}
set {targYear, targMonth} to chooseMonth(paramObj) of me

–指定月のカレンダーを1D List(7 days x 6 weeks) で作成
set aCalList to retListCalendar(targYear, targMonth) of me

set fullCalList to daysList & aCalList

set aTitle to (targYear as string) & (targMonth as string)
set dCount to 1

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　set aTable to make new table with properties {header column count:0, header row count:1, row count:7, column count:7, name:aTitle}
　　　　　　tell aTable
　　　　　　　　repeat with i from 1 to 49
　　　　　　　　　　tell cell i
　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　set value to contents of item dCount of fullCalList
　　　　　　　　　　　　end ignoring
　　　　　　　　　　end tell
　　　　　　　　　　set dCount to dCount + 1
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

–カレンダー作成対象の年、月を選択（ただし、日付をクリックして選択しないと値を取得できないので注意）
on chooseMonth(paramObj)
　　my performSelectorOnMainThread:"chooseDate:" withObject:(paramObj) waitUntilDone:true
　　set aYear to year of theDate
　　set aMonth to month of theDate as number
　　return {aYear, aMonth}
end chooseMonth

on chooseDate:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　
　　— create a view
　　set theView to current application’s NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 100, 200))
　　set datePicker to current application’s NSDatePicker’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 100, 100))
　　datePicker’s setDatePickerStyle:(current application’s NSClockAndCalendarDatePickerStyle)
　　datePicker’s setDatePickerElements:((current application’s NSYearMonthDayDatePickerElementFlag) + (current application’s NSHourMinuteSecondDatePickerElementFlag as integer))
　　
　　datePicker’s setDateValue:(current application’s NSDate’s |date|())
　　
　　set theSize to datePicker’s fittingSize()
　　
　　theView’s setFrameSize:theSize
　　datePicker’s setFrameSize:theSize
　　
　　theView’s setSubviews:{datePicker}
　　
　　set theAlert to current application’s NSAlert’s alloc()’s init()
　　
　　— set up alert
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:theView
　　end tell
　　
　　— show alert in modal loop
　　set returnCode to theAlert’s runModal()
　　if returnCode = (current application’s NSAlertSecondButtonReturn) then error number -128
　　
　　— retrieve date
　　set (my theDate) to (datePicker’s dateValue()) as date
　　
end chooseDate:

–指定月のカレンダーを1D List(7 days x 6 weeks) で返す
on retListCalendar(tYear, tMonth)
　　set mLen to getMlen(tYear, tMonth) of me
　　set aList to {}
　　
　　set fDat to getDateInternational(tYear, tMonth, 1) of me
　　tell current application
　　　　set aOffset to (weekday of fDat) as number
　　end tell
　　
　　–header gap
　　repeat (aOffset – 1) times
　　　　set the end of aList to ""
　　end repeat
　　
　　–calendar body
　　repeat with i from 1 to mLen
　　　　set the end of aList to (i as string)
　　end repeat
　　
　　–footer gap
　　repeat (42 – aOffset – mLen + 1) times
　　　　set the end of aList to ""
　　end repeat
　　
　　return aList
end retListCalendar

–現在のカレンダーで指定年月の日数を返す（国際化対応版）
on getMlen(aYear as integer, aMonth as integer)
　　set theNSCalendar to current application’s NSCalendar’s currentCalendar()
　　set theDate to theNSCalendar’s dateWithEra:1 |year|:aYear |month|:aMonth |day|:1 hour:0 minute:0 |second|:0 nanosecond:0
　　set theResult to theNSCalendar’s rangeOfUnit:(current application’s NSDayCalendarUnit) inUnit:(current application’s NSMonthCalendarUnit) forDate:theDate
　　return |length| of theResult
end getMlen

–現在のカレンダーで指定年月のdate objectを返す
on getDateInternational(aYear, aMonth, aDay)
　　set theNSCalendar to current application’s NSCalendar’s currentCalendar()
　　set theDate to theNSCalendar’s dateWithEra:1 |year|:aYear |month|:aMonth |day|:aDay hour:0 minute:0 |second|:0 nanosecond:0
　　return theDate as date
end getDateInternational