OpenEuphoria

Re: Ctrl+TAB in wxEuphoria Notebook Demo

• Posted by Matt Lewis <matthewwalkerlewis at gmail.com> Dec 01, 2005
• 512 views

cklester wrote:
> 
> cklester wrote:
> > 
> > Matt, the demo freezes when I try to Ctrl+Tab between tabs. Does it work
> > fine
> > for you?
> 
> I've noticed it only crashes when I've got an empty tab. That is, there are
> no
> controls on the tab. Maybe it's looking for a control to select...

I don't get a crash, but it doesn't change tabs when the page is empty.  I
suspect that there's nothing there to give focus or something.  Here's the
code I used to test:

-- Created using wxIDE
include wxEuphoria.e
include wxNotebook.e
include wxButton.e

global constant
ck = create( wxFrame, {0, -1, "new_wxFrame_3", 0, 0, 497, 383 }),
new_wxPanel_1 = create( wxPanel, {ck, -1, 0, 0, 496, 382 }),
new_wxNotebook_1 = create( wxNotebook, {new_wxPanel_1, -1, 1, 15, 476, 317 }),
new_wxPanel_2 = create( wxPanel, {new_wxNotebook_1, -1, 0, 0, 476, 317 }),
new_wxPanel_3 = create( wxPanel, {new_wxNotebook_1, -1, 0, 0, 476, 317 }),
new_wxButton_1 = create( wxButton, {new_wxPanel_2, -1, "new_wxButton_1", 41, 40
})

include wxSizer.e  -- for wxNotebookSizer


procedure ck_setup()
	object void

	-- setup notebook new_wxNotebook_1:
	void = create( wxNotebookSizer, new_wxNotebook_1 )
	add_page( new_wxNotebook_1, new_wxPanel_2, "new_wxPanel_2", 1, -1 )
	add_page( new_wxNotebook_1, new_wxPanel_3, "new_wxPanel_3", 0, -1 )

end procedure
ck_setup()


wxMain( ck )