* source/rtl/tget.prg

! Fix minor bug in PutMask() method. Reported by Luiz Rafael Culik from brazilian user
2002-07-08 04:41:12 +00:00
parent 998f22131c
commit bb6992bbbe
1 changed files with 2 additions and 0 deletions
--- 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 )