From c175ad510ddf224eeaedd9405cf50bd197ba3a62 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Sun, 14 Apr 2002 05:00:38 +0000
Subject: [PATCH]    * contrib/libct/ctmisc.prg      + Add function: CSETCENT()
   // return SET CENTURY state      + Add function: UNSELECTED() // Activate
 UNSELECTED color

---
 harbour/contrib/libct/ctmisc.prg | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/harbour/contrib/libct/ctmisc.prg b/harbour/contrib/libct/ctmisc.prg
index 602d2389f4..1a8fdcf1c4 100644
--- a/harbour/contrib/libct/ctmisc.prg
+++ b/harbour/contrib/libct/ctmisc.prg
@@ -70,6 +70,14 @@ FUNCTION CSETCURS( l )
 FUNCTION CSETKEY( n )
    RETURN SetKey( n )
 
+FUNCTION CSETCENT( nCentury )
+   if nCentury == NIL
+      RETURN __SETCENTURY()
+   else
+      RETURN __SETCENTURY( nCentury )
+   endif
+   RETURN NIL
+
 FUNCTION ENHANCED()
 
    ColorSelect( CLR_ENHANCED )
@@ -82,6 +90,12 @@ FUNCTION STANDARD()
 
    RETURN ""
 
+FUNCTION UNSELECTED()
+
+   ColorSelect( CLR_UNSELECTED )
+
+   RETURN ""
+
 FUNCTION LTOC( l )
    RETURN iif( l, "T", "F" )