Abnormal program termination

[byte-one]

Antonio?
The error is present only when using Msgrun(...) in the bAction from the timer!
This test can you show the problem! Please type in get any character and wait for reaction.
Antonio, in some rare cases the program terminates not but in the get suddenly comes chinese letters!
(Unicode?)

Code: Select all  Expand view

function abnormal(oWnd)
local oDlg, oTimer , oSay , cSay := " " , oGet , cGet := space(10) , cBuffer
    DEFINE TIMER oTimer INTERVAL 1000 OF oWnd
    DEFINE DIALOG oDlg OF oWnd FONT oFont_normal
    @ 1, 2 GET oGet VAR cGet
        oGet:bPostKey := {|x,buffer|if(empty(buffer),NIL,;
        (oTimer:bAction:={||NIL},;
        cBuffer := buffer,;
        oTimer:bAction:={||msgrun("Test","Test",{||(cSay := cBuffer, oSay:refresh(),oTimer:deactivate())})},;
        oTimer:activate()))}
        @ 2, 2 SAY oSay PROMPT cSay SIZE 50,15
    @ 3,2 SBUTTON PROMPT "&End" OF oDlg SIZE 50,15 ACTION oDlg:End()
    ACTIVATE DIALOG oDlg CENTERED
return nil
 

I have tested on WIN 10 and XP!

[byte-one]

Antonio, i found the following:
If at begin of the app FW_SetUnicode( .T. ), then the error goes away! In the source of msgrun() you are switch to FW_SetUnicode( .T. ) and return to the old status. This could be the reason!???

[Antonio Linares]

Günther,

Yes, it could be related.

In FWH we have done a tremendous work to support unicode and non unicode at the same time. Tipically an app is unicode or it is not.

A FWH app can be unicode and non unicode at the same time, thats why I think it may be related.

[byte-one]

Antonio, for now i link a msgrun.prg in with commented calls to FW_setunicode().

[nageswaragunupudi]

Thanks.
We commented out too from the next release.
Switching of Unicode setting during runtime is not yet supported though we originally wanted to.