Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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