2007-09-10 12:01 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* source/rtl/color53.prg
     + Added HB_COMPAT_C53 guards.

   * source/rtl/tgetlist.prg
     + Two new methods to return Self rather than NIL.

   * source/rtl/einstvar.prg
     + Added HB_C52_STRICT branch.

   * source/rtl/tbrowse.prg
     + Continued prev. changed.

harbour/ChangeLog

@@ -8,6 +8,19 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-09-10 12:01 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+   * source/rtl/color53.prg
+     + Added HB_COMPAT_C53 guards.
+
+   * source/rtl/tgetlist.prg
+     + Two new methods to return Self rather than NIL.
+
+   * source/rtl/einstvar.prg
+     + Added HB_C52_STRICT branch.
+
+   * source/rtl/tbrowse.prg
+     + Continued prev. changed.
+
 2007-09-10 03:38 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
    * source/rtl/scrollbr.prg
    * source/rtl/tpopup.prg

harbour/source/rtl/color53.prg

@@ -52,6 +52,8 @@
 
 #include "common.ch"
 
+#ifdef HB_COMPAT_C53
+
 FUNCTION GetClrPair( cColor, nColor )
    LOCAL nPos
 
@@ -211,3 +213,5 @@ FUNCTION ApplyDefau( cColor, xClr1, xClr2, xClr3, xClr4, xClr5, xClr6, xClr7, xC
    NEXT
 
    RETURN cClrDefa
+
+#endif

harbour/source/rtl/einstvar.prg

@@ -73,7 +73,11 @@ FUNCTION _eInstVar( oVar, cMethod, xValue, cType, nSubCode, bValid )
       oError:severity := 2
       oError:cansubstitute := .T.
       oError:subsystem := oVar:classname
+#ifdef HB_C52_STRICT
+      HB_SYMBOL_UNUSED( cMethod )
+#else
       oError:operation := cMethod
+#endif
       oError:subcode := nSubCode
       oError:args := { xValue }
       xValue := EVAL( ERRORBLOCK(), oError )

harbour/source/rtl/tbrowse.prg

@@ -503,6 +503,8 @@ METHOD delColumn( nPos ) CLASS TBrowse
    ASize( ::aColsWidth, ::nColumns )
    ADel( ::aColsPos, nPos )
    ASize( ::aColsPos, ::nColumns )
+   ADel( ::aColsInfo, nPos )
+   ASize( ::aColsInfo, ::nColumns )
 
    if ::nColumns < ::nFrozenCols
       ::nFrozenCols := 0

harbour/source/rtl/tgetlist.prg

@@ -1444,7 +1444,7 @@ METHOD ShowGetMsg( aMsg ) CLASS HBGetList
    HB_SYMBOL_UNUSED( aMsg )
 #endif
 
-   RETURN NIL
+   RETURN Self
 
 METHOD EraseGetMsg( aMsg ) CLASS HBGetList
 
@@ -1464,7 +1464,7 @@ METHOD EraseGetMsg( aMsg ) CLASS HBGetList
    HB_SYMBOL_UNUSED( aMsg )
 #endif
 
-   RETURN NIL
+   RETURN Self
 
 #endif