From 721936c765032e2b6645a8dd758f98df1b24cc19 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Thu, 31 May 2012 11:59:29 +0000 Subject: [PATCH] 2012-05-31 13:58 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * harbour/contrib/hbct/getsecrt.prg ! do not use RANGEREPL() which is not UTF8 ready function --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbct/getsecrt.prg | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 22ac5bb4bd..02e2234a33 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-05-31 13:58 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) + * harbour/contrib/hbct/getsecrt.prg + ! do not use RANGEREPL() which is not UTF8 ready function + 2012-05-26 12:12 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/qtcore/hbqt_pointer.cpp ! Changed: HB_FUNC( SIGNAL2SLOT ) => HB_FUNC( HBQT_CONNECT ) diff --git a/harbour/contrib/hbct/getsecrt.prg b/harbour/contrib/hbct/getsecrt.prg index 066e6d4a61..40e134e1af 100644 --- a/harbour/contrib/hbct/getsecrt.prg +++ b/harbour/contrib/hbct/getsecrt.prg @@ -97,7 +97,8 @@ FUNCTION GETSECRET( cVar, nRow, nCol, lSay, xPrompt ) RETURN _cGetSecret STATIC FUNCTION _HIDE( cVar ) - RETURN RANGEREPL( ASC( " " ) + 1, 255, cVar, "*" ) + /* RETURN RANGEREPL( ASC( " " ) + 1, 255, cVar, "*" ) */ + RETURN PADR( REPL( "*", LEN( RTRIM( cVar ) ) ), LEN( cVar ) ) STATIC FUNCTION _VALUE( cVar, lHide, xNew ) IF lHide