Date: Wed, 19 Oct 2005 14:07:43 +0200
From: Yvan KOENIG <email@hidden>
Subject: Re: Days and hours
To: "AppleScript User's List" <email@hidden>
Message-ID: <email@hidden">email@hidden>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Le 19 oct. 2005 , à 13:09, Bernard Azancot a écrit :
I would like to know how could I translate this list in a french user
friendly list and make the script function without issue.
{Janvier, Fevrier, Mars, Avril, Mai, Juin, Juillet, Aout, Septembre,
Octobre, Novembre, Decembre}
Thanks in advance.
Perhaps this may help.
I removed the title parameter which is not allowed under Panther (which
I am using).
property mois_anglais : {January, February, March, April, May, June,
July, August, September, October, November, December}
property mois_francais : {"Janvier", "Février", "Mars", "Avril", "Mai",
"Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre",
"Décembre"}
property titre : "Employment month"
property my_prompt : "Enter the month for which you wish to compute
hours worked."
set hrs to 0
set working_month to current date
set defaut_anglais to month of working_month
repeat with i from 1 to 12
if defaut_anglais is mois_anglais's item i then exit repeat
end repeat
set defaut_francais to (mois_francais's item i) as text
--set mon to (choose from list mois_anglais with title titre with
prompt my_prompt default items {month of working_month})
set mon to (choose from list mois_francais with prompt my_prompt
default items {defaut_francais})
set choix_francais to mon as text
repeat with i from 1 to 12
if choix_francais is mois_francais's item i then exit repeat
end repeat
set choix_anglais to (mois_anglais's item i) as text
Yvan KOENIG
