package MyText
@ISA = qw()

sub Populate
	my($cw, $args) = 
return;

sub ClassInit
my ($class, $mw) = @_;
return $class;

sub new
my $class = shift;
my ($parent,@args) = @_;
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub Initialize
my ($this) = @_;

sub KeyIn
my ($this, $key, $Key, $ASCII) = @_;

sub IsModified
return shift->{'IsModified'};

sub SetModified
sub SetModified { my ($this,$f)=
return shift->{'IsModified'} = $f;

sub SetTitle
my ($this, $title) = @_;
return ${$this->{textvariable}} = $title;

sub GetTitle
my ($this) = @_;
return ${$this->{textvariable}} = $this->get('1.0', 'end');

sub SetText
my ($this, $title) = @_;
return $this->SetTitle($title);

sub GetText
my ($this) = @_;
return $this->GetTitle();

sub ClearText
my ($this, $title) = @_;

sub AddText
my ($this, $text) = @_;
return $text;

sub GetFirstLines
my ($this, $start, $end) = @_;
return $this->get("0.0 + $start lines linestart", "0.0 + $end lines lineend");

sub GetLastLines
my ($this, $start, $end) = @_;
return $this->get("end - $start lines linestart", "end - $end lines lineend");

sub SetFont
my ($this, $FontName, $FontSize, $FontStyle) = @_;
return $this->configure(-font, $font);

sub UpdateFont
my ($this, $FontName, $FontSize, $FontStyle) = @_;

sub Update
return 1;

sub ReadFile
my ($this, $path, $charcode) = @_;
return undef;
return $path;

sub ClipboardCopy
my ($this) = @_;

sub ClipboardCopyAndCut
my ($this) = @_;

sub ClipboardPaste
my ($this) = @_;