view release on metacpan or  search on metacpan

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

	$this->{textctrl}->Redo();
}

# This sub is called when the user clicks on menu Edit item Cut
# Causes text control to redo the last edit ie Undo the undo. :-)

sub _menu_cut {
	my ($this) = @_;
	$this->{textctrl}->Cut();
	print "Cut\n";
	#TODO: Put a message in the status "Cut text placed in clipboard"?
}

# This sub is called when the user clicks on menu Edit item Copy

sub _menu_copy{
	my ($this) = @_;
	$this->{textctrl}->Copy();
	print "Copy\n";
	#TODO: Put a message in the status "Copied text placed in clipboard"?
}

# This sub is called when the user clicks on menu Edit item Paste

sub _menu_paste{
	my ($this) = @_;
	$this->{textctrl}->Paste();
	print "Paste\n";
	#TODO: Put a message in the status "Copied text placed in clipboard"?
}

# This sub is called when the user clicks on menu Help item About
# Displays information about the application in a modal dialog

sub _menu_about{
	my ($this) = @_;

	my $dialogtext = "Copyright 2005 by \n" . 
				"\tBen Marsh <blm\@woodheap.org> \n" .