OpenEuphoria

Re: Bug in either Judith's IDE or Win32lib

• Posted by Derek Parnell <dparnell at BIGPOND.NET.AU> Nov 07, 2000
• 525 views

Hi,
Are the items in the group parented to the group control or the tabitem?

I also modified EX21 by adding a group to the TAB2 control and parenting the
buttons and MLE to the group and it works just fine. The code's below ....


----------------------------------------
-- ex21.exw
-- demo of tab controls

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 ),
    Button1a = create( PushButton, "&Close", Tab1, 10, 60, 80, 40, 0 ),
    Button1b = create( PushButton, "Button 1&b", Tab1, 10, 120, 80, 40, 0 ),
    Mle1     = create( MleText, "", Tab1, 100, 60, 90, 100, 0 ),
    Grp1     = create( Group, "A Group", Tab2, 4, 24, 200, 220, 0),
    Button2a = create( PushButton, "C&lose", Grp1, 10, 60, 80, 40, 0 ),
    Button2b = create( PushButton, "Button 2&b", Grp1, 100, 60, 80, 40, 0 ),
    Mle2     = create( MleText, "", Grp1, 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 )
----------------------------------------

------
Derek Parnell
Melbourne, Australia
(Vote [1] The Cheshire Cat for Internet Mascot)