[Hwgui-developers] Bug Hwgui Get Valid

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

The GET with VALID clausule not work.

This simple PRG demonstre the problem.


/* 2013-06-13 17:37 UTC+0200 Przemyslaw Czerpak */

#include 'hwgui.ch'

Function Main

Local oFont, cTitulo:="TEST VALID", oDlg
Local vAc01,vAc02
Local oAc01,oAc02

PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -14

 INIT DIALOG oDlg TITLE cTitulo Font oFont AT 0,0 SIZE 350,200 CLIPPER
NOEXIT NOEXITESC;
 STYLE DS_CENTER+WS_VISIBLE+WS_CAPTION

   vAc01 := "   "
   vAc02 := ""

   @ 010,030 say "Iniciais:" SIZE 60,15
   @ 010,050 get oAc01 VAR vAc01 picture "!!!"  SIZE 50,30 STYLE

   @ 010,090 say "Senha:" SIZE 65,15
   @ 010,110 get oAc02 VAR vAc02 PICTURE "!!!!!" SIZE 100,30 PASSWORD Valid
{||Hwg_MsgInfo("BUG Here !")}


ACTIVATE DIALOG oDlg
Return Nil

C:\fontes\teste>harbour -build
Harbour 3.2.0dev (r1306111826)
Copyright (c) 1999-2013, http://harbour-project.org/

Harbour Build Info
---------------------------
Version: Harbour 3.2.0dev (r1306111826)
Compiler: MinGW GNU C 4.7.2 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2013-06-11 20:26 UTC+0200 Przemyslaw Czerpak
(druzus/at/po
czta.onet.pl)
ChangeLog ID: bbdb15ce23480752ff235387e66d8cf0a7c2cb0c
Built on: Jun 11 2013 22:12:49
Build options: (Clipper 5.3b) (Clipper 5.x undoc)
---------------------------

Best regards,
Itamar M. Lins Jr.