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

@@ -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

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( [<x,...>] ) =>
+#xtranslate hb_ToOutDebug( [<x,...>] ) =>
 #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