Usefull bug?

[Yashied]

WARNING!

If you run this script and click on the window, it hangs. This is as it should be! But if you remove the comment, everything will be OK!

Any ideas.

Thanks.

Global Const $WM_ACTIVATE = 0x0006
Global Const $WM_LBUTTONDOWN = 0x0201

;GUIRegisterMsg($WM_ACTIVATE, 'WM_ACTIVATE')
GUIRegisterMsg($WM_LBUTTONDOWN, 'WM_LBUTTONDOWN')

_MyGUI()

Func WM_ACTIVATE($hWnd, $iMsg, $wParam, $lParam)
    Return 'GUI_RUNDEFMSG'
EndFunc   ;==>WM_ACTIVATE

Func WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
    _MyGUI()
    Return 'GUI_RUNDEFMSG'
EndFunc   ;==>WM_LBUTTONDOWN

Func _MyGUI()

    Local $hForm, $Msg, $Button

    $hForm = GUICreate('MyGUI', 400, 400)
    $Button = GUICtrlCreateButton('Exit', 165, 360, 70, 23)
    GUISetState()
    While 1
        $Msg = GUIGetMsg()
        Switch $Msg
            Case -3, $Button
                ExitLoop
        EndSwitch
    WEnd
    GUIDelete($hForm)
EndFunc   ;==>_MyGUI

Edited June 28, 2009 by Yashied

[MrCreatoR]

Wow, it's making WM_* function to return even if it's still in loop...

It seems that when WM_ACTIVATE is called and returning 'GUI_RUNDEFMSG', the entire WM_* engine(?) is affected, so the script "thinking" that the function is done and call it again on WM_LBUTTONDOWN message.

P.S

It's somehow reminds my all of those threads about multithreading support in AutoIt

Edited June 28, 2009 by MrCreatoR

[Yashied]

Well ...this is not multithreading, the script is stops at the time of the interruption. A similar situation with HotKeySet().

[MrCreatoR]

Well ...this is not multithreading, the script is stops at the time of the interruption. A similar situation with HotKeySet().

I've never said it is - About the hotkeys, yes indeed, i've never tried to make those kind of tests for HotKeySet, but this one shows that the previous loop in called function is like put on hold (stopped), until the current one is finishes:

Global $iLoop_Count = 0

HotKeySet("^+s", "_Loop")

Sleep(2000)

Func _Loop()
    $iLoop_Count += 1
    MsgBox(64, "", "Loop #" & $iLoop_Count & " will start now...")
    
    While 1
        Sleep(10)
        ConsoleWrite("Loop #" & $iLoop_Count & @CRLF)
        
        If $iLoop_Count >= 2 Then
            MsgBox(64, "", "Exit from Loop #" & $iLoop_Count & "...")
            
            $iLoop_Count -= 1
            ExitLoop
        EndIf
    WEnd
EndFunc

[Yashied]

Is this not is not interested?