[Gambas-user] RadioButton events (1.9.46a) simplified

[Richard]

I have prepared a test program which demonstrates the issue described in 
yesterday's message in a few lines of code shown below. There is a source 
archive of the test program attached.

To use the test program just use the spinner control to select each of the 5 
test cases and compare the result shown in the RadioButton controls to the 
illustration on the form. 

On reaching case 4 try setting RadioButton1 to TRUE and step back down to zero 
to see different, but still incorrect results.

There is no difference in behaviour under either 1.9.46a or 1.9.47. Any 
guidance on how to get the correct results would be gratefully received.

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB SpinBox1_Change()

    SELECT CASE SpinBox1.Value
        CASE 0
            RadioButton2.Value = TRUE
        CASE 1
            RadioButton2.Value = FALSE
        CASE 2
            RadioButton2.Value = TRUE
        CASE 3
            RadioButton2.Value = FALSE
        CASE 4
            RadioButton2.Value = FALSE
    END SELECT   

END

PUBLIC SUB Button1_Click()

    ME.Close

END
-------------- next part --------------
A non-text attachment was scrubbed...
Name: TestBed-0.0.1.tar.gz
Type: application/x-tgz
Size: 32462 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20070130/a7ab0883/attachment.bin>