1. wxEuphoria Notebook Demo
matt, the notebook demo can be reduced to this:
without warning
include wxEuphoria.e
include wxNotebook.e
include wxSizer.e
object void
constant
frame = create( wxFrame, {0, -1, "Notebook Demo", -1, -1, 600, 500 } ),
win = create( wxPanel, {frame,-1,-1,-1,-1,-1,wxSUNKEN_BORDER +
wxTAB_TRAVERSAL})
constant
sizer = create( wxBoxSizer, {wxHORIZONTAL}),
nb = create( wxNotebook, {win, -1, -1, -1, -1, -1,
wxCLIP_CHILDREN+wxNB_TOP}),
nbs = create( wxNotebookSizer, {nb}),
p1 = create( wxPanel, {nb}),
p2 = create( wxPanel, {nb})
procedure init()
-- add the pages to the notebook
add_page( nb, p1, "Tab 1", 0, 0 )
add_page( nb, p2, "Tab 2", 0, 0 )
-- put the notebook into a sizer so it will grow
add_window_to_sizer( sizer, nb, 1, wxGROW+wxTOP, 0 )
set_sizer( win, sizer )
end procedure
init()
wxMain( frame )
-=ck
"Programming in a state of Euphoria."
http://www.cklester.com/euphoria/
