OpenEuphoria

2. Re: wxEuphoria Open Window

• Posted by cklester <cklester at yahoo.com> Dec 09, 2005
• 558 views

Andy wrote:
> 
> When you want to open a window using wxEuphoria how would you code it? How
> will
> the code procedure go, I need some help

There's tons of example code with the distribution, including one that
simply opens a window. :)

-=ck
"Programming in a state of Euphoria."
http://www.cklester.com/euphoria/

4. Re: wxEuphoria Open Window

• Posted by Andy <videogamefreak101 at hotmail.com> Dec 10, 2005
• 592 views

What I mean is that when I click on a menuitem when the program is running, how
would I code to open a window in wxEuphoria

6. Re: wxEuphoria Open Window

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

Andy wrote:
> 
> What I mean is that when I click on a menuitem when the program is running,
> how
> would I code to open a window in wxEuphoria

> I have another question how do you change the background color of a window in
> wxEuphoria

Here's a quick demo that does both:

without warning
include wxEuphoria.e
include wxMenu.e
include wxGraphics.e

constant 
main = create( wxFrame, {0, -1, "Demo for Alex"}),
win = create( wxPanel, main ),
menubar = create( wxMenuBar, main ),
menu = create( wxMenu, {menubar, "Menu"}),
open_window =create( wxMenuItem, {menu, wxID_OPEN, "Open a window"}),

other_window = create( wxFrame, {main, -1, "Child window"}),
red = create( wxColour, {"Red"}),
blue = create( wxColour, {"Blue"})

set_back_color( win, blue )
set_back_color( other_window, red )

procedure on_open( atom this, atom event_type, atom id, atom event )
	show_window( other_window, 1 )
end procedure
set_event_handler( {main, menu}, wxID_OPEN, wxEVT_COMMAND_MENU_SELECTED,
routine_id("on_open"))

wxMain( main )