bb.donnay-software.com

rdonnay wrote:

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

function MainWindow () does not exist

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


FUNCTION MainWindow( oDlg )

STATIC soDlg

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

RETURN soDlg

rdonnay wrote:

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