DC_EditControlLastFocus() and EDITPROTECT

[ivanvazan]

Roger,
I think there is an issue with your newly added function DC_EditControlLastFocus().
You get an error if you have a screen with some dc_gets and dc_pushbuttons and all gets on the screen are EDITPROTECTed and the button has DC_EditControlLastFocus() in the action clause. System does not recognize this situation and does not return the focus to the tab page itself (or any other available object if there is no tab page, just a DC_STATIC). Error code is BASE/2266 (receiver of message is not an object).
Please refer to my attached sample code for testing (just click on the button and close the action message).

[rdonnay]

Ivan -

There is nothing wrong with DC_EditControlLastFocus().
The reason there is no object is because there was never any object that received focus because the gets are all protected.

When you have code like that, just make a change like so:

Code: Select all

@ 0, 1 DCPUSHBUTTON ;
    CAPTION "Push Me" ;
    SIZE 10, 1.2 ;
    ACTION { |o|o := DC_EditControlLastFocus(GetList), ;
                DC_MSGBOX( ,, { "Close this message box and", "you will NOT get an error." } ), ;
                IIF(Valtype(o)=='O', DC_SetAppFocus(o),nil) }

[ivanvazan]

That solved it. Thanks Roger, I appreciate it.