From bb6992bbbe7f38bc924947d5560a59a59ce5b1aa Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Mon, 8 Jul 2002 04:41:12 +0000
Subject: [PATCH]   * source/rtl/tget.prg     ! Fix minor bug in PutMask()
 method.

      Reported by Luiz Rafael Culik from brazilian user
---
 harbour/source/rtl/tget.prg | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index fa466f69cb..572e61fa5a 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -1148,6 +1148,8 @@ METHOD PutMask( xValue, lEdit ) CLASS Get
       for nFor := 1 to ::nMaxLen
          if !::IsEditable( nFor )
             nNoEditable++
+         else
+            nNoEditable := 0
          endif
       next
       cBuffer += SubStr( ::Original, ::nMaxLen - nNoEditable + 1 )