WndMain() unexpected nil

[Franklin Demont]

Hello,

This week i had two errors (code runs mostly without problems) :

Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND
Called from: => HWND( 0 )
Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW:ACTIVATE( 169 )

Code: Select all  Expand view

if ::oWndMain == nil
    StopUntil( { || ::lExit } )
else
    StopUntil( { || ::lExit .or. !IsWindow( WndMain():hWnd ) } )  <== 169 !!!!
endif
 

WndMain() seems to return nil. The stacklist shows as last line the line where the main window is activated. There is a main window !!
Also is it clear that ::oWndMain <> nil.

FRank

[Antonio Linares]

Frank,

We recently commented about it here. It happens because the main window is closed meanwhile the print preview is shown.

Use the VALID of the main window to control is the preview is opened or not, so the user can't leave, or at least, ask the user to close it

[Franklin Demont]

Frank,

We recently commented about it here. It happens because the main window is closed meanwhile the print preview is shown.

Use the VALID of the main window to control is the preview is opened or not, so the user can't leave, or at least, ask the user to close it

How can i know in the mainwindow that a preview is opened ?

Is it possible to change the code in rpreview.prg , avoiding the error ?

Frank

[nageswaragunupudi]

Suggestion

Code: Select all  Expand view

StopUntil( { || ::lExit .or. WndMain() == nil .or. !IsWindow( WndMain():hWnd ) } )

Does this help?