view release on metacpan or  search on metacpan

lib/App/GUI/Notepad/Frame.pm  view on Meta::CPAN

#			- the textctrl which is where the text that is being edited is 
#			is stored
#			- the status bar where non modal messages can be sent to the 
#			user 
# It associates actions to the various menu options, sets the application 
# icon and sets the font for displaying the file to a fixed width font.

sub new {
	my ($class) = shift;
	my ($title, $position, $size) = @_;
	my ($this) = $class->SUPER::new( undef, -1, $title, $position, $size );
	$this->SetIcon( Wx::GetWxPerlIcon() );

	$this->{menubar} = App::GUI::Notepad::MenuBar->new();
	$this->SetMenuBar( $this->{menubar}->menubar() );

	# Associate the various menu options with subroutines that are the 
	# actions to be carried out when the user clicks on the menu item.
	#
    # I wanted to do this in the MenuBar object but this function 
	# EVT_MENU need a reference to the frame and so they are called