Litle sample to demonstrate differences between
Clipper 5.2e and Harbour 2.0.0
------------------------
function TestGetPic()
local GetList:={}, cTestVar:="12345"
@ 10, 0 SAY "A" GET cTestVar
@ Row(), Col()+1 SAY "B" GET cTestVar PICTURE "@KS20" // Note: 20 >
Len(cTestVar)
@ Row(), Col()+1 SAY "C" GET cTestVar // "C" must be 1 col
after 5
@ Row(), Col()+1 SAY "D" GET cTestVar // "D" is corrected
positioned after 5
READ
return nil
------------------------
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
