Kbase P10080: On "backspace" anywhere trigger disables backspace key in editors.
Autor |
  Progress Software Corporation - Progress |
Acesso |
  Público |
Publicação |
  10/23/2008 |
|
Status: Verified
SYMPTOM(s):
On "backspace" anywhere trigger disables backspace key in editors.
The BACKSPACE key is not fired anymore in the editor widget once you have defined the ON 'BACKSPACE' ANYWHERE trigger.
CAUSE:
Bug# 20011101-007
CAUSE:
Bug# 19950630-004
FIX:
You have two workarounds.
The first one and the easiest one consists on using a LARGE editor (check it in the editor properties).
The second one needs to add the next code within the trigger:
DEFINE VARIABLE RC AS LOGICAL NO-UNDO.
DEFINE VARIABLE EL AS INTEGER NO-UNDO.
EL = LENGTH(EDITOR-1:SCREEN-VALUE).
IF EL > 0 THEN
DO:
EL = EDITOR-1:CURSOR-OFFSET.
RC = EDITOR-1:SET-SELECTION(EL,(EL - 1)).
RC = EDITOR-1:REPLACE-SELECTION-TEXT("").
END.