FiveTech Software tech support forums

... 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => SYSREFRESH( 0 ) Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 0 ) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:ACTIVATE( 0 ) Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW( 0 ...

... ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 ) Called from: => SYSREFRESH( 0 ) Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 71 ) Called from: \servizio\prog\StdGes.prg => STDGES:ACTIVATE( 1899 ) Called from: prog\GesSmg.prg => GESSMG( 185 ) Called from: prog\Main.prg ...

... desde: .\source\classes\WINDOW.PRG => _FWH( 3388 ) Llamado desde: => SYSREFRESH( 0 ) Llamado desde: .\source\function\MSGRUN.PRG => STOPUNTIL( 60 ) Llamado desde: .\rpreview.prg => TPREVIEW:ACTIVATE( 162 ) Llamado desde: .\rpreview.prg => RPREVIEW( 1855 ) Llamado desde: .\source\classes\PRINTER.PRG ...

... ), ::oImageListPages:End(),),; ::oWnd := nil ,; ::oDevice:oPreview := nil ,; ::lExit := .T. ) if ::oDevice:lPrvModal if ::oWndMain == nil StopUntil( { || ::lExit } ) else hWndMain := WndMain():hWnd StopUntil( { || ::lExit .or. !IsWindow( hWndMain ) } ) endif endif return nil

Antonio,

I have found a solution with the StopUntil() function.
Now I'm waiting until someone click a node. Then the window is closed, and I know the sURL variable

... ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 ) Called from: => SYSREFRESH( 0 ) Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 60 ) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:ACTIVATE( 155 ) Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW( ...

... ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3234 ) Called from: => SYSREFRESH( 0 ) Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 60 ) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:ACTIVATE( 143 ) Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW( ...

... I have proved to be serious and professional Excuse me , Antonio . I don't have that in mind . Simply I was collided that other solutions , like StopUntil in this situation , are working in other manier - loops and etc and it was eating mem . But that in earliers clipper + vb times . Excuse me ...

the window remains opened because it belongs to the operating system, not to the PRG :-) Try this: local lExit := .F. ... ACTIVATE WINDOW oWnd StopUntil( { || lExit } ) From the window, change lExit to .T. to finally exit. Wwoooowwww ! And that is working ! :D Very fine ! So all power of script ...

the window remains opened because it belongs to the operating system, not to the PRG

Try this:

local lExit := .F.

...

ACTIVATE WINDOW oWnd

StopUntil( { || lExit } )

From the window, change lExit to .T. to finally exit.

John,

The risk of calling SysRefresh() (StopUntil() uses it) is that it could process an unwanted event.

So an alternative solution to simulate a modal window is to disable the other windows where we don't want the focus to go to:

oWndOther:Disable()

...

oWndOther:Enable()

Thanks.

I didn´t know about StopUntil()

... cCaption, cTitle, { || WaitSeconds( nSeconds ) } ) //----------------------------------------------------------------------------// Function StopUntil( bBlock ) DO WHILE !Eval( bBlock ) WaitMessage() SysRefresh() ENDDO Return NIL

... Called from: .\source\classes\WINDOW.PRG => _FWH(3397) Called from: => SYSREFRESH(0) Called from: C:\Dev\OptoWin\MYL_100.PRG => STOPUNTIL(4438) Called from: C:\Dev\OptoWin\RPREVIEW.PRG => TPREVIEW:ACTIVATE(264) Called from: C:\Dev\OptoWin\RPREVIEW.PRG => RPREVIEW(1628) ...

Reinaldo

Try this way

open /source/function/msgrun.prg

change in function StopUntil()

Code: Select all  Expand view

DO WHILE !Eval( bBlock ) .and. WndMain() != NIL .and. IsWindow( WndMain():hWnd )