[REBOL] Newbie question...
From: ronald:gruss:libertysurf at: 6-May-2001 11:41
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