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

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

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