2010-11-10 13:08 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbzebra/hbzebra.hbp
  - contrib/hbzebra/cairo.c
  + contrib/hbzebra/d_cairo.c
  - contrib/hbzebra/tests/test1.prg
  + contrib/hbzebra/tests/testcair.prg
    * Renames.

harbour/ChangeLog

@@ -16,6 +16,14 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-11-10 13:08 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbzebra/hbzebra.hbp
+  - contrib/hbzebra/cairo.c
+  + contrib/hbzebra/d_cairo.c
+  - contrib/hbzebra/tests/test1.prg
+  + contrib/hbzebra/tests/testcair.prg
+    * Renames.
+
 2010-11-10 13:03 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbzebra/hbzebra.hbp
   + contrib/hbzebra/d_hpdf.c

harbour/contrib/hbzebra/hbzebra.hbp

@@ -36,7 +36,7 @@ msi.c
 -depimplibd=cairo:cairo
 -depfinish=cairo
 
-{HBMK_HAS_CAIRO}cairo.c
+{HBMK_HAS_CAIRO}d_cairo.c
 {HBMK_HAS_CAIRO}../hbcairo/hbcairo.hbc
 
 {allwin}d_win.c

harbour/contrib/hbzebra/tests/testcair.prg

@@ -5,8 +5,8 @@
 #include "hbzebra.ch"
 #include "hbcairo.ch"
 
-PROC main()
-LOCAL hCairo, hSurface
+PROCEDURE main()
+   LOCAL hCairo, hSurface
 
    hSurface := cairo_pdf_surface_create( "test1.pdf", 567, 794 )  // A4
 
@@ -43,11 +43,11 @@ LOCAL hCairo, hSurface
    cairo_destroy( hCairo )
    cairo_surface_write_to_png( hSurface, "test1.png" )
    cairo_surface_destroy( hSurface )
-RETURN
+   RETURN
 
 
-PROC DrawBarcode( hCairo, nY, nLineWidth, cType, cCode, nFlags )
-LOCAL hZebra
+PROCEDURE DrawBarcode( hCairo, nY, nLineWidth, cType, cCode, nFlags )
+   LOCAL hZebra
    IF cType == "EAN13"
       hZebra := hb_zebra_create_ean13( cCode, nFlags )
    ELSEIF cType == "EAN8"
@@ -85,4 +85,4 @@ LOCAL hZebra
    ELSE
       ? "Invalid barcode type", cType
    ENDIF
-RETURN
+   RETURN