OpenEuphoria

Problem with Win32Lib V .55

• Posted by Prasanta Chakraborty <prasanta at WRITEME.COM> Jan 11, 2001
• 416 views

One more problem I found with Win32Lib V.55. Please ignore this if this has
already been raised before.

Execute the following EXW, Select the second TAB and then select, deselect
the checkbox. As per the code, the EditText should appear and disappear, but
this doesnot happen.
If I take out the group, this works properly. So, I believe this is another
problem with the TAB and GROUP combination.

Regards,
Prasanta.

--  code generated by Win32Lib IDE v0.9L.9a

include Win32Lib.ew
without warning

----------------------------------------------------------------------------
----
--  Window Window1
global constant Window1 = create( Window, "Window1", 0, Default, Default,
300, 200, 0 )
setWindowBackColor( Window1,8454143)
global constant TabControl2 = create( TabControl, "TabControl2", Window1,
36, 24, 232, 132, 0 )
global constant TabItem3 = create( TabItem, "TabItem3", TabControl2, 0, 0,
0, 0, 0 )
global constant TabItem4 = create( TabItem, "TabItem4", TabControl2, 0, 0,
0, 0, 0 )
global constant PushButton7 = create( PushButton, "PushButton7", TabItem3,
156, 40, 60, 28, 0 )
global constant LText8 = create( LText, "LText8", TabItem3, 20, 100, 150,
20, 0 )
global constant List9 = create( List, "List9", TabItem3, 8, 24, 140, 68, 0 )
global constant Group10 = create( Group, "Group10", TabItem4, 8, 32, 216,
96, 0 )
global constant CheckBox11 = create( CheckBox, "CheckBox11", Group10, 32,
32, 150, 20, 0 )
global constant EditText12 = create( EditText, "", Group10, 36, 60, 150, 20,
0 )
----------------------------------------------------------------------------
----
procedure CheckBox11_onClick ()
if isVisible(EditText12) then
    setVisible(EditText12, False)
else
    setVisible(EditText12, True)
end if
end procedure
onClick[CheckBox11] = routine_id("CheckBox11_onClick")



WinMain( Window1, Normal )