On Sat, 19 Dec 2009, Xavi wrote:
Hi,
> I have HB_SET_CANCEL = FALSE by default and MinGW compile with -mwindows
> Thanks to you and Przemek for your help.
> --- t2.prg
> REQUEST HB_GT_WIN_DEFAULT
> ANNOUNCE HB_GTSYS
> PROCEDURE Main()
> SetCancel(.F.)
> ? "Click [X] to close windows console
I'm sorry Viktor,
I have HB_SET_CANCEL = FALSE by default and MinGW compile with -mwindows
Thanks to you and Przemek for your help.
--- t2.prg
REQUEST HB_GT_WIN_DEFAULT
ANNOUNCE HB_GTSYS
PROCEDURE Main()
SetCancel(.F.)
? "Click [X] to close windows console "
while( LastKey() != 27 )
> --- t2.prg
> REQUEST HB_GT_WVT_DEFAULT
> ANNOUNCE HB_GTSYS
>
> PROCEDURE Main()
>
> ? "Click [X] to close windows console "
> while( LastKey() != 27 )
> Inkey( 1 )
> enddo
>
> RETURN
> ---
Correction: Add REQUEST HB_GT_WIN to the top.
[ Typed to the mailer, more typos are possible. ]
On Fri, 18 Dec 2009, Xavi wrote:
Hi,
> If I sent this example is because I thought the difference was obvious.
> In my development environment Windows presents the "End program dialog" (with
> option to cancel) with //GTWIN and not without.
> The reason is that with one is executed the event han
Hi Xavi,
> If I sent this example is because I thought the difference was obvious.
> In my development environment Windows presents the "End program dialog" (with
> option to cancel) with //GTWIN and not without.
> The reason is that with one is executed the event handler because windows
> reuse
Viktor,
If I sent this example is because I thought the difference was obvious.
In my development environment Windows presents the "End program dialog" (with
option to cancel) with //GTWIN and not without.
The reason is that with one is executed the event handler because windows
reused the cons
> < --- t.prg --- >
>
> Procedure Main()
> Local cArg := hb_CmdLine()
>
> REQUEST HB_GT_WVG
> REQUEST HB_GT_WIN
> REQUEST HB_GT_NUL_DEFAULT
>
> if !Empty(cArg) .and. (Val(cArg) == 1) .and. !('//GTWIN' $ cArg)
> hb_gtReload( 'WVG' )
> else
> hb_gtReload( 'WIN' )
> endif
>
Hi Viktor,
Now the event handler is executed.
For example with the program t.prg .-
< --- t.prg --- >
Procedure Main()
Local cArg := hb_CmdLine()
REQUEST HB_GT_WVG
REQUEST HB_GT_WIN
REQUEST HB_GT_NUL_DEFAULT
if !Empty(cArg) .and. (Val(cArg) == 1) .and. !('//GTWIN' $ cArg)
Hi Xavi,
No problem, can you describe what does it fix
exactly? Symptoms? I'd like to include it ChangeLog.
Brgds,
Viktor
On 2009 Dec 17, at 20:37, Xavi wrote:
> As subject. If no objection, please Viktor, could you update the repository.
>
> Thanks.
>
> --
> Xavi
>
>
>
>
_
