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

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

harbour/contrib/gtwvg/wvgclass.prg

@@ -2361,7 +2361,7 @@ METHOD Read() CLASS WvtGets
 //-------------------------------------------------------------------//
 
 METHOD GetData() CLASS WvtGets
-   LOCAL aData
+   LOCAL aData := NIL
 
    RETURN aData
 

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