[Hwgui-developers] ESC key disable valid and gets on Dialog.

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

Hi!

#include 'hwgui.ch'

Function Main

Local oDlg, cA:= space(5), cB:=Space(5)

INIT Dialog oDlg AT 0,0 SIZE 350,220 CLIPPER NOEXIT NOEXITESC

   @ 010,010 say "XYZ:" SIZE 65,15
   @ 010,030 get oA VAR cA SIZE 100,30 valid {|| hwg_msginfo('ok'),.t.}

   @ 010,090 say "ABC:" SIZE 65,15
   @ 010,110 get oB VAR cB SIZE 100,30

   @ 010,160 SAY "Key ESC disable valid and gets !" size 270,20

ACTIVATE Dialog oDlg center

Return Nil

Bug found by Fernando Queiroz.

Best Regards
Itamar M. Lins Jr.