packages/wx/bbs/appli/exampleRadioButton.bbs

   1 description "Simple test of wx::RadioButton widget"
   2 author "jean-pierre.roux@creatis.insa-lyon.fr"
   3 category "example;widget"
   4
   5 load wx
   6 load std
   7
   8 print "Ceci est un essai de RadioButton"
   9 new RadioButton rb
  10 set rb.Title "My Radio Button"
  11 set rb.In0 "This"
  12 set rb.In1 "Is"
  13 set rb.In2 "Not"
  14 set rb.In4 "A"
  15 set rb.In5 "Love"
  16 # Here we put "Song" in In9 : if it is selected, the output is '9'
  17 set rb.In9 "Song"
  18 set rb.In 2
  19
  20 print $rb.Out$\n
  21
  22 //new StaticText t
  23 //connect rb.Out t.In
  24 //connect rb.BoxChange t.BoxExecute