To work around the problem described in this PDR, please proceed as
follows:
o Copy the file GETSYS.PRG to your project folder. GETSYS.PRG can be
found in folder \SOURCE\SYS of your Xbase++ installation
o Load file GETSYS.PRG into an editor
o Add the following code at the end of the file:
// Work-around for PDR 4392, 08|27|2004
STATIC PROCEDURE GetInsert (oGet,cChar)
LOCAL nLen := Len(oGet:buffer)
oGet:insert(cChar)
IF Len(oGet:buffer) > nLen
oGet:buffer := Left(oGet:buffer,nLen)
ENDIF
RETURN
o Locate the following line in function GetApplyKey():
IF Set(_SET_INSERT)
// --> Locate this line in GETSYS.PRG:
oGet:insert( cChar )
ELSE
Change the code as follows:
IF Set(_SET_INSERT)
// Work-around for PDR 4392, 08|27|2004
GetInsert(oGet,cChar)
ELSE
o Save GETSYS.PRG
o Add GETSYS.PRG to your project (.XPJ) file
o Rebuild your project
|