OpenEuphoria

geometry.ew bug?

• Posted by 10963508 at europeonline.com Aug 16, 2002
• 507 views

If you run program below you'll see that at the bottom there is
red horizontal belt, that is a part of workspace window which has red
background.
Listview_window should be resized till bottom, why is that space there?
Listview_window is of type "List", if you change it to "ListView" it works
ok.

Maybe it's win32lib bug?

I have one request:
It would be good if we could be able to set spacing between windows,
horizontal and vertical. This would be especially usefull when managing
buttons, for example.

---------------------------
without warning
include win32lib.ew
include geometry.ew

integer Main_window, Workspace_window, Listview_window

procedure main_test ()
    integer main_gm, workspace_gm
    Main_window = create (Window, "geometry.ew test", 0,
        Default, Default, Default, Default, 0)
    Workspace_window  = create (Window, "Workspace window",
        Main_window, 0, 0, 0, 0,
        {WS_CHILD, WS_VISIBLE, WS_CLIPCHILDREN})
    setWindowBackColor (Workspace_window, Red)
    Listview_window = create (List, "", Workspace_window,
        0, 0, 0, 0, 0)
    workspace_gm = geometry (Workspace_window)
    manage (workspace_gm, Listview_window,
        {0.0, 0},
        {0.0, 0},
        {1.0, 0},
        {1.0, 0})
    main_gm = geometry (Main_window)
    manage (main_gm, Workspace_window,
        {0.0, 0},
        {0.0, 0},
        {1.0, 0},
        {1.0, 0})
end procedure

main_test ()
WinMain (Main_window, Normal)
---------------------------