2012-09-14 17:13 UTC+0200 Viktor Szakats (harbour syenar.net)

* extras/hbvpdf/hbvpdft.prg
    ! missing #define LEFTEQUAL()

harbour/ChangeLog

@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-09-14 17:13 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * extras/hbvpdf/hbvpdft.prg
+    ! missing #define LEFTEQUAL()
+
 2012-09-14 16:32 UTC+0200 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
     ! keep -trace mode turned off in --hbinfo mode, otherwise

harbour/extras/hbvpdf/hbvpdft.prg

@@ -18,7 +18,6 @@
    #endif
 #endif
 
-
 #ifdef __HARBOUR__
    #include      "hbclass.ch"
 #endif
@@ -33,6 +32,8 @@
    #include     "class(y).ch"
 #endif
 
+#define LEFTEQUAL( l, r )  ( Left( l, Len( r ) ) == r )
+
 //-------------------------\\
 
 #include             "hbvpdf.ch"
@@ -822,7 +823,7 @@ local nSize, aSize := { { "LETTER",    8.50, 11.00 }, ;
                         { "DL",        4.33,  8.66 }, ;
                         { "B5",        6.93,  9.84 } }
 
-DEFAULT _cPageSize TO "LETTER"
+   DEFAULT _cPageSize TO "LETTER"
 
    nSize := ascan( aSize, { |arr| LEFTEQUAL( arr[ 1 ], _cPageSize ) } )
 
@@ -850,7 +851,7 @@ METHOD tPdf:PageOrient( _cPageOrient )
 METHOD PageOrient( _cPageOrient )
 #endif
 
-DEFAULT _cPageOrient TO "P"
+   DEFAULT _cPageOrient TO "P"
 
    ::aReport[ PAGEORIENT ] := _cPageOrient
    ::PageSize( ::aReport[ PAGESIZE ] )