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

* source/rtl/tget.prg

Browse Source 
! Fix ::Changed property to conform UPDATE() behaviour with that Clipper.

  Fixed by Andi Jahja in xHarbour
This commit is contained in:
Walter Negro
2002-10-22 02:26:19 +00:00
parent 007650bc26
commit 0ab6da878f
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -700,8 +700,13 @@ METHOD overstrike( cChar ) CLASS Get
::buffer := SubStr( ::buffer, 1, ::Pos - 1 ) + cChar + SubStr( ::buffer, ::Pos + 1 )
::Changed := ValType( ::Original ) != ValType( ::unTransform() ) .or.;
!( ::unTransform() == ::Original )
// To conform UPDATED() behaviour with that of Clipper
::Changed := .T.
// UPDATED() function previously did not return .T. even if a key press is
// accepted.
// ::Changed := ValType( ::Original ) != ValType( ::unTransform() ) .or.;
// !( ::unTransform() == ::Original )
::Assign()
::Right( .f. )
@@ -770,8 +775,13 @@ METHOD Insert( cChar ) CLASS Get
::buffer := Left( Substr( ::buffer, 1, ::Pos-1 ) + cChar + Substr( ::buffer, ::Pos ), ::nMaxEdit )
endif
::Changed := ValType( ::Original ) != ValType( ::unTransform() ) .or.;
!( ::unTransform() == ::Original )
// To conform UPDATED() behaviour with that of Clipper
::Changed := .T.
// UPDATED() function previously did not return .T. even if a key press is
// accepted.
// ::Changed := ValType( ::Original ) != ValType( ::unTransform() ) .or.;
// !( ::unTransform() == ::Original )
::Assign()
::Right( .f. )