Re: [Hwgui-developers] Serious BUG on GET ..

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
This example show with more detail the bug.

#include "hwgui.ch"
Function main
LOCAL oDlg ,obt, cVar:= "X"

INIT DIALOG oDlg clipper title "Typing <END>,<ENTER> and
abcd...<enter>,abcd...<enter>!" AT 0,0 SIZE 800,400

   @ 10,10 get oVar VAR cVar SIZE 500,300 STYLE ES_MULTILINE +
ES_AUTOVSCROLL + WS_VSCROLL + ES_WANTRETURN

   @ 600,200 button obt caption "show me" size 100,30 on click {||
hwg_msginfo(cVar,"FAIL! Only show one line!"),
hwg_msginfo(oVar:GetText(cVar),"Works Fine !") , Hwg_EndDialog() }

oDlg:Activate(,,,.T.)

hwg_msginfo( oVar:GetText(cVar),"NOW FAIL :(" )


Best regards,
Itamar M. Lins Jr.


2015-07-03 16:10 GMT-03:00 Itamar M. Lins Jr. Lins <ita...@gm...>:

> #include "hwgui.ch"
> Function main
> LOCAL oDlg, cVar:= space(100)
>
> INIT DIALOG oDlg clipper title "Obs" AT 0,0 SIZE 800,400
>
>    @ 10,10 get oVar VAR cVar SIZE 760,300 STYLE ES_MULTILINE +
> ES_AUTOVSCROLL + WS_VSCROLL + ES_WANTRETURN
>
>    //Typing abcd...<enter>,abcd...<enter>.... and ESCAPE!
>
> oDlg:Activate(,,,.T.)
>
> hwg_msginfo(cVar) //None :(
> hwg_msginfo( oVar:GetText(cVar) )  //None :(
> hwg_msginfo(oVar:value) //None :(
>
> //Hwgui Changelog 2461 2015-07-01
>
> Best regards,
> Itamar M. Lins Jr.
>