From cfac79dbbd248c3816a40bb60491cbc31ec8ae4f Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 28 Apr 2003 21:01:12 +0000 Subject: [PATCH] numbers editing bug (side effect from previous change) fixed --- harbour/source/rtl/tget.prg | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 56fad1e916..214d03ba79 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -690,6 +690,10 @@ METHOD overstrike( cChar ) CLASS Get ::buffer := ::PutMask( ::VarGet(), .t. ) endif + if ::pos == 0 + ::pos = 1 + endif + do while ! ::IsEditable( ::pos ) .and. ::pos <= ::nMaxEdit ::pos++ enddo @@ -751,6 +755,10 @@ METHOD Insert( cChar ) CLASS Get ::buffer := ::PutMask( ::VarGet(), .t. ) endif + if ::pos == 0 + ::pos = 1 + endif + do while ! ::IsEditable( ::pos ) .and. ::pos <= ::nMaxEdit ::pos++ enddo @@ -1573,4 +1581,3 @@ STATIC FUNCTION IsBadDate( cBuffer, cPicFunc ) Next return .f. -