GET Bug!!

[byte-one]

Now i say on new FWH that all gets ignore the picture (Only on REDEFINE?)! Please try "@!". The letters are not uppercase!
Also the oGet:bPostKey not functioning. I linked in a older tget.prg and all is ok!
Thats strange!

[nageswaragunupudi]

For normal ANSI applications (if we do not set FW_SetUnicode( .t. )), Gets work as usual. All picture clauses work as usual, without any change. In other words, existing applications work as before.

In Unicode applications, i.e., when we set FW_SetUnicode( .t. ), Gets for character values do not obey any picture clause. Gets for other data-types work as usual.

[byte-one]

Please test this code:
I use now PICTURE "@R 99.99.99.99.99" and you can see that is ignored!! And also the oGet:bPostkey is not executed!

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
    @ 1, 2 GET oGet VAR cGet PICTURE "@R 99.99.99.99.99" SIZE 100,15//@!"
        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
    @ 50,10 RBBTN PROMPT "&End" OF oDlg SIZE 50,15 ACTION oDlg:End()
    ACTIVATE DIALOG oDlg CENTERED
 

return nil

[nageswaragunupudi]

Test

Code: Select all  Expand view

function TestGet1()

   local oDlg, oGet, cGet := Space(10)
   local oFont

   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-16
   DEFINE DIALOG oDlg FONT oFont

   @ 10,10 GET oGet VAR cGet PICTURE "@R 99.99.99.99.99" SIZE 70,13 PIXEL OF oDlg
   @ 40,10 BUTTON "TEST" SIZE 40,14 PIXEL OF oDlg ACTION MsgInfo( cGet )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont
   ? cGet

return nil
 

This shows that Get displays the value entered as formatted with the picture clause and the value returned by the Get is what is expected from the Get.

[byte-one]

Mr. Nages, please excuse that i have wasted your precious time!
I`m not checked, that i had used fw_setunicode(.T.) for test purposes.