diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bb20f0130b..0d2f3f71be 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-18 11:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbwin/hbwin.ch
+  * contrib/hbwin/win_tprn.prg
+    + Added constants for WIN_SETBKMODE() mode parameter.
+
 2010-01-18 11:20 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/dbinfo.ch
   * harbour/include/hbrdddbf.h
diff --git a/harbour/contrib/hbwin/hbwin.ch b/harbour/contrib/hbwin/hbwin.ch
index 19f7a1a3ef..cce2543c9c 100644
--- a/harbour/contrib/hbwin/hbwin.ch
+++ b/harbour/contrib/hbwin/hbwin.ch
@@ -220,6 +220,10 @@
 #define WIN_FW_HEAVY                900
 #define WIN_FW_BLACK                WIN_FW_HEAVY
 
+/* WIN_SETBKMODE() modes */
+#define WIN_TRANSPARENT             1
+#define WIN_OPAQUE                  2
+
 /* Windows charset values (WIN_CREATEFONT()) */
 #define WIN_ANSI_CHARSET            0
 #define WIN_DEFAULT_CHARSET         1
diff --git a/harbour/contrib/hbwin/win_tprn.prg b/harbour/contrib/hbwin/win_tprn.prg
index 6447e1b593..f2b3c6e856 100644
--- a/harbour/contrib/hbwin/win_tprn.prg
+++ b/harbour/contrib/hbwin/win_tprn.prg
@@ -109,8 +109,7 @@ CREATE CLASS WIN_PRN
 
    METHOD SetPos( nPosX, nPosY )                      // **WARNING** : ( Col, Row ) _NOT_ ( Row, Col )
    METHOD SetColor( nClrText, nClrPane, nAlign )
-   METHOD SetBkMode( nMode )                          // Set Background mode
-                                                      // 1 == TRANSPARENT or 2 == OPAQUE
+   METHOD SetBkMode( nMode )                          // Set Background mode: WIN_TRANSPARENT or WIN_OPAQUE
 
    METHOD TextOut( cString, lNewLine, lUpdatePosX, nAlign ) // nAlign : WIN_TA_*
    METHOD TextOutAt( nPosX, nPosY, cString, lNewLine, lUpdatePosX, nAlign )   // **WARNING** : ( Col, Row ) _NOT_ ( Row, Col )