From 8a30a6104c2c751f1c561f3067f5a083a6a96ecb Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Thu, 19 Feb 2009 01:07:54 +0000 Subject: [PATCH] 2009-02-18 17:05 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/gtwvg/wvgscrlb.prg * Disabled structure support for time being as build process is unable to locate cstruct.c, etc. headers. Viktor? --- harbour/ChangeLog | 6 ++++++ harbour/contrib/gtwvg/wvgscrlb.prg | 7 ++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 84e1f41539..806ac3ea7a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2009-02-18 17:05 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * harbour/contrib/gtwvg/wvgscrlb.prg + * Disabled structure support for time being as + build process is unable to locate cstruct.c, etc. headers. + Viktor? + 2009-02-18 01:40 UTC+0100 Viktor Szakats (harbour.01 syenar hu) + contrib/gtalleg/tests/gtallegs.hbp - contrib/gtalleg/tests/gtalleg-shared.hbp diff --git a/harbour/contrib/gtwvg/wvgscrlb.prg b/harbour/contrib/gtwvg/wvgscrlb.prg index 3aed0f64be..39070b2625 100644 --- a/harbour/contrib/gtwvg/wvgscrlb.prg +++ b/harbour/contrib/gtwvg/wvgscrlb.prg @@ -73,6 +73,7 @@ #include 'hbgtwvg.ch' #include 'wvtwin.ch' #include 'wvgparts.ch' +#if 0 #include 'xhb.ch' #include 'cstruct.ch' #include 'wintypes.ch' @@ -102,11 +103,12 @@ typedef struct tagSCROLLBARINFO {; DWORD x; //rgstate[CCHILDREN_SCROLLBAR+1]; } SCROLLBARINFO +#endif #endif //----------------------------------------------------------------------// #ifndef __DBG_PARTS__ -//#xtranslate hb_ToOutDebug( [] ) => +#xtranslate hb_ToOutDebug( [] ) => #endif //----------------------------------------------------------------------// @@ -224,7 +226,6 @@ METHOD handleEvent( nMessage, aNM ) CLASS WvgScrollBar ENDIF nScrollMsg := aNM[ 1 ] - nScrPos := aNM[ 2 ] nScrPos := WAPI_GetScrollPos( ::hWnd, SB_CTL ) DO CASE @@ -310,7 +311,7 @@ METHOD setRange( aRange ) CLASS WvgScrollBar //----------------------------------------------------------------------// METHOD setScrollBoxSize( nUnits ) CLASS WvgScrollBar - LOCAL nOldUnits + LOCAL nOldUnits := nUnits RETURN nOldUnits