fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

numbers editing bug (side effect from previous change) fixed

Browse Source
This commit is contained in:
Antonio Linares
2003-04-28 21:01:12 +00:00
parent 16713e6953
commit cfac79dbbd
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/source/rtl/tget.prg
View File

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