package Tk
@ISA = qw()

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

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

sub BEGIN

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

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

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

sub GetTitle
my ($this) = @_;
return ${$this->{variable}};
return $this->{variable};

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

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

sub GetItemNumber
my ($this) = @_;
return $this->size();

sub ShowIndexItem
my ($this, $index) = @_;
return $this->see($index);

sub GetCurSelItem
my ($this) = @_;
return $this->get("active");

sub GetCurSel
my ($this) = @_;
return $selections[0] if(@selections > 0);
return -1;
return $i if($s eq $sel);
return -1;
return $ret;

sub GetSel
my ($this, $index) = @_;
return $this->get($index);
return $this->ListboxWidget->selectionIncludes($index);

sub FindText
my ($this, @Texts) = @_;
return $i if($s =~ /^$text$/i);
return -1;

sub SetCurSel
my ($this, @labels) = @_;
return $text;
return $this->activate($index);

sub SetSel
my ($this, $index) = @_;
return $this->SetCurSel($index);

sub DeleteItem
my ($this, $s, $e) = @_;
return $this->delete($s);
return $this->delete($s, $e);

sub DeleteAllItem
my ($this) = @_;
return $this->delete(0, 'end');

sub GetAllItem
my ($this) = @_;
return $this->get(0, 'end');

sub GetItem
my ($this, $s, $e) = @_;
return $this->get($s);
return $this->get($s, $e);

sub InsertItem
my ($this, $index, @lists) = @_;
return $this->insert($index, @lists);

sub AddItemIfNew
my ($this, @lists) = @_;

sub AddItem
my ($this, @lists) = @_;
return $this->insert("end", @lists);

sub ReadFileList
my ($this, $dir, $RegFileMask, $specify, 
		$IncludeDirPath, $DeleteAll, $DoSort) = @_;
return @list;