an annual calendar somewhere? - French Version

[Francis Nugent Dixon]

Hi from Beautiful Brittany,

I played with "zryip theSlug's" code for all of
30 seconds, replace ncal command by "cal 2010",
corrected the line ending errors, corrected the
month of August, and it all works fine for me.
I'm on 10.5.8.

Merci Monsieur "zryip theSlug"

Francis

> on mouseUp
>   local tTheCal, tTheMonth, tTheFrenchMonth, tTheDay, tTheFrenchDay
>
>   put  
> "January 
> ,February 
> ,March 
> ,April,May,June,July,August,September,October,November,December"  
> into tTheMonth
>   put  
> "Janvier 
> ,Février 
> ,Mars 
> ,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre"  
> into tTheFrenchMonth
>   put "Mo,Tu,We,Th,Fr,Sa,Su" into tTheDay
>   put "Lu,Ma,Me,Je,Ve,Sa,Di" into tTheFrenchDay
>
>   put shell("cal 2010") into tTheCal
>
>   -- Translate month
>   repeat with x = 1 to number of items in tTheMonth
>      replace (item x of tTheMonth) with (item x of tTheFrenchMonth)  
> in tTheCal
>   end repeat
>
>   -- Translate day
>   repeat with x = 1 to number of items in tTheDay
>      replace (item x of tTheDay) with (item x of tTheFrenchDay) in  
> tTheCal
>   end repeat
>
>   put tTheCal into fld "MyCal"
>
> end mouseUp
>