From f452ee675c0e7fd5b8e95f81dd03ebab50400565 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Thu, 20 Sep 2012 07:21:54 +0000 Subject: [PATCH] 2012-09-20 00:17 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/gtwvg/crt.prg ! Fixed: regression caused by redirection of "?" command. Changed: ? " " => CLS This fixes nasty behavior of WvgCRT() not showing up altogether. Took roughly four hours to debug. --- harbour/ChangeLog | 7 +++++++ harbour/contrib/gtwvg/crt.prg | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e8c92f97d6..f5b982a9e5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,13 @@ The license applies to all entries newer than 2009-04-28. */ +2012-09-20 00:17 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/gtwvg/crt.prg + ! Fixed: regression caused by redirection of "?" command. + Changed: ? " " => CLS + This fixes nasty behavior of WvgCRT() not showing up altogether. + Took roughly four hours to debug. + 2012-09-19 18:46 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/main.prg * contrib/hbxbp/dbu.prg diff --git a/harbour/contrib/gtwvg/crt.prg b/harbour/contrib/gtwvg/crt.prg index 8e83a8fe9c..5b48d1d53b 100644 --- a/harbour/contrib/gtwvg/crt.prg +++ b/harbour/contrib/gtwvg/crt.prg @@ -342,7 +342,7 @@ METHOD WvgCrt:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) ENDIF /* CreateWindow() be forced to execute */ - ? " " + CLS ::hWnd := hb_gtInfo( HB_GTI_SPEC, HB_GTS_WINDOWHANDLE ) ::setFocus()