a

diff --git a/packages/wx/bbs/appli/testRadioButton.bbs b/packages/wx/bbs/appli/testRadioButton.bbs
new file mode 100644 (file)
index 0000000..d723d88
--- /dev/null
+++ b/packages/wx/bbs/appli/testRadioButton.bbs
@@ -0,0 +1,20 @@
+load wx
+load std
+
+print "Ceci est un essai de RadioButton"
+new RadioButton rb
+set rb.Title "My Radio Button"
+set rb.In0 "This"
+set rb.In1 "Is"
+set rb.In2 "Not"
+set rb.In4 "A"
+set rb.In5 "Love"
+# Here we put "Song" in In9 : if it is selected, the output is '9'
+set rb.In9 "Song"
+set rb.In 2
+
+print $rb.Out$\n
+
+//new StaticText t
+//connect rb.Out t.In
+//connect rb.BoxChange t.BoxExecute