2008-10-27 10:37 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

* source/pp/ppcore.c
    + Added '#pragma TEXTHIDDEN=<ON | OFF>' to control the 
      existing -texthidden option to add light encoding to 
      strings embedded in code. Since this goes with a slight 
      performance hit and it's rarely used, it might be useful 
      to turn it on only for code parts that really needs this.

  * source/rtl/tget.prg
    * Corrected an assigment to follow official syntax.

harbour/ChangeLog

@@ -8,6 +8,17 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-10-27 10:37 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * source/pp/ppcore.c
+    + Added '#pragma TEXTHIDDEN=<ON | OFF>' to control the 
+      existing -texthidden option to add light encoding to 
+      strings embedded in code. Since this goes with a slight 
+      performance hit and it's rarely used, it might be useful 
+      to turn it on only for code parts that really needs this.
+
+  * source/rtl/tget.prg
+    * Corrected an assigment to follow official syntax.
+
 2008-10-27 00:01 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * source/common/hbver.c
     * Changed to include bitness even for DJGPP.

harbour/source/pp/ppcore.c

@@ -2383,6 +2383,14 @@ static void hb_pp_pragmaNew( PHB_PP_STATE pState, PHB_PP_TOKEN pToken )
          else
             fError = TRUE;
       }
+      else if( hb_pp_tokenValueCmp( pToken, "TEXTHIDDEN", HB_PP_CMP_DBASE ) )
+      {
+         pValue = hb_pp_pragmaGetLogical( pToken->pNext, &fValue );
+         if( pValue )
+            fError = hb_pp_setCompilerSwitch( pState, "texthidden", ( int ) fValue );
+         else
+            fError = TRUE;
+      }
       else if( hb_pp_tokenValueCmp( pToken, "DYNAMICMEMVAR", HB_PP_CMP_DBASE ) )
       {
          pValue = hb_pp_pragmaGetLogical( pToken->pNext, &fValue );

harbour/source/rtl/tget.prg

@@ -367,7 +367,7 @@ METHOD display() CLASS Get
 
 METHOD colorDisp( cColorSpec ) CLASS Get
 
-   ::colorSpec( cColorSpec )
+   ::colorSpec := cColorSpec
    ::display()
 
    RETURN Self