forums.silverfrost.com

[Ralf]

I have obtained a strange behaviour of radio buttons on a window left open with %lw when I open and close a second window. See the following example. When I close the second window, the radio button state of the previous window is changed:

winapp
!=============================================
Program Test_Radio_Button
!=============================================
integer :: iw, winio@

external test_window

iw = winio@ ('%`ca[Main]&')
iw = winio@ ('%^bt[Test]',test_window)

stop
end
!=============================================
integer*4 function test_window()
!=============================================

common /position/ ipos,jpos
integer :: ipos, jpos

integer :: iw, winio@
integer :: lw_handle
integer*4,dimension(3) :: irb = (/ 0,0,1 /)


test_window = 2

iw = winio@ ('%lw[owned]&', lw_handle)
iw = winio@ ('%`ca[Test]&')
iw = winio@ ('%`3ga&',irb(1),irb(2),irb(3) )
iw = winio@ ('%rb[RB1]%nl&',irb(1))
iw = winio@ ('%rb[RB2]%nl&',irb(2))
iw = winio@ ('%rb[RB3]%nl&',irb(3))
iw = winio@ ('%gp&',ipos,jpos)
iw = winio@ (' ')

call second_window

end
!=============================================
SUBROUTINE second_window
!=============================================

common /position/ ipos,jpos
integer :: ipos, jpos

integer :: iw, winio@

iw = winio@ ('%ww[no_sysmenu]&')
iw = winio@ ('%`ca[2.Window]&')
iw = winio@ ('%sp&',ipos,jpos)
iw = winio@ ('%4bt[Close]')

return
end




Best regards,

Ralf

[IanLambley]

Try putting "lw_handle" and array "irb" in a common block.

Ian

[JohnHorspool]

Ian, I had already tried that, but the strange behaivour still occurs !

[PaulLaidler]

I think that something goes wrong with the ganging (%ga) in this context.
You may have to abandon %ga and write your own callback functions (one for each radio button) to handle the group radio button action.

[Ralf]

I have tried this, but it is still all the same

[LitusSaxonicum]

I have found erratic behaviour with %ga in the past, and if it works, fine, I use it. Otherwise I do as Paul suggests and do my own "ganging" in a callback function for each radio button.

When I have had difficulty like this in the past, I also update the window.

If that doesn't work, I shout at the computer. It never works, but I do feel better afterwards. Then I make tea, take a blood pressure pill, and (when it takes effect) think of a way of doing without the radio buttons.

Bizarrely, taking %ga out and putting it back in sometimes works, but that is voodoo.

I suspect that %ga is ever so slightly and subtly broken ...

Sympathy

Eddie

[PaulLaidler]

Ralf

If you want to post your code tha does not use %ga then I will aim to take a look at it.

[Sebastian]

Remove the ganging, ie. delete the line

[IanLambley]

I know you want "radio buttons", but if you use "check boxes" it seems to work, see below

[Sebastian]

Any update on this? As I've repeatedly hit this bug, it would be nice to get some response.

[PaulLaidler]

My response was that %ga does not always work and when it does not work it is necessary to provide your own callback functions to create the radio button effect.

[Sebastian]

As was already posted above it is independent of the %ga, so it happens in a similar way just that the immediate effect is easier noticeable when ganging is enabled.

[PaulLaidler]

I have lost my way with this topic.
Can someone post an example program (without ganging) that does not work in the expected way.

[Sebastian]

The following, put into test.f95, compiled with ftn95 test.f95 /link

[PaulLaidler]

I can now see the problem. The mouse click that closes second_window appears to act as a click on rb1.

A work-around is to put a callback on the Close button in order to correct this...