fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-05-31 13:58 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/contrib/hbct/getsecrt.prg
    ! do not use RANGEREPL() which is not UTF8 ready function
This commit is contained in:
Przemyslaw Czerpak
2012-05-31 11:59:29 +00:00
parent 01efbcdafc
commit 721936c765
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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 )

3
harbour/contrib/hbct/getsecrt.prg
View File

@@ -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