How can I close all the Thread

[digitsoft]

Hello Roger
How can I close all the Thread that are created to the windows that are open

[rdonnay]

Code: Select all

FUNCTION CloseAllWindows()

LOCAL aChildList, i

aChildList := MainWindow():drawingArea:childList()

FOR i := 1 TO Len(aChildList)
  PostAppEvent(xbeP_Close,,,aChildList[i])
  Sleep(50)
NEXT

RETURN nil

[digitsoft]

Roger this function MainWindow () does not exist

Code: Select all

FUNCTION CloseAllWindows()

LOCAL aChildList, i

aChildList := MainWindow():drawingArea:childList()

FOR i := 1 TO Len(aChildList)
  PostAppEvent(xbeP_Close,,,aChildList[i])
  Sleep(50)
NEXT

RETURN nil

[rdonnay]

function MainWindow () does not exist

Do you have a Get-Set function that points to your main dialog window?
Do you know what I mean by this?

Code: Select all

// Main dialog window
DCREAD GUI EVAL {|oDlg|MainWindow(oDlg)}


FUNCTION MainWindow( oDlg )

STATIC soDlg

IF Valtype(oDlg) == 'O'
  soDlg := oDlg
ENDIF

RETURN soDlg

[digitsoft]

Thanks Roger

function MainWindow () does not exist

Do you have a Get-Set function that points to your main dialog window?
Do you know what I mean by this?

Code: Select all

// Main dialog window
DCREAD GUI EVAL {|oDlg|MainWindow(oDlg)}


FUNCTION MainWindow( oDlg )

STATIC soDlg

IF Valtype(oDlg) == 'O'
  soDlg := oDlg
ENDIF

RETURN soDlg