Re: [Hwgui-developers] bug report about hTool.prg

[Basso, L. F. <lf...@vi...>]

Hi!
Fixed!
Regards

Luis Fernando Basso
lf...@vi...

-----Mensagem Original----- 
From: "網緹資訊•廖文勝(WenSheng)"
Sent: Sunday, January 01, 2012 11:27 PM
To: Basso, Luis Fernando ; hwg...@li...
Subject: Re: [Hwgui-developers] bug report about hTool.prg


Yes, I'm use SVN to get last code.


> Hi,
> HTool.prg in the svn it does not happen. You are using the SVN version?
>
>
> Luis Fernando Basso
> lf...@vi...
>
> -----Mensagem Original----- 
> From: ss...@ma...
> Sent: Sunday, January 01, 2012 1:08 PM
> To: hwg...@li...
> Subject: [Hwgui-developers] bug report about hTool.prg
>
>
> Hi~
>
> I found a bug on htool.prg, sample code like:
>
>            INIT WINDOW ::oDlg MDICHILD OF ::oMDlg TITLE 'TEST';
>                 AT 0, 0 SIZE 600, 400;
>                 STYLE WS_VISIBLE + WS_OVERLAPPEDWINDOW;
>                 FONT ::oFnt[3];
>                 ON SIZE {|o,w,l| MoveWindow( ::oBrw[1]:handle, 0,
> ::oBar:nHeight+3, ::oDlg:nWidth - 8, ::oDlg:nHeight - ::oBar:nHeight -
> 37 ) };
>                 ON EXIT {|| ::End() }
>
>                 @ 0, 0 TOOLBAR ::oBar OF ::oDlg;
>                        SIZE ::oDlg:nWidth, 43;
>                        FONT ::oFnt[1];
>                        TRANSPARENT
>
>                 ADDTOOLBUTTON ::oBar;
>                         BITMAP 'B_APPEND';
>                         TOOLTIP "Insert";
>                         ON CLICK {|o,id| msginfo('1') }   // <---- Bug, 
> run
> twice.
>
>
> ON Click have bug and run twice to show '1'.
> I had debug and found on htools.prg line 66:
>
> METHOD New(oParent,cName,nBitIp,nId,bState,bStyle,cText,bClick,ctip,aMenu)
> CLASS
> HToolButton
> :
> :
> :
> ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
> // <-- disable it and run ok!!
>
>
>
>
> ------------------------------------------------------------------------------
> Ridiculously easy VDI. With Citrix VDI-in-a-Box, you don't need a complex
> infrastructure or vast IT resources to deliver seamless, secure access to
> virtual desktops. With this all-in-one solution, easily deploy virtual
> desktops for less than the cost of PCs and save 60% on VDI infrastructure
> costs. Try it free! http://p.sf.net/sfu/Citrix-VDIinabox
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
>
>
> ------------------------------------------------------------------------------
> Ridiculously easy VDI. With Citrix VDI-in-a-Box, you don't need a complex
> infrastructure or vast IT resources to deliver seamless, secure access to
> virtual desktops. With this all-in-one solution, easily deploy virtual
> desktops for less than the cost of PCs and save 60% on VDI infrastructure
> costs. Try it free! http://p.sf.net/sfu/Citrix-VDIinabox
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
>
> __________ Information from ESET NOD32 Antivirus, version of virus 
> signature database 6759 (20120101) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>

Wang Ti information CO. of Taiwan
http://www.zzz.com.tw/
mailto:ss...@ma...
Yahoo: ssbbstw
MSN:ss...@ho...
Skype:ssbbstw