Antonio,
I check code my apps. Places where I use comma separated commands based on window are too much. In this moment I probably must think about completly rewriting program code.
This is very bad news for me ...
Pawel
if Self == oWndMain
oWndMain = nil
// PostQuitMessage( 0 )
endif
PostQuitMessage( 0 )
Function TestWnd1 ()
Local oWnd := Nil
Define Window oWnd Title 'Window 1'
@ 50, 50 Button 'Window 2' Size 100, 20 Pixel Action TestWnd2 ()
Activate Window oWnd
Return .T.
Function TestWnd2 ()
Local oWnd := Nil
Define Window oWnd Title 'Window 2'
Activate Window oWnd
MsgInfo ('Window closed')
Return .T.
if Self == oWndMain .Or. ::lModal
WinRun()
endif
if Self == oWndMain
oWndMain = nil
PostQuitMessage( 0 )
else
if ::lModal
PostQuitMessage( 0 )
endif
endif
if Self == oWndMain
oWndMain = nil
PostQuitMessage( 0 )
else
if ::lModal .And. ::ClassName() == "TWINDOW"
PostQuitMessage( 0 )
endif
endif
if ::lModal .And. ::ClassName() $ "TFOLDER;TWINDOW"
PostQuitMessage( 0 )
endif
Return to FiveWin for Pocket PC
Users browsing this forum: No registered users and 8 guests