Hi everybody,
I'm very happy to learn Rebol, and I appriciate the work of all of you. The list is
really dynamic and the feedbacks are interresting.
As a Newbie, I'm trying to write some lines that Rebol could understand ! ;-)))
My script tries to let the user choose a list of words and to make these words appear
in a random order, at request. I tested the script whith a single block and it worked.
But now, why do I get "none" at each request ? Could anybody give me some help ?
random/seed now
menulistes: []
liste_d: copy/deep [
"Moi et famille" [main genou pied t�te nez cheveux orteil oreille bras
pouce jambe oeil]
"Objets" [chaise fen�tre baignoire fourchette lait table four canap�
porte lit r�frig�rateur]
"Objets personnels" [camion bol cuill�re chaussures pyjama "brosse �
dents" oreiller balle nounours accord�on]
"Aliments" [jus pain orange p�tes g�teau fraise viande raisin pomme
carotte banane fromage pur�e]
"Animaux" [poule cochon cheval souris lion hyppopotame serpent oiseau
dauphin phoque baleine]
]
liste_d: to-block liste_d
choix: first liste_d
forskip liste_d 2 [append menulistes to-string first liste_d]
menulistes: sort menulistes
lecture: func [bl] [to-string pick bb: to-block pick bl 6 random length?
bb]
view center-face lay: layout [
backdrop effect compose [gradient 1x1 (sky) (water)]
across
t: text red ivory 900x300 center font-size 130 ""
return
r: field wrap ivory 900x250 center font-size 100 font-color blue ""
return
button 680x100 effect [gradient 200.0.0 0.200.0] font-size 25 "Suivant"
[t/text: lecture liste_d show t]
text-list 200x100 data menulistes [ t/text: lecture liste_d show t ]
;choix: face/picked
return
]
Ronald Gruss
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
