OpenEuphoria

RE: [Win32Lib] 0.57.9 bug? 1 button click, two events?

• Posted by Brian Broker <bkb at cnw.com> Jul 11, 2002
• 403 views

Increments by 1 on my XP system.  Have you modified your copy of the 
lib?

-- Brian

Dan Moyer wrote:
> Derek,
> 
> Is this a bug?  In the following stub, each click on the button is 
> supposed
> to increment a counter by 1 & display it, but I get a display of +2 for 
> each
> press.
> 
> Dan
> 
> 
> -- <code begins>
> --  code generated by Win32Lib IDE v0.10.5
> 
> include Win32Lib.ew
> without warning
> 
> ----------------------------------------------------------------------------
> 
> ----
> --  Window Window1
> global constant Window1 = create( Window, "Window1", 0, 50, 50, 200, 
> 200,
> 0 )
> global constant PushButton2 = create( PushButton, "Push Me", Window1, 
> 48,
> 44, 90, 30, 0 )
> global constant CText3 = create( CText, "", Window1, 16, 88, 152, 28, 0 
> )
> ----------------------------------------------------------------------------
> 
> ----
> integer counter
> counter = 0
> ----------------------------------------------------------------------------
> 
> ----
> procedure PushButton2_onClick ()
>    counter +=1
>    setText(CText3, sprint(counter))
> end procedure
> onClick[PushButton2] = routine_id("PushButton2_onClick")
> 
> 
> WinMain( Window1, Normal )
> 
> -- <code ends>
> 
>