How can a guictrlsetonevent function stop working sometimes??

[zaetep]

Hi, I'm totally stumped by this one. I have a general purpose input function that allows a user to select one of a group of radio buttons. As soon as a radio is clicked the gui deletes and returns the text of the choice to the calling function.

It works really nicely but i have two functions that call it and the event function for selecting a button never runs, it just gets stuck in the loop waiting for a response.

It still works in all other cases (in the same execution of the program). And cutting and pasting (to check for typos etc) the call and the function to a test file (not connected to the rest of the code) it works.

Is there anything that can stop an event function being called?

the function is:

~ ;takes possible choices separated by | in a string, returns the chosen answer or "input cancelled" if closed

Func RadioQBox($title, $prompt, $choices)

Local $c = StringSplit($choices, "|");make array into string

Local $rads[$c[0] + 1] = [$c[0]];array for control ids

Local $ypos = 50, $msg, $sel;set y postion

Local $hgt = ($c[0] * 40) + 100;set height

GUISetState(@SW_DISABLE, $siteGui);disable main gui

Local $radGui = GUICreate($title, 500, $hgt, -1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST);build form

GUICtrlCreateGroup($prompt, 50, 10, 400, $hgt - 10)

For $i = 1 To $c[0];create radios

$rads[$i] = GUICtrlCreateRadio($c[$i], 60, $ypos, 380, 15)

GUICtrlSetOnEvent($rads[$i], "RadioChoice");set on event function

$ypos = $ypos + 40

Next

GUISetState(@SW_SHOW)

Global $RadChoice = 0;selected flag

While Not $RadChoice

Sleep(200)

;db("rboxloop")

WEnd

;db("Radiochoice answer")

For $i = 1 To $c[0]

If $RadChoice = $rads[$i] Then

$sel = $c[$i]

$RadChoice = 0

GUIDelete($radGui)

If $sel = 'other' Then

db("Radiochoice other")

$sel = InputBox($title, $prompt & @CRLF & "It is recommended that you make your answer roughly the same length and format as the other options")

EndIf

EndIf

Next

GUISetState(@SW_ENABLE, $siteGui)

Return $sel

EndFunc ;==>RadioQBox

The event is

Func RadioChoice()

$RadChoice = @GUI_CtrlId

;db("radiochoice event", @GUI_CtrlId, @GUI_WinHandle, @GUI_CtrlHandle)

EndFunc ;==>RadioChoice

Hope you can help

Edited March 28, 2012 by zaetep

[zaetep]

Sorry about the format in the previous post

Ok i think i have found the problem. Apparently the event function has to complete before another event can be registered.

I can fix this by having the event just set flags that are picked up in the main loop but it is making things a bit slow.

Is there a way to clear the event so another one can take place before the function ends?

Any suggestions would be greatly appreciated.

[Melba23]

zaetep,

The Interrupting a running function tutorial in the Wiki should help you.

M23