#!/usr/bin/env pike
/*
   wxPike - (c) 2005 Julio César Gázquez
   
   hworld.pike
   Hello world sample by Julio Gazquez
   Based on hworld.cpp by Robert Roebling

*/

enum
{
    ID_Quit = 1,
    ID_About,
};

class MyApp
{
	inherit wx.App;

	int OnInit()
	{
		MyFrame frame = MyFrame( "Hello World", wx.Point(50,50), wx.Size(450,340) );

		frame->Connect( ID_Quit, wx.EVT_COMMAND_MENU_SELECTED,
		frame->OnQuit, frame);
		frame->Connect( ID_About, wx.EVT_COMMAND_MENU_SELECTED,
		frame->OnAbout, frame);

		frame->Show(wx.TRUE);
		SetTopWindow(frame);
	
		return 1; 
	}
};

class MyFrame
{
	inherit wx.Frame;

	void create(string title, wx.Point pos, wx.Size size)
	{
		Frame::create(0, -1, title, pos, size);

		// create menubar
		wx.MenuBar menuBar = wx.MenuBar();
		// create menu
 		wx.Menu menuFile = wx.Menu();
		// append menu entries
		menuFile->Append( ID_About, "&About...");
		menuFile->AppendSeparator();
		menuFile->Append( ID_Quit, "E&xit");
		// append menu to menubar
 		menuBar->Append( menuFile, "&File" );
		// set frame menubar
		SetMenuBar( menuBar ); 

		// create frame statusbar
		CreateStatusBar();
		// set statusbar text
		SetStatusText( "Welcome to wxWindows!");
		
	}

	void OnQuit(wx.Event event)
	{
		Close(wx.TRUE);
	}

	void OnAbout(wx.Event event)
	{
		mixed x=MessageBox("This is a wxPike Hello world sample",
    		    "About Hello World", wx.OK | wx.ICON_INFORMATION, this_object(),0,0); 
	}

};

int main()
{
	return implement_app(MyApp());
}