OpenEuphoria

Re: Bug in either Judith's IDE or Win32lib

• Posted by SR Williamson <sr.williamson at OSHA.GOV> Nov 07, 2000
• 507 views

Derek,
The reason you're not getting the bug is because you have the group control
on the second tab. Put it on the first and you'll see the problem. Here's
your modified code which shows the bug.
___________________________________________
include win32lib.ew
without warning

constant
    Win     =  create( Window, "Tab Controls", 0, Default, Default, 260,
320, 0 ),
    Tabs    = create( TabControl, "", Win, 10, 10, 220, 250, 0 ),
    Tab1    = create( TabItem, "Tab Number &1", Tabs, 0, 0, 0, 0, 0 ),
    Tab2    = create( TabItem, "Tab Number &2", Tabs, 0, 0, 0, 0, 0 ),
    Grp1     = create( Group, "A Group", Tab1, 4, 24, 200, 220, 0),
    Button1a = create( PushButton, "&Close", Grp1, 10, 60, 80, 40, 0 ),
    Button1b = create( PushButton, "Button 1&b", Grp1, 10, 120, 80, 40, 0 ),
    Mle1     = create( MleText, "", Grp1, 100, 60, 90, 100, 0 ),

    Button2a = create( PushButton, "C&lose", Tab2, 10, 60, 80, 40, 0 ),
    Button2b = create( PushButton, "Button 2&b", Tab2, 100, 60, 80, 40, 0 ),
    Mle2     = create( MleText, "", Tab2, 10, 120, 180, 90, 0 )

procedure shutdown()
    closeWindow( Win )
end procedure
onClick[Button1a] = routine_id("shutdown")
onClick[Button2a] = routine_id("shutdown")

-- run code
WinMain( Win, Normal )
___________________________________________________