packages/wx/bbs/appli/testRadioButton.bbs

   1 load wx
   2 load std
   3
   4 print "Ceci est un essai de RadioButton"
   5 new RadioButton rb
   6 set rb.Title "My Radio Button"
   7 set rb.In0 "This"
   8 set rb.In1 "Is"
   9 set rb.In2 "Not"
  10 set rb.In4 "A"
  11 set rb.In5 "Love"
  12 # Here we put "Song" in In9 : if it is selected, the output is '9'
  13 set rb.In9 "Song"
  14 set rb.In 2
  15
  16 print $rb.Out$\n
  17
  18 //new StaticText t
  19 //connect rb.Out t.In
  20 //connect rb.BoxChange t.BoxExecute