From 9a99a783fe7a47dc878205a57b622a11ea1aedab Mon Sep 17 00:00:00 2001
From: Francesco Saverio Giudice <info@fsgiudice.com>
Date: Thu, 25 Dec 2008 22:09:02 +0000
Subject: [PATCH] 2008-12-25 23:08 UTC+0100 Francesco Saverio Giudice
 (info/at/fsgiudice.com)   * contrib/gtwvg/wvgclass.prg   *
 contrib/hbgd/gdchart.prg     ! fixed assigned but not used variable     ;
 Also I would like to wish you all a happy Christmas holidays

---
 harbour/ChangeLog                  |  6 ++++++
 harbour/contrib/gtwvg/wvgclass.prg |  2 +-
 harbour/contrib/hbgd/gdchart.prg   | 24 ++++++++++++------------
 3 files changed, 19 insertions(+), 13 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1d084c4539..6910eb333f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,12 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-12-25 23:08 UTC+0100 Francesco Saverio Giudice (info/at/fsgiudice.com)
+  * contrib/gtwvg/wvgclass.prg
+  * contrib/hbgd/gdchart.prg
+    ! fixed assigned but not used variable
+    ; Also I would like to wish you all a happy Christmas holidays
+
 2008-12-25 11:32 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
   * ChangeLog
     * fixed ChangeLog entry of last commit. Sorry, wrong result 
diff --git a/harbour/contrib/gtwvg/wvgclass.prg b/harbour/contrib/gtwvg/wvgclass.prg
index afdf119f7c..5f788155b2 100644
--- a/harbour/contrib/gtwvg/wvgclass.prg
+++ b/harbour/contrib/gtwvg/wvgclass.prg
@@ -2361,7 +2361,7 @@ METHOD Read() CLASS WvtGets
 //-------------------------------------------------------------------//
 
 METHOD GetData() CLASS WvtGets
-   LOCAL aData
+   LOCAL aData := NIL
 
    RETURN aData
 
diff --git a/harbour/contrib/hbgd/gdchart.prg b/harbour/contrib/hbgd/gdchart.prg
index 80e04f74cb..6970a2eda2 100644
--- a/harbour/contrib/hbgd/gdchart.prg
+++ b/harbour/contrib/hbgd/gdchart.prg
@@ -223,22 +223,22 @@ METHOD PieChart() CLASS GDChart
          ::Arc( nPosX, nPosY, nWidth, nWidth, nDegree, nDegree + nDim, TRUE, colorp, gdNoFill + gdEdged )
       ENDIF
       IF cLabel <> NIL
-         //hFont := HGetValue( hElement, "FONT" )
-         //IF hFont == NIL
-         //   ::SetFontMediumBold()
+         hFont := HGetValue( hElement, "FONT" )
+         IF hFont == NIL
+            ::SetFontMediumBold()
             cFontName := NIL
             nPitch    := NIL
             nAngle    := NIL
             textcolor := NIL
-         //ELSE
-         //   cFontName := HGetValue( hFont, "NAME" )
-         //   nPitch    := HGetValue( hFont, "PITCH" )
-         //   nAngle    := HGetValue( hFont, "ANGLE" )
-         //   textcolor := HGetValue( hFont, "COLOR" )
-         //   DEFAULT cFontName TO "Arial"
-         //   DEFAULT nPitch    TO 8
-         //   DEFAULT nAngle    TO 0
-         //ENDIF
+         ELSE
+            cFontName := HGetValue( hFont, "NAME" )
+            nPitch    := HGetValue( hFont, "PITCH" )
+            nAngle    := HGetValue( hFont, "ANGLE" )
+            textcolor := HGetValue( hFont, "COLOR" )
+            DEFAULT cFontName TO "Arial"
+            DEFAULT nPitch    TO 8
+            DEFAULT nAngle    TO 0
+         ENDIF
          nPosX   := nPosX + ( (nExtrude + nWidth) / 4 ) * cos(::Radians( nDegree + nDim / 2 ))
          nPosY   := nPosY + ( (nExtrude + nWidth) / 4 ) * sin(::Radians( nDegree + nDim / 2 ))
          IF textcolor == NIL