OpenEuphoria

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

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Jul 11, 2002
• 392 views

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>