From 74005606c4ed3bc0ee3eff9a5911956b71af76a5 Mon Sep 17 00:00:00 2001 From: Walter Negro Date: Wed, 22 May 2002 21:22:14 +0000 Subject: [PATCH] * source/rtl/tget.prg Fix, it was always written in the position 1 the first number of a numeric field although the cursor was moved to write in another position. --- harbour/source/rtl/tget.prg | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 77b909bc2e..9a1b108785 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -564,7 +564,7 @@ return xValue METHOD overstrike( cChar ) CLASS Get - if ::type == "N" .and. ! ::lEdit + if ::type == "N" .and. ! ::lEdit .and. ::Clear ::pos := 1 endif @@ -618,7 +618,7 @@ METHOD Insert( cChar ) CLASS Get local n local nMaxLen := ::nMaxLen - if ::type == "N" .and. ! ::lEdit + if ::type == "N" .and. ! ::lEdit .and. ::Clear ::pos := 1 endif @@ -1035,6 +1035,7 @@ METHOD _Delete( lDisplay ) CLASS Get DEFAULT lDisplay TO .t. + ::Clear := .f. ::lEdit := .t. if ::lPicComplex