OpenEuphoria

ATTN: Derek: Re: Problem with Win32Lib V .55

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

Derek,

Can you please look into this problem ?

Regards,
Prasanta.

On Thu, 11 Jan 2001 07:08:42 -0500, Prasanta Chakraborty
<prasanta at WRITEME.COM> wrote:

>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 )