GUIOnEventMode, can one make a function "Uninteruptable" ?

[Armand]

hey there, i'm using the OnEventMode for my program as it has many controls and different actions so i thought it'll be easier to work it that way.

my issue is showed exactly in the GUI bellow, just run it and while in the middle of an update of the listview click Interrupt and u will see my issue...

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 309, 232, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$ListView1 = GUICtrlCreateListView("DATA GOES HERE|", 30, 5, 241, 196)

$Button2 = GUICtrlCreateButton("Interupt", 100, 205, 100, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$stopper = 0
;Create example array.
Dim $aExample[1]
AddEntryInExampleArray("Text")
AddEntryInExampleArray("Else")

While 1
    If $stopper = 0 Then ;Added to stuck the function on the bugged output.
        UpdateListView() 
    EndIf
    Sleep(1000)
WEnd


Func UpdateListView()
    _GUICtrlListView_DeleteAllItems($ListView1)
    For $i = 0 To UBound($aExample)-1
        Sleep(100)
        $aInternal = $aExample[$i]
        For $i2 = 0 To UBound($aInternal)-1
            GUICtrlCreateListViewItem($aInternal[$i], $ListView1)
            Sleep(100) ;So that it'll take it some time...
        Next
    Next
EndFunc

Func AddEntryInExampleArray($text)
    ;Create the internal array
    Dim $aInternal[10]
    For $i = 0 To 9
        $aInternal[$i] = $text&" "&$i
    Next
    
    If $aExample[0] <> "" Then
        ReDim $aExample[UBound($aExample)+1] ;Add 1 entry.
        $aExample[UBound($aExample)-1] = $aInternal ;Place at end.
    Else
        ;Place the new array inside the example.
        $aExample[0] = $aInternal
    EndIf
EndFunc

Func Button2Click()
    AddEntryInExampleArray("NEW")
    ;Refresh new results.
    UpdateListView()
    ;Make it stuck so u can see change.
    MsgBox(0, "Changed?", "Can u see the change?")
    $stopper = 1
EndFunc

Func Form1Close()
    Exit
EndFunc

[martin]

hey there, i'm using the OnEventMode for my program as it has many controls and different actions so i thought it'll be easier to work it that way.

my issue is showed exactly in the GUI bellow, just run it and while in the middle of an update of the listview click Interrupt and u will see my issue...

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 309, 232, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$ListView1 = GUICtrlCreateListView("DATA GOES HERE|", 30, 5, 241, 196)

$Button2 = GUICtrlCreateButton("Interupt", 100, 205, 100, 25, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$stopper = 0
;Create example array.
Dim $aExample[1]
AddEntryInExampleArray("Text")
AddEntryInExampleArray("Else")

While 1
    If $stopper = 0 Then ;Added to stuck the function on the bugged output.
        UpdateListView() 
    EndIf
    Sleep(1000)
WEnd


Func UpdateListView()
    _GUICtrlListView_DeleteAllItems($ListView1)
    For $i = 0 To UBound($aExample)-1
        Sleep(100)
        $aInternal = $aExample[$i]
        For $i2 = 0 To UBound($aInternal)-1
            GUICtrlCreateListViewItem($aInternal[$i], $ListView1)
            Sleep(100) ;So that it'll take it some time...
        Next
    Next
EndFunc

Func AddEntryInExampleArray($text)
    ;Create the internal array
    Dim $aInternal[10]
    For $i = 0 To 9
        $aInternal[$i] = $text&" "&$i
    Next
    
    If $aExample[0] <> "" Then
        ReDim $aExample[UBound($aExample)+1] ;Add 1 entry.
        $aExample[UBound($aExample)-1] = $aInternal ;Place at end.
    Else
        ;Place the new array inside the example.
        $aExample[0] = $aInternal
    EndIf
EndFunc

Func Button2Click()
    AddEntryInExampleArray("NEW")
    ;Refresh new results.
    UpdateListView()
    ;Make it stuck so u can see change.
    MsgBox(0, "Changed?", "Can u see the change?")
    $stopper = 1
EndFunc

Func Form1Close()
    Exit
EndFunc

If you want a function A to run without being interrupted by function B then you could do this

i) at th estart of function A put $DoNotStopMe = true, and at the end put $DoNotStoMe = false

ii) at the start of function B put If $DoNotStopMe then return.

Obviously $DoNotStopMe must be global.

BTW I think you need to change the first line of the UpdateListView function to

_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))

[Armand]

@martin

well.. that will stop the function from being interrupted but will also cause the action of the interruption button to be discarded....

-> what i have done by now is to create a global array which will store all the functions that are called while a'$DoNotStopMe' variable is set to true.... these will be automatically pulled out and called at the main loop...

i was just hoping there is some better solution for this issue... i guess there isn't....

P.S -> the given example above is working as is just fine in latest beta.

THANKS A LOT FOR YOUR ATTENTION !!!