REVO2700 Calendar DemoHnx&ctRevID 1249789519Selection Descriptionfalse revstackfalse revbasicfalse-- function to use calendar stack to get a date -- the parameter must be in short English format -- or empty (in which case today's date is used) -- -- the stackname for the Calendar you have installed or chosen, -- must be the second parameter -- function getDate pStartingDate, pCalendarStackName if pStartingDate is empty or pStartingDate is not a date then put the short english date into pStartingDate if pCalendarStackName is empty or there is not a stack pCalendarStackName then return empty set the dialogdata to pStartingDate set the cStoredTL of stack pCalendarStackName to empty -- un-comment the following line to position the calendar beside the calling object -- set the cStoredTL of stack pCalendarStackName to the globalloc of the bottomright of the target go to stack pCalendarStackName as modal if the dialogdata is not empty then put the dialogdata into theDate return theDate else return empty end if end getDate 4Calendar Demo v1.6 ULucida Grande @UGeneva UGeneva UComic Sans MS UVerdana UVerdana @UVerdana @UVerdana cGlx2GeneralcScriptChecksumCompilesForArchive2cExplicitVariablescHscrollScript0cLocalscHscrollHandlers0 cHtmlScript]}AR0 E9vLs6 '0{pmhaJ\J4MB?S' a.KHe(/;Pw0F0E!YK INc]P;=e0bp I96k9y٢x߆UUJ.Ho91KfCKkWODӆjlbYL77筁 fEẨZtϻjZ7Qv\x, 2ʜ+`K⩪dg 1194956730start 1194956606start cREVGeneral debugObjects Pon preOpenStack put the short English date into fld "English date" put the short system date into fld "System date" set the scroll of fld "Notes" to 0 put empty into btn "InstallInto" set the label of btn "InstallInto" to "Select a main stack" end preOpenStack x&ctRevID 1249788268 cREVGeneral  English date-pon mouseUp put the hilitedButtonName of grp "CalSize" into tCal if tCal = "Small" then put "Calendar" into tStackName else if tCal = "Medium" then put "MediumCalendar" into tStackName else put "LargeCalendar" into tStackName end if put getDate(me, tStackName) into theDate if theDate is empty then exit to top put theDate into me convert theDate from short English date to short system date put theDate into fld "System date" end mouseUp efctRevID 1249788407 cGlx2GeneralcScriptChecksumcExplicitVariablescHscrollScript0cLocalscHscrollHandlers0cSelectedChunkchar 282 to 288 cHtmlScriptAN0 E=H`K`S䷉H*qqBG~l-R.3 6WAڛ#;I`f՗mD%dXr~KJ3^ݲVH%bo ډ [>R=.+y13:J`AfdA*aB^R^SF5 #Uu~UUvMf|D\Mn XhGws*Qw~k7l:l-9xFdcHandlersListWidth119 cConstantscHtmlHandlersb)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&pũ ɯs i cDirtyFlagfalse cFolders all handlers cHandlersmouseUpcVscrollScript0cVscrollHandlers0 cHilitedLine cGlobalscGlx2TimeStamp checksumZbn\d4=c 1194956712start cREVGeneral revUniqueID 1078548945031 Enter special datesEwon mouseUp put the hilitedButtonName of grp "CalSize" into tCal if tCal = "Small" then put "Calendar" into tStackName else if tCal = "Medium" then put "MediumCalendar" into tStackName else put "LargeCalendar" into tStackName end if put getDate(, tStackName) into theDate if theDate is empty then exit to top answer question "Is " & theDate & " an annual event," & cr & \ "or is it just for the selected year?" with "Cancel" or "Annual" or "Selected year" if it is "Cancel" then exit to top if it is "Annual" then set the itemDel to "/" delete last item of theDate end if ask information "Enter a description for " & theDate & cr & \ "if you want a toolTip to show it." if the result is "Cancel" then exit to top if it is not empty then put tab & it after theDate put fld "Specials" & cr & theDate into tList sort tList numeric by item 3 of each sort tList numeric by item 2 of each sort tList numeric by item 1 of each filter tList with "?*" put tList into fld "Specials" set the cHilitedays of stack "Calendar" to tList set the cHilitedays of stack "MediumCalendar" to tList set the cHilitedays of stack "LargeCalendar" to tList end mouseUp rUcGlx2TimeStamp checksum cREVGeneral revUniqueID 1078550423530 DeleteEw on mouseUp put the hilitedLine of fld "Specials" into tLineNum if tLineNum is empty then answer error "Select a date for deletion." exit to top end if answer warning "Really delete this entry?" with "Cancel" or "Delete" if it is "Cancel" then exit to top delete line tLineNum of fld "Specials" set the cHilitedays of stack "Calendar" to fld "Specials" set the cHilitedays of stack "LargeCalendar" to fld "Specials" set the cHilitedays of stack "MediumCalendar" to fld "Specials" end mouseUp rRScGlx2TimeStamp checksum cREVGeneral revUniqueID 1078551038045 EditEwon mouseUp put the hilitedLine of fld "Specials" into tLineNum if tLineNum is empty then answer error "Select a date for editing." exit to top end if put line tLineNum of fld "Specials" into tEntry set the itemDel to tab put item 1 of tEntry into tDate put item 2 of tEntry into tName set the itemdel to "/" if the number of items in tDate < 3 then put true into isAnnual set the itemdel to comma put the seconds into tNow convert tNow to dateItems put "/" & item 1 of tNow after tDate else put false into isAnnual end if set the itemdel to "/" put the hilitedButtonName of grp "CalSize" into tCal if tCal = "Small" then put "Calendar" into tStackName else put "LargeCalendar" into tStackName end if put getDate(tDate, tStackname) into tDate if tDate is empty then exit to top if isAnnual then delete last item of tDate ask information "Enter the new description:" with tName if the result = "Cancel" then exit to top put it into tName put tDate & tab & tName into line tLineNum of fld "Specials" sort fld "Specials" numeric by item 3 of each sort fld "Specials" numeric by item 2 of each sort fld "Specials" numeric by item 1 of each set the cHilitedays of stack "Calendar" to fld "Specials" set the cHilitedays of stack "LargeCalendar" to fld "Specials" set the cHilitedays of stack "MediumCalendar" to fld "Specials" end mouseUp RScGlx2TimeStamp checksum cREVGeneral revUniqueID 1078551155323 breakPoints Notes pwon linkClicked theLink -- revGoURL ("mailto:" & theLink) revMail theLink,,the label of this stack end linkClicked @ H]cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011834261037  This file contains three sub stacks called "Calendar", "MediumCalendar" and "LargeCalendar". Select the size you prefer and chose whether you want the week to start on Sunday or Monday. Click on either of the dates above, the Show Current Date button or the Ask Date button, to open the calendar preset to that date. Then select a new date in the calendar and it will appear in the fields above in both formats (which may be identical depending on your system settings). Using this gives the user a graphical way of entering a date and means that you can always be sure what format the date will be in. You can change month & year with the buttons at the top & leap years are allowed for. Clicking on the displayed date underneath the calendar will jump to today's date. The property "dialogData" is used to pass the dates back & forth. The calendar stack always operates with the English date as this is a consistent format (although not English!). This has been tested on Mac OS 9, Mac OS X & Windows XP. If anyone finds any bugs or verifies that it works under other platforms please let me know. New features: March 2004 Installation: select the calendar you want to install, open the mainStack you want to install it into, and choose that stack from the popup below the Install button. Click the Install button and the selected calendar stack will be cloned into your stack and a function for calling it will be added to your stack script. The cloned stack will be called "Copy of ..." so you will have to close this demo and remove it from memory before you can rename it to either "Calendar", "MediumCalendar" or "LargeCalendar". Week start option: select whether you want the week to start on Monday or Sunday. This is controlled by a custom property of the Calendar stacks - cStartOnMonday - which is set to either true or false. Special dates: this allows you to enter a list of days that you want marked in the calendar, with options for recurring annual events or one of events. An optional description can be entered which is show as a toolTip when the mouse hovers over the relevant date in the calendar. This is a tab-delimited list with dates in short English format in the first column and descriptions in the second. If the year is missing from the date, it is applied to all years. The list is stored in a custom property of the Calendar stacks - cHiliteDays. The interface for entering special days is an example only and will need to be customized for your own applications and system language. Internationalization: by changing the Cancel & Select button to icons and specifying system monthNames and system weekDayNames and system formats wherever appropriate, I hope that this is now a utility that can be used by any one no matter what system language they use. There is no support for Unicode fonts yet. Thanks to ric Chatonet for his helpful testing and suggestions for this feature. Fix: September 2005 Changing months where the selected date is no longer valid, now produces a displayed date consistent with the calendar hilite. (New features: August 2009 (Version 1.5) EAdded the option to display leading zeroes for days in the calendar. The getDate script (which is installed when you use the "Install.." button) now has an option to place the calendar stack beside the object that called it. This requires the stack to be a palette which may not be as useful as the default (modal). OVersion 1.6: fix for palette option which was not returning the selected date. 2If you find these stacks useful, please email me. Sarah Reichelt sarah@troz.net  `YIβ Ask DateEw=on mouseUp send mouseUp to fld "English date" end mouseUp *|Q cGlx2GeneralcScriptChecksumcExplicitVariablescHscrollScript0cLocalscHscrollHandlers0cSelectedChunk char 19 to 28 cHtmlScriptRյSHQHKI-*S/-N -RP(NKqJrR\s23RKRTApjMcHandlersListWidth119 cConstantscHtmlHandlersb)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&pũ ɯs i cDirtyFlagfalse cFolders all handlers cHandlersmouseUpcVscrollScript0cVscrollHandlers0 cHilitedLine cGlobalscGlx2TimeStamp checksumWA/ۊ2܄ cREVGeneral revUniqueID 1079913458339  InstallIntoe ron mouseDown put the mainStacks & cr into tList replace "Home" & cr with "" in tList replace "Message Box" & cr with "" in tList replace "Calendar Demo" & cr with "" in tList filter tList without "rev*" if last char of tList = cr then delete last char of tList if tList is empty then put "No main stacks open" into tList put tList into me end mouseDown 7Select a main stackcGlx2TimeStamp checksum cREVGeneral revUniqueID 1078548645670  LeadingZeros`eon mouseUp put the hilite of me into tShowZeroes set the cShowZeroes of stack "Calendar" to tShowZeroes set the cShowZeroes of stack "LargeCalendar" to tShowZeroes set the cShowZeroes of stack "MediumCalendar" to tShowZeroes end mouseUp ctRevID 1249788548Show leading zeroes cREVGeneral revUniqueID 1249788500603 1 Calendar2H uwhiteWctRevID 1249788823 revstackfalse cHiliteDays cShowZeroesfalse cStoredTLcStartOnMondayfalse --> all handlers global gLastClick -- placeholders to stop triggering other stack scripts -- on openStack end openStack on openCard end openCard on preOpenCard end preOpenCard on closeCard end closeCard on preOpenStack if the cStoredTL of me is a point then set the topleft of me to the cStoredTL of me end if clearAllHilites setupDayLabels setupCurrentDate end preOpenStack on closeStack if gLastClick is not empty then set the hilite of gLastClick to false put empty into gLastClick delete global gLastClick end closeStack on setupDayLabels put the system weekdaynames into tDays if the cStartOnMonday of this stack = true then put line 1 of tDays into line 8 of tDays delete line 1 of tDays end if repeat with x = 1 to 7 put titleCase(char 1 to 2 of line x of tDays) into fld ("Day" & x) end repeat end setupDayLabels on setupCurrentDate if the dialogdata is empty or the dialogdata is not a date then put the seconds into today convert today to dateItems else put the dialogdata into today convert today from english date to dateItems end if put item 2 of today into tMonth put item 1 of today into tYear put titleCase(line tMonth of the system monthNames) && tYear into fld "Month Year" put today into tDate convert tDate from dateItems to long system date put titleCase(tDate) into fld "Selected" drawCalendar -- select the current day put item 3 of today into dayNum selectDay dayNum end setupCurrentDate on selectDay dayNum -- check for invalid parameter e.g. 31 Feb put checkMaxDate(dayNum) into dayNum if gLastClick is not empty then set the hilite of gLastClick to false repeat with w = 1 to 6 repeat with d = 1 to 7 if the label of btn ("Week " & w & " Day " & d) = dayNum then set the hilite of btn ("Week " & w & " Day " & d) to true put the name of btn ("Week " & w & " Day " & d) into gLastClick exit repeat end if end repeat end repeat end selectDay on clearAllHilites repeat with w = 1 to 6 repeat with d = 1 to 7 set the hilite of btn ("Week " & w & " Day " & d) to false end repeat end repeat end clearAllHilites function checkMaxDate pDay put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum put word 2 of fld "Month Year" into yearNum put daysInMonth(monthNum, yearNum) into maxDays if maxDays < pDay then return maxDays else return pDay end checkMaxDate on showSelectedDate pDay put the label of gLastClick into pDay put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum put word 2 of fld "Month Year" & comma & monthNum & comma & pDay & ",12,0,0,0" into tDate convert tDate from dateItems to long system date put titleCase(tDate) into fld "Selected" end showSelectedDate on drawCalendar put word 1 of fld "Month year" into theMonth put word 2 of fld "Month year" into theYear put lineoffset(theMonth, the system monthNames) into monthNum put daysInMonth(monthNum, theYear) into monthLen put monthNum & "/1/" & theYear into firstDate convert firstDate from english date to dateItems put last item of firstDate into firstDay if the cStartOnMonday of this stack = true then subtract 1 from firstDay if firstDay = 0 then put 7 into firstDay end if end if repeat with x = 1 to 7 if x < firstDay then set the label of btn ("Week 1 Day " & x) to " " hide btn ("Week 1 Day " & x) else if the cShowZeroes of this stack = true then set the label of btn ("Week 1 Day " & x) to char -2 to -1 of ("00" & x - firstDay + 1) else set the label of btn ("Week 1 Day " & x) to x - firstDay + 1 end if show btn ("Week 1 Day " & x) end if end repeat put x - firstDay + 2 into lastNum repeat with w = 2 to 6 repeat with d = 1 to 7 if lastNum > monthLen then set the label of btn ("Week " & w & " Day " & d) to " " hide btn ("Week " & w & " Day " & d) else if the cShowZeroes of this stack = true then set the label of btn ("Week " & w & " Day " & d) to char -2 to -1 of ("00" & lastNum) else set the label of btn ("Week " & w & " Day " & d) to lastNum end if show btn ("Week " & w & " Day " & d) end if add 1 to lastNum end repeat end repeat showHilites end drawCalendar -- backColors - weekends 208,208,208 -- weekdays 244,244,244 -- specials are reversed -- on showHilites -- cHiliteDays contains a list of dates to be hilited -- in English date format, one per line put the cHiliteDays of this stack into tHilites put cr into dayList -- get a list of the days in this month that need hiliting repeat for each line L in tHilites set the itemdel to tab put item 1 of L into tDate put item 2 of L into tLabel -- allow for days showing every year set the itemdel to "/" if the number of items in tDate < 3 or item 3 of tDate is empty then put word 2 of fld "Month Year" into item 3 of tDate set the itemdel to comma convert tDate from short english date to dateItems put item 2 of tDate into monthNum put line monthNum of the system monthnames into theMonth put titleCase(theMonth) && item 1 of tDate into monthYear if monthYear <> fld "Month Year" then next repeat put item 3 of tDate & tab & tLabel & cr after dayList end repeat -- now loop through all day buttons -- setting default hilite or special if the cStartOnMonday of this stack = true then put "67" into tWeekend else put "17" into tWeekend set the itemdel to tab repeat with w = 1 to 6 repeat with d = 1 to 7 put the label of btn ("Week " & w & " Day " & d) into dayNum if tWeekend contains d then set the backcolor of btn ("Week " & w & " Day " & d) to "208,208,208" else set the backcolor of btn ("Week " & w & " Day " & d) to "244,244,244" end if if dayList contains cr & dayNum & tab then set the forecolor of btn ("Week " & w & " Day " & d) to the backcolor of btn ("Week " & w & " Day " & d) set the backcolor of btn ("Week " & w & " Day " & d) to "0,0,0" set the hilitecolor of btn ("Week " & w & " Day " & d) to "255,185,0" get lineoffset(dayNum & tab, dayList) if it > 0 then put item 2 of line it of dayList into tDayLabel set the tooltip of btn ("Week " & w & " Day " & d) to tDayLabel end if else set the forecolor of btn ("Week " & w & " Day " & d) to "0,0,0" set the hilitecolor of btn ("Week " & w & " Day " & d) to empty set the tooltip of btn ("Week " & w & " Day " & d) to empty end if end repeat end repeat end showHilites function daysInMonth monthNum, yearNum if (monthNum is in "1,3,5,7,8,10") or (monthNum = 12) then return 31 else if (monthNum is in "4,6,9,11") then return 30 else if (yearNum mod 400 = 0) or (yearNum mod 100 <> 0) and (yearNum mod 4 = 0) then return 29 -- leap year else return 28 end daysInMonth function titleCase pString put empty into tNew repeat for each word w in pString put toupper(char 1 of w) & char 2 to -1 of w & space after tNew end repeat delete last char of tNew return tNew end titleCase on mouseDown if the short name of the target contains "Week" then set the hilite of the target to true if gLastClick is not empty then set the hilite of gLastClick to false end if end mouseDown on mouseRelease if the short name of the target contains "Week" then set the hilite of the target to false if gLastClick is not empty then set the hilite of gLastClick to true end if end mouseRelease on mouseUp if the short name of the target contains "Week" then if gLastClick is not empty then set the hilite of gLastClick to false set the hilite of the target to true put the target into gLastClick showSelectedDate the label of the target end if end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp 4  WLucida Grande WArial WArial UArial WArial WGeneva UGenevaUCourier UCourier WComic Sans MS WComic Sans MS UComic Sans MSWComic Sans MS UComic Sans MS UComic Sans MS ULucida GrandecGlx2TimeStamp checksum,Jƿӿu cREVGeneralI@ cREVGeneral     %&'()*+|}~ǀǁ  Month Year H +ucGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253359926  August 2009  Next monthCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawNextMonth if "drawNextMonth" is not in the pendingMessages then send "drawNextMonth" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawNextMonth global gLastClick lock screen if the mouse is up then exit to top put the system monthNames into mNames get lineOffset(word 1 of fld "Month Year", mNames) if it = 12 then put titleCase(line 1 of mNames) into word 1 of fld "Month year" add 1 to last word of fld "Month year" else put titleCase(line it+1 of mNames) into word 1 of fld "Month year" end if -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawNextMonth" is not in the pendingMessages then send "drawNextMonth" to me in 100 milliseconds put the result into lCancelID end drawNextMonth 4ǀcGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Next yearCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawNextYear if "drawNextYear" is not in the pendingMessages then send "drawNextYear" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawNextYear global gLastClick lock screen if the mouse is up then exit to top add 1 to last word of fld "Month year" -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawNextYear" is not in the pendingMessages then send "drawNextYear" to me in 100 milliseconds put the result into lCancelID end drawNextYear 6ǁcGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Prev monthCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawPrevMonth if "drawPrevMonth" is not in the pendingMessages then send "drawPrevMonth" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawPrevMonth global gLastClick lock screen if the mouse is up then exit to top put the system monthNames into mNames get lineOffset(word 1 of fld "Month Year", mNames) if it = 1 then put titleCase(line 12 of mNames) into word 1 of fld "Month year" subtract 1 from last word of fld "Month year" else put titleCase(line it-1 of mNames) into word 1 of fld "Month year" end if -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawPrevMonth" is not in the pendingMessages then send "drawPrevMonth" to me in 100 milliseconds put the result into lCancelID end drawPrevMonth 6cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Prev yearCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawPrevYear if "drawPrevYear" is not in the pendingMessages then send "drawPrevYear" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawPrevYear global gLastClick lock screen if the mouse is up then exit to top subtract 1 from last word of fld "Month year" -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawPrevYear" is not in the pendingMessages then send "drawPrevYear" to me in 100 milliseconds put the result into lCancelID end drawPrevYear 0~cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Week 1 Day 1eg,Selection Descriptionfalse4 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 2eg,Selection Descriptionfalse4 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 3eg;,Selection Descriptionfalse2 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 4egW,Selection Descriptionfalse2 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 5egs,Selection Descriptionfalse0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 6eg,Selection Descriptionfalse0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 7eg,61cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 3eg;>64cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 4egW>45cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 5egs>46cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 6eg>27cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 7eg>28cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 1eg>02cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 2eg>03cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 3eg;PW11cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 4egWPW12cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 5egsPU13cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 6egPU14cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 7egPS15cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 1egPS9cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 2egPQ10cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 3eg;bQ18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 4egWbW19cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 5egsbW20cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 6egbU21cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 7egbU22cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 1egbS16cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 2egbS17cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 2egtQ24cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 3eg;tQ25cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 4egWtW26cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 5egstSelection DescriptionfalseW27cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 6egtSelection DescriptionfalseU28cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 1egtU23cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 7egtSelection DescriptionfalseS29cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 2egSelection DescriptionfalseS31cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 3eg;Selection DescriptionfalseQ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 4egWSelection DescriptionfalseQ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 5egsSelection DescriptionfalseW cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 6egSelection DescriptionfalseW cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 7egSelection DescriptionfalseU cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 1egSelection DescriptionfalseU30cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660 CancelC Jon mouseUp set the dialogData to empty close this window end mouseUp ((U|cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011256409910 SelectC on mouseUp global gLastClick if gLastClick is empty or the label of gLastClick is empty then beep exit mouseUp end if -- gather the date into the English format put word 1 of fld "Month Year" into theMonth put lineOffset(theMonth, the system monthNames) into monthNum set the dialogData to monthNum & "/" & the label of gLastClick & "/" & word 2 of fld "Month Year" close this window end mouseUp ((U}cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011256409910  Selected Zon mouseUp set the dialogData to the short English date setupCurrentDate end mouseUp  cReturnDate6/1/1973cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011855337366 Monday, 31 August 2009 %Day1  cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542476112 Su &Day2  cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537026 Mo 'Day3  ;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537027 Tu (Day4  WcGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537028 We )Day5  scGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537029 Th *Day6  cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537030 Fr +Day7  cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537031 Sa| cross.png* P PNG  IHDR szz pHYs  gAMAo3 cHRMms<v%2\#L}z IDATxl @@jENjPZ7WEMZ'qdءmU/s1sFr? ݼd/7O޽ 307 @/#SZ ,``q( 8` 6b@Uo[@+b/by@ l ^ObJAC0B  VqisF&&Y@g@nn @JH|n d3p^ :Wt4](~ ( ԣ ra%<@Z(B{ fgSy~,g`%8Dv }hX+a'ɺ軪Ơz@-! Fxt@q @1/J@b 6l9,eCQVP}d)̀#4UTsh8P>fEʚڍ@1E@_ e4୚@| ;x@5A%%m7'@{RcfMpU LiB @i߀ͤ@6GO~doVQ\C x+- G.@]h@̼٩ KpVQjU@. yM aQ*|>-ԯe@d9g@z) P;a%ЁOk@||>'^wz=lwR-z+> ]P@yyƅ̐7bP 4`ʃ^Ajو̶{jZ.`ˎF =&+1IENDB`cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078545812665} tick.png P^PNG  IHDR szz pHYs  gAMAo3 cHRMms<v%2\#L}zIDATxL @ K-2+=&Q.M5I4RۓyǏow^Dz+xe!Ha9bC`amQ s-H'bt`Kc -Gv `GEx?C{L- rl h +  (X- Cpᡀ[c/!T H?Z@,! DD=-`CrgZr+@ad d0}8Yl1  P hс(=:B,8З9@ߚ-el9s@ OP H: =тje@ˢAl_!068 3`(Z$JXt-ƻl?y!C}{@D5zH 'D$CKf96f@ˋ#=! 4?( %H+lZ"-gZ\HP@|tH77 P) ʀ|F&0yMXXd u d,wZ ?@G@'b&D偘_ք=~yl g*(@z=^M@7e @%r@P ~ˀbہA {΀BWt01S#f#9r<{, &4/q['j`GM P4| ~  EH@߱%ueۢk`r obZh,hQ, a8!Jt@} TfXq9@ ?"}LDTH h68/r@˷ȵ(!XHf/'taA n@ A??srGPC- 4@-%BFdJ35D4}/ qJ߃d5rD'}O1:i!ȼ k Pp#YE )b T,fʀTi0W %fZ"K*b/JRs]@-i5Eg2H[c%5?0$Ҁ; `GZ>T^CGsXj> y AIl \$yh@1`%:fkxi T' L6"9+ P09P3ћj1C%F`@WVҙ@1fHq(33@^*GmOܠEW1S X} 10 ?A>-?jXAK@@L~PGDmJ: ?У7J? nΆo zLȍԿ-f @(`F#ʣ_ }/W\cx @v/ /mD@lXEdK'B#@q@_>o-HV~ >3߿`F~H0#1 ~FF&H(@1o@oHYt?练E}U,[D9D!@z" VpCgu9@ͩ '@~_ eaq7q!E@A(aM P @#Y ^|ρߡPp?ϲ-kc`-kd QWGIENDB`cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078545821295~ PrevYear@? `GIF89a , @I+} '~YH;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252648687 PrevMonth@OwGIF89aff̙3!,< H*\XC``ą\LXQƉ;z2H|"I(P;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252663430ǀ NextMonth@fpGIF89a3ff̸!,GCHg Æ Wċ>-B ɱɋ6rD3 Y1#ɒ"!clip2gif 0.7.2 by Yves Piguet;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252673630ǁ NextYear@} pcGIF89a , @I+} 'ׅብǢi;cGlx2TimeStamp checksum cREVGeneral revUniqueID 10802526821432LargeCalendar2H uwhitectRevID 1249788827 cHiliteDays revstackfalse cShowZeroesfalse cStoredTL252,276cStartOnMondayfalse --> all handlers global gLastClick -- placeholders to stop triggering other stack scripts -- on openStack end openStack on openCard end openCard on preOpenCard end preOpenCard on closeCard end closeCard on preOpenStack if the cStoredTL of me is a point then set the topleft of me to the cStoredTL of me end if clearAllHilites setupDayLabels setupCurrentDate end preOpenStack on closeStack global gLastClick if gLastClick is not empty then set the hilite of gLastClick to false put empty into gLastClick delete global gLastClick end closeStack on setupDayLabels put the system weekdaynames into tDays if the cStartOnMonday of this stack = true then put line 1 of tDays into line 8 of tDays delete line 1 of tDays end if repeat with x = 1 to 7 put titleCase(char 1 to 2 of line x of tDays) into fld ("Day" & x) end repeat end setupDayLabels on setupCurrentDate if the dialogdata is empty or the dialogdata is not a date then put the seconds into today convert today to dateItems else put the dialogdata into today convert today from english date to dateItems end if put item 2 of today into tMonth put item 1 of today into tYear put titleCase(line tMonth of the system monthNames) && tYear into fld "Month Year" put today into tDate convert tDate from dateItems to long system date put titleCase(tDate) into fld "Selected" drawCalendar -- select the current day put item 3 of today into dayNum selectDay dayNum end setupCurrentDate on selectDay dayNum -- check for invalid parameter e.g. 31 Feb put checkMaxDate(dayNum) into dayNum if gLastClick is not empty then set the hilite of gLastClick to false repeat with w = 1 to 6 repeat with d = 1 to 7 if the label of btn ("Week " & w & " Day " & d) = dayNum then set the hilite of btn ("Week " & w & " Day " & d) to true put the name of btn ("Week " & w & " Day " & d) into gLastClick exit repeat end if end repeat end repeat end selectDay on clearAllHilites repeat with w = 1 to 6 repeat with d = 1 to 7 set the hilite of btn ("Week " & w & " Day " & d) to false end repeat end repeat end clearAllHilites function checkMaxDate pDay put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum put word 2 of fld "Month Year" into yearNum put daysInMonth(monthNum, yearNum) into maxDays if maxDays < pDay then return maxDays else return pDay end checkMaxDate on showSelectedDate pDay put the label of gLastClick into pDay put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum put word 2 of fld "Month Year" & comma & monthNum & comma & pDay & ",12,0,0,0" into tDate convert tDate from dateItems to long system date put titleCase(tDate) into fld "Selected" end showSelectedDate on drawCalendar put word 1 of fld "Month year" into theMonth put word 2 of fld "Month year" into theYear put lineoffset(theMonth, the system monthNames) into monthNum put daysInMonth(monthNum, theYear) into monthLen put monthNum & "/1/" & theYear into firstDate convert firstDate from english date to dateItems put last item of firstDate into firstDay if the cStartOnMonday of this stack = true then subtract 1 from firstDay if firstDay = 0 then put 7 into firstDay end if end if repeat with x = 1 to 7 if x < firstDay then set the label of btn ("Week 1 Day " & x) to " " hide btn ("Week 1 Day " & x) else if the cShowZeroes of this stack = true then set the label of btn ("Week 1 Day " & x) to char -2 to -1 of ("00" & x - firstDay + 1) else set the label of btn ("Week 1 Day " & x) to x - firstDay + 1 end if show btn ("Week 1 Day " & x) end if end repeat put x - firstDay + 2 into lastNum repeat with w = 2 to 6 repeat with d = 1 to 7 if lastNum > monthLen then set the label of btn ("Week " & w & " Day " & d) to " " hide btn ("Week " & w & " Day " & d) else if the cShowZeroes of this stack = true then set the label of btn ("Week " & w & " Day " & d) to char -2 to -1 of ("00" & lastNum) else set the label of btn ("Week " & w & " Day " & d) to lastNum end if show btn ("Week " & w & " Day " & d) end if add 1 to lastNum end repeat end repeat showHilites end drawCalendar -- backColors - weekends 208,208,208 -- weekdays 244,244,244 -- holidays 0,0,255 -- on showHilites -- cHiliteDays contains a list of dates to be hilited -- in English date format, one per line put the cHiliteDays of this stack into tHilites put cr into dayList -- get a list of the days in this month that need hiliting repeat for each line L in tHilites set the itemdel to tab put item 1 of L into tDate put item 2 of L into tLabel -- allow for days showing every year set the itemdel to "/" if the number of items in tDate < 3 or item 3 of tDate is empty then put word 2 of fld "Month Year" into item 3 of tDate set the itemdel to comma convert tDate from short english date to dateItems put item 2 of tDate into monthNum put line monthNum of the system monthnames into theMonth put titleCase(theMonth) && item 1 of tDate into monthYear if monthYear <> fld "Month Year" then next repeat put item 3 of tDate & tab & tLabel & cr after dayList end repeat -- now loop through all day buttons -- setting default hilite or special if the cStartOnMonday of this stack = true then put "67" into tWeekend else put "17" into tWeekend set the itemdel to tab repeat with w = 1 to 6 repeat with d = 1 to 7 put the label of btn ("Week " & w & " Day " & d) into dayNum if tWeekend contains d then set the backcolor of btn ("Week " & w & " Day " & d) to "208,208,208" else set the backcolor of btn ("Week " & w & " Day " & d) to "244,244,244" end if if dayList contains cr & dayNum & tab then set the forecolor of btn ("Week " & w & " Day " & d) to the backcolor of btn ("Week " & w & " Day " & d) set the backcolor of btn ("Week " & w & " Day " & d) to "0,0,0" set the hilitecolor of btn ("Week " & w & " Day " & d) to "255,185,0" get lineoffset(dayNum & tab, dayList) if it > 0 then put item 2 of line it of dayList into tDayLabel set the tooltip of btn ("Week " & w & " Day " & d) to tDayLabel end if else set the forecolor of btn ("Week " & w & " Day " & d) to "0,0,0" set the hilitecolor of btn ("Week " & w & " Day " & d) to empty set the tooltip of btn ("Week " & w & " Day " & d) to empty end if end repeat end repeat end showHilites function daysInMonth monthNum, yearNum if (monthNum is in "1,3,5,7,8,10") or (monthNum = 12) then return 31 else if (monthNum is in "4,6,9,11") then return 30 else if (yearNum mod 400 = 0) or (yearNum mod 100 <> 0) and (yearNum mod 4 = 0) then return 29 -- leap year else return 28 end daysInMonth function titleCase pString put empty into tNew repeat for each word w in pString put toupper(char 1 of w) & char 2 to -1 of w & space after tNew end repeat delete last char of tNew return tNew end titleCase on mouseDown if the short name of the target contains "Week" then set the hilite of the target to true if gLastClick is not empty then set the hilite of gLastClick to false end if end mouseDown on mouseRelease if the short name of the target contains "Week" then set the hilite of the target to false if gLastClick is not empty then set the hilite of gLastClick to true end if end mouseRelease on mouseUp if the short name of the target contains "Week" then if gLastClick is not empty then set the hilite of gLastClick to false set the hilite of the target to true put the target into gLastClick showSelectedDate the label of the target end if end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp 4  WLucida Grande WArial WArial UArial WArial WGeneva UGenevaUCourier UCourier WComic Sans MS WComic Sans MS UComic Sans MSWComic Sans MS UComic Sans MS UComic Sans MS ULucida GrandeUComic Sans MSWComic Sans MScGlx2TimeStamp checksum̶,I$" cREVGeneralI@ cREVGeneral     %&'()*+|}ǀ~ǁ  Month Year HV$cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253359926  August 2009  Next monthCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawNextMonth if "drawNextMonth" is not in the pendingMessages then send "drawNextMonth" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawNextMonth global gLastClick lock screen if the mouse is up then exit to top put the system monthNames into mNames get lineOffset(word 1 of fld "Month Year", mNames) if it = 12 then put titleCase(line 1 of mNames) into word 1 of fld "Month year" add 1 to last word of fld "Month year" else put titleCase(line it+1 of mNames) into word 1 of fld "Month year" end if -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawNextMonth" is not in the pendingMessages then send "drawNextMonth" to me in 100 milliseconds put the result into lCancelID end drawNextMonth @**4ǀcGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Next yearCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawNextYear if "drawNextYear" is not in the pendingMessages then send "drawNextYear" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawNextYear global gLastClick lock screen if the mouse is up then exit to top add 1 to last word of fld "Month year" -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawNextYear" is not in the pendingMessages then send "drawNextYear" to me in 100 milliseconds put the result into lCancelID end drawNextYear j**6ǁcGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Prev monthCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawPrevMonth if "drawPrevMonth" is not in the pendingMessages then send "drawPrevMonth" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawPrevMonth global gLastClick lock screen if the mouse is up then exit to top put the system monthNames into mNames get lineOffset(word 1 of fld "Month Year", mNames) if it = 1 then put titleCase(line 12 of mNames) into word 1 of fld "Month year" subtract 1 from last word of fld "Month year" else put titleCase(line it-1 of mNames) into word 1 of fld "Month year" end if -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawPrevMonth" is not in the pendingMessages then send "drawPrevMonth" to me in 100 milliseconds put the result into lCancelID end drawPrevMonth ,**ctRevID 12497890776cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Prev yearCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawPrevYear if "drawPrevYear" is not in the pendingMessages then send "drawPrevYear" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawPrevYear global gLastClick lock screen if the mouse is up then exit to top subtract 1 from last word of fld "Month year" -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawPrevYear" is not in the pendingMessages then send "drawPrevYear" to me in 100 milliseconds put the result into lCancelID end drawPrevYear **0~cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Week 1 Day 1eoN8$Selection Descriptionfalse4 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 2eo>N8$Selection Descriptionfalse4 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 3eovN8$Selection Descriptionfalse2 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 4eoN8$Selection Descriptionfalse2 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 5eoN8$Selection Descriptionfalse0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 6eoN8$Selection Descriptionfalse0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 7eoVN8$61cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 3eovr8$64cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 4eor8$45cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 5eor8$46cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 6eor8$27cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 7eoVr8$28cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 1eor8$02cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 2eo>r8$03cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 3eov8$W11cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 4eo8$W12cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 5eo8$U13cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 6eo8$U14cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 7eoV8$S15cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 1eo8$S9cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 2eo>8$Q10cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 3eov8$Q18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 4eo8$W19cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 5eo8$W20cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 6eo8$U21cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 7eoV8$U22cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 1eo8$S16cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 2eo>8$S17cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 2eo>8$Q24cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 3eov8$Q25cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 4eo8$W26cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 5eo8$Selection DescriptionfalseW27cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 6eo8$Selection DescriptionfalseU28cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 1eo8$U23cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 7eoV8$Selection DescriptionfalseS29cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 2eo>8$Selection DescriptionfalseS31cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 3eov8$Selection DescriptionfalseQ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 4eo8$Selection DescriptionfalseQ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 5eo8$Selection DescriptionfalseW cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 6eo8$Selection DescriptionfalseW cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 7eoV8$Selection DescriptionfalseU cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 1eo8$Selection DescriptionfalseU30cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660 CancelC Jon mouseUp set the dialogData to empty close this window end mouseUp L66U|cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011256409910 SelectC on mouseUp global gLastClick if gLastClick is empty or the label of gLastClick is empty then beep exit mouseUp end if -- gather the date into the English format put word 1 of fld "Month Year" into theMonth put lineOffset(theMonth, the system monthNames) into monthNum set the dialogData to monthNum & "/" & the label of gLastClick & "/" & word 2 of fld "Month Year" close this window end mouseUp VL66U}cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011256409910  Selected  Zon mouseUp set the dialogData to the short English date setupCurrentDate end mouseUp , cReturnDate6/1/1973cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011855337366 Tuesday, 11 August 2009 %Day1  18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542476112 Su &Day2  >18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537026 Mo 'Day3  v18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537027 Tu (Day4  18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537028 We )Day5  18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537029 Th *Day6  18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537030 Fr +Day7  V18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537031 Sa| cross.png P PNG  IHDR szz pHYs  gAMAo3 cHRMms<v%2\#L}z IDATxl @@jENjPZ7WEMZ'qdءmU/s1sFr? ݼd/7O޽ 307 @/#SZ ,``q( 8` 6b@Uo[@+b/by@ l ^ObJAC0B  VqisF&&Y@g@nn @JH|n d3p^ :Wt4](~ ( ԣ ra%<@Z(B{ fgSy~,g`%8Dv }hX+a'ɺ軪Ơz@-! Fxt@q @1/J@b 6l9,eCQVP}d)̀#4UTsh8P>fEʚڍ@1E@_ e4୚@| ;x@5A%%m7'@{RcfMpU LiB @i߀ͤ@6GO~doVQ\C x+- G.@]h@̼٩ KpVQjU@. yM aQ*|>-ԯe@d9g@z) P;a%ЁOk@||>'^wz=lwR-z+> ]P@yyƅ̐7bP 4`ʃ^Ajو̶{jZ.`ˎF =&+1IENDB`cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078545812665} tick.png P^PNG  IHDR szz pHYs  gAMAo3 cHRMms<v%2\#L}zIDATxL @ K-2+=&Q.M5I4RۓyǏow^Dz+xe!Ha9bC`amQ s-H'bt`Kc -Gv `GEx?C{L- rl h +  (X- Cpᡀ[c/!T H?Z@,! DD=-`CrgZr+@ad d0}8Yl1  P hс(=:B,8З9@ߚ-el9s@ OP H: =тje@ˢAl_!068 3`(Z$JXt-ƻl?y!C}{@D5zH 'D$CKf96f@ˋ#=! 4?( %H+lZ"-gZ\HP@|tH77 P) ʀ|F&0yMXXd u d,wZ ?@G@'b&D偘_ք=~yl g*(@z=^M@7e @%r@P ~ˀbہA {΀BWt01S#f#9r<{, &4/q['j`GM P4| ~  EH@߱%ueۢk`r obZh,hQ, a8!Jt@} TfXq9@ ?"}LDTH h68/r@˷ȵ(!XHf/'taA n@ A??srGPC- 4@-%BFdJ35D4}/ qJ߃d5rD'}O1:i!ȼ k Pp#YE )b T,fʀTi0W %fZ"K*b/JRs]@-i5Eg2H[c%5?0$Ҁ; `GZ>T^CGsXj> y AIl \$yh@1`%:fkxi T' L6"9+ P09P3ћj1C%F`@WVҙ@1fHq(33@^*GmOܠEW1S X} 10 ?A>-?jXAK@@L~PGDmJ: ?У7J? nΆo zLȍԿ-f @(`F#ʣ_ }/W\cx @v/ /mD@lXEdK'B#@q@_>o-HV~ >3߿`F~H0#1 ~FF&H(@1o@oHYt?练E}U,[D9D!@z" VpCgu9@ͩ '@~_ eaq7q!E@A(aM P @#Y ^|ρߡPp?ϲ-kc`-kd QWGIENDB`cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078545821295 PrevMonth@YqwGIF89aff̙3!,< H*\XC``ą\LXQƉ;z2H|"I(P;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252663430ǀ NextMonth@pqpGIF89a3ff̸!,GCHg Æ Wċ>-B ɱɋ6rD3 Y1#ɒ"!clip2gif 0.7.2 by Yves Piguet;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252673630~ PrevYear@Ix `GIF89a , @I+} '~YH;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252648687ǁ NextYear@x pcGIF89a , @I+} 'ׅብǢi;cGlx2TimeStamp checksum cREVGeneral revUniqueID 10802526821432MediumCalendar2H uwhiteJ09ctRevID 1249788290 cHiliteDays revstackfalse cShowZeroesfalse cStoredTL330,144cStartOnMondayfalse"W--> all handlers global gLastClick -- placeholders to stop triggering other stack scripts -- on openStack end openStack on openCard end openCard on preOpenCard end preOpenCard on closeCard end closeCard on preOpenStack if the cStoredTL of me is a point then set the topleft of me to the cStoredTL of me end if clearAllHilites setupDayLabels setupCurrentDate end preOpenStack on closeStack if gLastClick is not empty then set the hilite of gLastClick to false put empty into gLastClick delete global gLastClick end closeStack on setupDayLabels put the system weekdaynames into tDays if the cStartOnMonday of this stack = true then put line 1 of tDays into line 8 of tDays delete line 1 of tDays end if repeat with x = 1 to 7 put titleCase(char 1 to 2 of line x of tDays) into fld ("Day" & x) end repeat end setupDayLabels on setupCurrentDate if the dialogdata is empty or the dialogdata is not a date then put the seconds into today convert today to dateItems else put the dialogdata into today convert today from short english date to dateItems end if put item 2 of today into tMonth put item 1 of today into tYear put titleCase(line tMonth of the system monthNames) && tYear into fld "Month Year" put today into tDate convert tDate from dateitems to long system date put titleCase(tDate) into fld "Selected" drawCalendar -- select the current day put item 3 of today into dayNum selectDay dayNum end setupCurrentDate on selectDay dayNum -- check for invalid parameter e.g. 31 Feb put checkMaxDate(dayNum) into dayNum if gLastClick is not empty then set the hilite of gLastClick to false repeat with w = 1 to 6 repeat with d = 1 to 7 if the label of btn ("Week " & w & " Day " & d) = dayNum then set the hilite of btn ("Week " & w & " Day " & d) to true put the name of btn ("Week " & w & " Day " & d) into gLastClick exit repeat end if end repeat end repeat end selectDay on clearAllHilites repeat with w = 1 to 6 repeat with d = 1 to 7 set the hilite of btn ("Week " & w & " Day " & d) to false end repeat end repeat end clearAllHilites function checkMaxDate pDay put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum put word 2 of fld "Month Year" into yearNum put daysInMonth(monthNum, yearNum) into maxDays if maxDays < pDay then return maxDays else return pDay end checkMaxDate on showSelectedDate pDay put the label of gLastClick into pDay put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum put word 2 of fld "Month Year" & comma & monthNum & comma & pDay & ",12,0,0,0" into tDate convert tDate from dateItems to long system date put titleCase(tDate) into fld "Selected" end showSelectedDate on drawCalendar put word 1 of fld "Month year" into theMonth put word 2 of fld "Month year" into theYear put lineoffset(theMonth, the system monthNames) into monthNum put daysInMonth(monthNum, theYear) into monthLen put monthNum & "/1/" & theYear into firstDate convert firstDate from english date to dateItems put last item of firstDate into firstDay if the cStartOnMonday of this stack = true then subtract 1 from firstDay if firstDay = 0 then put 7 into firstDay end if end if repeat with x = 1 to 7 if x < firstDay then set the label of btn ("Week 1 Day " & x) to " " hide btn ("Week 1 Day " & x) else if the cShowZeroes of this stack = true then set the label of btn ("Week 1 Day " & x) to char -2 to -1 of ("00" & x - firstDay + 1) else set the label of btn ("Week 1 Day " & x) to x - firstDay + 1 end if show btn ("Week 1 Day " & x) end if end repeat put x - firstDay + 2 into lastNum repeat with w = 2 to 6 repeat with d = 1 to 7 if lastNum > monthLen then set the label of btn ("Week " & w & " Day " & d) to " " hide btn ("Week " & w & " Day " & d) else if the cShowZeroes of this stack = true then set the label of btn ("Week " & w & " Day " & d) to char -2 to -1 of ("00" & lastNum) else set the label of btn ("Week " & w & " Day " & d) to lastNum end if show btn ("Week " & w & " Day " & d) end if add 1 to lastNum end repeat end repeat showHilites end drawCalendar -- backColors - weekends 208,208,208 -- weekdays 244,244,244 -- specials are reversed -- on showHilites -- cHiliteDays contains a list of dates to be hilited -- in English date format, one per line put the cHiliteDays of this stack into tHilites put cr into dayList -- get a list of the days in this month that need hiliting repeat for each line L in tHilites set the itemdel to tab put item 1 of L into tDate put item 2 of L into tLabel -- allow for days showing every year set the itemdel to "/" if the number of items in tDate < 3 or item 3 of tDate is empty then put word 2 of fld "Month Year" into item 3 of tDate set the itemdel to comma convert tDate from short english date to dateItems put item 2 of tDate into monthNum put line monthNum of the system monthnames into theMonth put titleCase(theMonth) && item 1 of tDate into monthYear if monthYear <> fld "Month Year" then next repeat put item 3 of tDate & tab & tLabel & cr after dayList end repeat -- now loop through all day buttons -- setting default hilite or special if the cStartOnMonday of this stack = true then put "67" into tWeekend else put "17" into tWeekend set the itemdel to tab repeat with w = 1 to 6 repeat with d = 1 to 7 put the label of btn ("Week " & w & " Day " & d) into dayNum if tWeekend contains d then set the backcolor of btn ("Week " & w & " Day " & d) to "208,208,208" else set the backcolor of btn ("Week " & w & " Day " & d) to "244,244,244" end if if dayList contains cr & dayNum & tab then set the forecolor of btn ("Week " & w & " Day " & d) to the backcolor of btn ("Week " & w & " Day " & d) set the backcolor of btn ("Week " & w & " Day " & d) to "0,0,0" set the hilitecolor of btn ("Week " & w & " Day " & d) to "255,185,0" get lineoffset(dayNum & tab, dayList) if it > 0 then put item 2 of line it of dayList into tDayLabel set the tooltip of btn ("Week " & w & " Day " & d) to tDayLabel end if disable btn ("Week " & w & " Day " & d) else set the forecolor of btn ("Week " & w & " Day " & d) to "0,0,0" set the hilitecolor of btn ("Week " & w & " Day " & d) to empty set the tooltip of btn ("Week " & w & " Day " & d) to empty enable btn ("Week " & w & " Day " & d) end if end repeat end repeat end showHilites function daysInMonth monthNum, yearNum if (monthNum is in "1,3,5,7,8,10") or (monthNum = 12) then return 31 else if (monthNum is in "4,6,9,11") then return 30 else if (yearNum mod 400 = 0) or (yearNum mod 100 <> 0) and (yearNum mod 4 = 0) then return 29 -- leap year else return 28 end daysInMonth function titleCase pString put empty into tNew repeat for each word w in pString put toupper(char 1 of w) & char 2 to -1 of w & space after tNew end repeat delete last char of tNew return tNew end titleCase on mouseDown if the short name of the target contains "Week" then set the hilite of the target to true if gLastClick is not empty then set the hilite of gLastClick to false end if end mouseDown on mouseRelease if the short name of the target contains "Week" then set the hilite of the target to false if gLastClick is not empty then set the hilite of gLastClick to true end if end mouseRelease on mouseUp if the short name of the target contains "Week" then if gLastClick is not empty then set the hilite of gLastClick to false set the hilite of the target to true put the target into gLastClick showSelectedDate the label of the target end if end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp 4  WLucida Grande WArial WArial UArial WArial WGeneva UGenevaUCourier UCourier WComic Sans MS WComic Sans MS UComic Sans MSWComic Sans MS UComic Sans MS UComic Sans MS ULucida Grande cGlx2GeneralcScriptChecksumcExplicitVariablesfalsecHscrollScript0cLocalscHscrollHandlers0 cHtmlScriptnF]_at"*viiN-<ȕHdEU$}g".PRLVZpVHM&WW<y%3t]Lb(WҹPoIUQ&UɪZ?eFV잫,J|t穬NtpR,5l+>J \&埅,h`l|BRK'`3R,ZYѰLkG>en"7:0A+J&b,RЊAOT9hk[%_Yũ+Xp99eWp0E.R\DLټ 沓wPbwWZpͶ&@MZ_42͹sDfکc)3vF.nYF=}:ĝzjqd9BG VD]AHA:\Bi"`=Ga]ƥ֬+JMP 1 t#r͒wyNҿBpĐruk:eAkȂfR  Jy5 PVuY5ĵGT2)ĵ&gmfֽRګçܱ~380uV½~ eJe+PD/^^W C,\0?bh=1ҸmGY7%}K/~#U6p}7*\A bf=~'(F!I^#̙ܗ~Y nYcM 0E;V*\'#_'cq@n~>t'2цV%MϫOH}ub,r$_Cd_r#Lojk^?A}{Ug2:2dKE,L^X)ž5DZ.j+"*#RPn\B+8_V vѧ@cA>ߎ$ٝIsdLoϡcW-ģ8Nj$_M `oԪ݀C/'w 5=+7.Qʨ֏&;YfD*HɷxIm`qu_J5`O+3]~7a:v"a\aeш=/PҮqNTJ'%BkäR2Ywi]s f^̟mi)gKV'~v Jh¦lΥ(Wϱ[<``)Ե0]”mzS账DП:W>d\JpEdH6G#cE/prٻܬ` n1$8)::tN4l=L4ƈ#)PѤ46vd88m'" ;64{|o 5J/Ů7 YC7n͜b|'N""T (sUmVyBh]!U1X&|#uZ95Ԟ]B]9 DeA#>_h0: WvuN wP`{~xf0A}YWFe`>k<+xύȻ-@'zVw1ZZy}ps?} ~LN9} TOT}ƾEhA=c@v &Cw4 u޴x1/9|^AIN.'A?oڶݵ͕ #XCX6yNzu? j{x,|7'u 0w@h ^olˮ8Eǫ#..1n+W-i7 cDirtyFlagfalse cFolders all handlers cHandlerscheckMaxDate() clearAllHilites closeCard closeStack daysInMonth() drawCalendar mouseDoubleUp mouseDown mouseRelease mouseUp openCard openStack preOpenCard preOpenStack selectDay setupCurrentDate setupDayLabels showHilites showSelectedDate titleCase()id 1194920583081cVscrollScript1624cVscrollHandlers0 cHilitedLine14 cGlobals gLastClickcGlx2TimeStamp 1206475215end checksumxxF˅W 1206475183start cREVGeneral breakPoints card id 1002I@09ctRevID 1249788272 cGlx2GeneralcScriptChecksumcExplicitVariablescHscrollScript0cLocalscHscrollHandlers0cSelectedChunk char 19 to 31 cHtmlScript8յSHQHKI-*SK-+5/I sF]3cHandlersListWidth127 cConstantscHtmlHandlersa)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&py => l cDirtyFlagfalse cFolders all handlers cHandlers newHandlercVscrollScript0cVscrollHandlers0 cHilitedLine cGlobalscGlx2TimeStamp checksumُ B~ 1194956363start cREVGeneral     %&'()*+|}ǀ~ǁ  Month Year H @  cGlx2GeneralcScriptChecksumcExplicitVariablescHscrollScript0cLocalscHscrollHandlers0 cHtmlScript8յSHQHKI-*SK-+5/I sF]3cSelectedChunk char 19 to 31 cConstantscHandlersListWidth127 cDirtyFlagfalsecHtmlHandlersa)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&py => l cFolders all handlers cHandlers newHandlercVscrollScript0cVscrollHandlers0 cHilitedLine2 cGlobalscGlx2TimeStamp 1206475172start checksumُ B~ 1206475173end cREVGeneral revUniqueID 1011253359926  August 2009  Next monthCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawNextMonth if "drawNextMonth" is not in the pendingMessages then send "drawNextMonth" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawNextMonth global gLastClick lock screen if the mouse is up then exit to top put the system monthNames into mNames get lineOffset(word 1 of fld "Month Year", mNames) if it = 12 then put titleCase(line 1 of mNames) into word 1 of fld "Month year" add 1 to last word of fld "Month year" else put titleCase(line it+1 of mNames) into word 1 of fld "Month year" end if -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawNextMonth" is not in the pendingMessages then send "drawNextMonth" to me in 100 milliseconds put the result into lCancelID end drawNextMonth  4ǀ cGlx2GeneralcScriptChecksumcExplicitVariablescHscrollScript0cLocals lCancelIDcHscrollHandlers0cSelectedChunkchar 1131 to 1235 cHtmlScriptSMo0 W94v.eÆzTl:JKH#/%Ş 8{n!q5a _W!}/;h}U )=AK( 7&/$4cj\{Şb9?NN6Y6`)u9pZ׉c;h-eYe^[@)r+&kG]aٓST \DCզX]/VM =z[RIgl} u蛆Qn>԰@C:ЄKhGu>ң½n&gKm*2D'҉oӇ-f6X|@ z0` ƙYxrv2\.A__VEs,/9XTbf i܄ez<? K#8Mߟ͓ףˆ"Z>, cHandlersListWidth168 cConstantscHtmlHandlers)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&pũ$jp/M!][PjNjbq*Y瑬-)E~%y% m)Xqy cDirtyFlagtrue cFolders all handlers cHandlersJdrawNextMonth mouseDoubleDown mouseDoubleUp mouseDown mouseRelease mouseUpcVscrollScript0cVscrollHandlers0 cHilitedLine7 cGlobalscGlx2TimeStamp 1209417538start 1209417547working checksum:Ks"Bud 1209417713end cREVGeneral revUniqueID 1011253440914  Next yearCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawNextYear if "drawNextYear" is not in the pendingMessages then send "drawNextYear" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawNextYear global gLastClick lock screen if the mouse is up then exit to top add 1 to last word of fld "Month year" -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawNextYear" is not in the pendingMessages then send "drawNextYear" to me in 100 milliseconds put the result into lCancelID end drawNextYear  6ǁcGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Prev monthCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawPrevMonth if "drawPrevMonth" is not in the pendingMessages then send "drawPrevMonth" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawPrevMonth global gLastClick lock screen if the mouse is up then exit to top put the system monthNames into mNames get lineOffset(word 1 of fld "Month Year", mNames) if it = 1 then put titleCase(line 12 of mNames) into word 1 of fld "Month year" subtract 1 from last word of fld "Month year" else put titleCase(line it-1 of mNames) into word 1 of fld "Month year" end if -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawPrevMonth" is not in the pendingMessages then send "drawPrevMonth" to me in 100 milliseconds put the result into lCancelID end drawPrevMonth  6cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Prev yearCwlocal lCancelID on mouseUp cancel lCancelID end mouseUp on mouseDoubleUp mouseUp end mouseDoubleUp on mouseRelease mouseUp end mouseRelease on mouseDoubleDown mouseDown end mouseDoubleDown on mouseDown drawPrevYear if "drawPrevYear" is not in the pendingMessages then send "drawPrevYear" to me in 250 milliseconds put the result into lCancelID end mouseDown on drawPrevYear global gLastClick lock screen if the mouse is up then exit to top subtract 1 from last word of fld "Month year" -- store currently selected day if gLastClick is not empty then put the label of gLastClick into theDay else put 1 into theDay end if drawCalendar -- reset currently selected day selectDay theDay showSelectedDate theDay if "drawPrevYear" is not in the pendingMessages then send "drawPrevYear" to me in 100 milliseconds put the result into lCancelID end drawPrevYear  0~cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011253440914  Week 1 Day 1eg;*Selection Descriptionfalse4 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 2eg/;*Selection Descriptionfalse4 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 3egY;*Selection Descriptionfalse2 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 4eg;*Selection Descriptionfalse2 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 5eg;*Selection Descriptionfalse0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 6eg;*Selection Descriptionfalse0 cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 1 Day 7eg;*61cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 3egYV*64cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 4egV*45cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 5egV*46cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 6egV*27cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 7egV*28cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 1egV*02cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 2 Day 2eg/V*03cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 3egYq*W11cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 4egq*W12cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 5egq*U13cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 6egq*U14cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 7egq*S15cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 1egq*S9cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 3 Day 2eg/q*Q10cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 3egY*Q18cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 4eg*W19cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 5eg*W20cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 6eg*U21cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 7eg*U22cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 1eg*S16cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 4 Day 2eg/*S17cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 2eg/*Q24cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 3egY*Q25cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 4eg*W26cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 5eg*Selection DescriptionfalseW27cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 6eg*Selection DescriptionfalseU28cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 1eg*U23cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 5 Day 7eg*Selection DescriptionfalseS29cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 2eg/*Selection DescriptionfalseS31cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 3egY*Selection DescriptionfalseQ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 4eg*Selection DescriptionfalseQ cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 5eg*Selection DescriptionfalseW cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 6eg*Selection DescriptionfalseW cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 7eg*Selection DescriptionfalseU cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660  Week 6 Day 1eg*Selection DescriptionfalseU30cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011254371660 CancelC Jon mouseUp set the dialogData to empty close this window end mouseUp 22U|cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011256409910 SelectC --> all handlers on mouseUp global gLastClick if gLastClick is empty or the label of gLastClick is empty then beep exit mouseUp end if -- gather the date into the English format put word 1 of fld "Month Year" into theMonth put lineoffset(theMonth, the system monthNames) into monthNum set the dialogdata to monthNum & "/" & the label of gLastClick & "/" & word 2 of fld "Month Year" close this window end mouseUp 22U} cGlx2GeneralcScriptChecksumcExplicitVariablescHscrollScript0cLocalscHscrollHandlers0cSelectedChunkchar 441 to 440 cHtmlScriptuP1N@ Q  :ҹuu(m(H K3igNxJUAc^%AF)?~n'p :! zd2>qљNiГ22Ǭez4)P.㜱x6ӉC}И|2MZA|d/23h;Nw+ ̡0͓ho ܠ~e_\?]sK(ب,GKu7,[^cHandlersListWidth119 cConstantscHtmlHandlersb)I). EɶJƆƖJv6 qĜļԢb}B;.;5eKk4f&pũ ɯs i cDirtyFlagfalse cFolders all handlers cHandlersmouseUpcVscrollScript0cVscrollHandlers0 cHilitedLine cGlobalscGlx2TimeStamp checksum-]Ǒ%6E 1194956612start 1194956648working cREVGeneral revUniqueID 1011256409910  Selected  Zon mouseUp set the dialogData to the short English date setupCurrentDate end mouseUp $ cReturnDate6/1/1973cGlx2TimeStamp checksum cREVGeneral revUniqueID 1011855337366 Monday, 31 August 2009 %Day1  $*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542476112 Su &Day2  /$*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537026 Mo 'Day3  Y$*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537027 Tu (Day4  $*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537028 We )Day5  $*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537029 Th *Day6  $*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537030 Fr +Day7  $*cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078542537031 Sa| cross.pngGp P PNG  IHDR szz pHYs  gAMAo3 cHRMms<v%2\#L}z IDATxl @@jENjPZ7WEMZ'qdءmU/s1sFr? ݼd/7O޽ 307 @/#SZ ,``q( 8` 6b@Uo[@+b/by@ l ^ObJAC0B  VqisF&&Y@g@nn @JH|n d3p^ :Wt4](~ ( ԣ ra%<@Z(B{ fgSy~,g`%8Dv }hX+a'ɺ軪Ơz@-! Fxt@q @1/J@b 6l9,eCQVP}d)̀#4UTsh8P>fEʚڍ@1E@_ e4୚@| ;x@5A%%m7'@{RcfMpU LiB @i߀ͤ@6GO~doVQ\C x+- G.@]h@̼٩ KpVQjU@. yM aQ*|>-ԯe@d9g@z) P;a%ЁOk@||>'^wz=lwR-z+> ]P@yyƅ̐7bP 4`ʃ^Ajو̶{jZ.`ˎF =&+1IENDB`cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078545812665} tick.pngp P^PNG  IHDR szz pHYs  gAMAo3 cHRMms<v%2\#L}zIDATxL @ K-2+=&Q.M5I4RۓyǏow^Dz+xe!Ha9bC`amQ s-H'bt`Kc -Gv `GEx?C{L- rl h +  (X- Cpᡀ[c/!T H?Z@,! DD=-`CrgZr+@ad d0}8Yl1  P hс(=:B,8З9@ߚ-el9s@ OP H: =тje@ˢAl_!068 3`(Z$JXt-ƻl?y!C}{@D5zH 'D$CKf96f@ˋ#=! 4?( %H+lZ"-gZ\HP@|tH77 P) ʀ|F&0yMXXd u d,wZ ?@G@'b&D偘_ք=~yl g*(@z=^M@7e @%r@P ~ˀbہA {΀BWt01S#f#9r<{, &4/q['j`GM P4| ~  EH@߱%ueۢk`r obZh,hQ, a8!Jt@} TfXq9@ ?"}LDTH h68/r@˷ȵ(!XHf/'taA n@ A??srGPC- 4@-%BFdJ35D4}/ qJ߃d5rD'}O1:i!ȼ k Pp#YE )b T,fʀTi0W %fZ"K*b/JRs]@-i5Eg2H[c%5?0$Ҁ; `GZ>T^CGsXj> y AIl \$yh@1`%:fkxi T' L6"9+ P09P3ћj1C%F`@WVҙ@1fHq(33@^*GmOܠEW1S X} 10 ?A>-?jXAK@@L~PGDmJ: ?У7J? nΆo zLȍԿ-f @(`F#ʣ_ }/W\cx @v/ /mD@lXEdK'B#@q@_>o-HV~ >3߿`F~H0#1 ~FF&H(@1o@oHYt?练E}U,[D9D!@z" VpCgu9@ͩ '@~_ eaq7q!E@A(aM P @#Y ^|ρߡPp?ϲ-kc`-kd QWGIENDB`cGlx2TimeStamp checksum cREVGeneral revUniqueID 1078545821295 PrevMonth@Y!wGIF89aff̙3!,< H*\XC``ą\LXQƉ;z2H|"I(P;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252663430ǀ NextMonth@p!pGIF89a3ff̸!,GCHg Æ Wċ>-B ɱɋ6rD3 Y1#ɒ"!clip2gif 0.7.2 by Yves Piguet;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252673630~ PrevYear@I( `GIF89a , @I+} '~YH;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252648687ǁ NextYear@( pcGIF89a , @I+} 'ׅብǢi;cGlx2TimeStamp checksum cREVGeneral revUniqueID 1080252682143