package Tk
@ISA = qw()

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

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

sub ClearAll

sub BEGIN

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

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

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

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

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

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

sub GetCurSel
my ($this) = @_;
return $this->index("active");

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

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

sub SetSel
my ($this, $set, $s, $e) = @_;
return $this->selectionSet($s);
return $this->selectionClear($s);
return $this->selectionSet($s, $e);
return $this->selectionClear($s, $e);

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 GetItem
my ($this, $s, $e) = @_;
return $this->get($s);
return $this->get($s, $e);

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

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

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