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