Consultor Eletrônico

Status: Verified

SYMPTOM(s):

4GL/ABL: HELP of fill-in is not displayed correctly when using .NET compatible WAIT-FOR in application.

When the user clicks in a fill-in, the help of the previously clicked fill-in is displayed.

When the user TAB from one fill-in to another, the HELP displayed in the status area doesn't change at all.

Running the following code demonstrates the issue:
DEFINE VARIABLE FieldOne AS CHARACTER LABEL "FieldOne" NO-UNDO.
DEFINE VARIABLE FieldTwo AS CHARACTER LABEL "FieldTwo" NO-UNDO.
DEFINE VARIABLE FieldThree AS CHARACTER LABEL "FieldThree" NO-UNDO.
DEFINE BUTTON ButtonOk LABEL "&OK":T5 SIZE-PIXELS 80 BY 23.
DEFINE VARIABLE hWindowOfEditor AS HANDLE NO-UNDO.
/* following line just to force the load of the CLR */
System.Threading.Thread:CurrentThread:CurrentCulture = NEW System.Globalization.CultureInfo("en-US":U).
CREATE WINDOW hWindowOfEditor
ASSIGN
WIDTH-PIXELS = 100
HEIGHT-PIXELS = 50
VISIBLE = TRUE.
DISPLAY ButtonOk IN WINDOW hWindowOfEditor.
ButtonOk:SENSITIVE = TRUE.
ON "CHOOSE":U OF ButtonOk ANYWHERE
DO:
RUN test.
END. /* ON "CHOOSE":U OF ButtonOk ANYWHERE */
WAIT-FOR System.Windows.Forms.Application:Run().
PROCEDURE test:
REPEAT WITH SIDE-LABELS 1 DOWN CENTERED TITLE "Enter Parameters" THREE-D WIDTH 80:
UPDATE
FieldOne COLON 32 HELP "Help of FieldOne"
FieldTwo COLON 32 HELP "Help of FieldTwo"
FieldThree COLON 32 HELP "Help of FieldThree"
.
LEAVE.
END.
System.Windows.Forms.Application:Exit( ).
END.

FACT(s) (Environment):

Windows
OpenEdge 10.2A03 32-bit Service Pack
OpenEdge 10.2B01 32-bit Service Pack
OpenEdge Language Category: .NET Bridge

CAUSE:

Bug# OE00197698

FIX:

Upgrade to OpenEdge 10.2B02. If upgrading to OpenEdge 10.2B02 is not feasible, a workaround is to replace the statement:
WAIT-FOR System.Windows.Forms.Application:Run().
with the statement:
WAIT-FOR CLOSE OF THIS-PROCEDURE.