package Tk::MyAdjuster;
require Tk::Adjuster;
@ISA = qw(Tk::Adjuster);
Construct Tk::Widget 'MyAdjuster';

#公開したいサブルーチン
#@EXPORT = qw();

use strict;
#use base  qw(Tk::Widget);

sub Populate 
{
	my($cw, $args) = @_;

	$cw->SUPER::Populate($args);
return;
#	my $b = $cw->Label();
#	$b->pack(-expand => 1, -fill => 'both');
#	$cw->Advertise('MyLabel', => $b);
#	$cw->ConfigSpecs(DEFAULT => [$b]);
#	$cw->Delegates(DEFAULT => $b);
}

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

BEGIN {
}

sub new
{
	my $class = shift;
	my ($parent,@args) = @_;
#	print "new: parent=$parent\n";
	my $self = Tk::Adjuster->new(@args);

	return bless $self, ref($class) || $class;
}

sub DESTROY
{
	my $this = shift;
	$this->SUPER::DESTROY(@_);
}

1;