[REBOL] Re: Clearing fields
From: brett::codeconscious::com at: 7-May-2002 10:48
Hi Didier,
This will make your program work:
wmess: copy/deep [[ "Le mois de xxx comprend yy jours"]]
Alternatively, instead of using replace, you can could use rejoin.
Also, in this example the nested blocks are not needed. So your code
could change to:
REBOL []
xmois: ["Janvier" "Février" "Mars" "Avril" "Mai" "Juin" "Juillet" "Aout"
Septembre
"Octobre" "Novembre" "Décembre"]
xjour: [31 28 31 30 31 30 31 31 30 31 30 31]
view layout [
tlm: text-list data xmois
button "Nombre de jours" 150
[
ii: index? find xmois tlm/picked
wmess: rejoin [
"Le mois de " tlm/picked
"comprend " pick xjour ii "jours"
]
alert wmess
]
]
Hope it helps,
Brett
