package Tk::MyMenubutton;
require Tk::Menubutton;
@ISA = qw(Tk::Menubutton);
Construct Tk::Widget 'MyMenubutton';

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

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

sub Populate 
{
	my($cw, $args) = @_;
	$cw->SUPER::Populate($args);
}

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

sub new
{
	my ($class, @args) = @_;
	my $self = Tk::Menubutton->new(@args);
	return bless $self, ref($class) || $class;
}

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

1;