Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / Compound.pm

package Tk::Compound;
require Tk;
import  Tk qw($XS_VERSION);
require Tk::Image;

use vars qw($VERSION);
$VERSION = '3.004'; # $Id: //depot/Tk8/Compound/Compound.pm#4 $

use base  qw(Tk::Image);

Construct Tk::Image 'Compound';

bootstrap Tk::Compound;

sub Tk_image { 'compound' }   

Tk::Methods('add');                      

sub new
{
my $package = shift;
my $widget  = shift;                    
my $leaf = $package->Tk_image;
$package->InitClass($widget);
my $obj = $widget->image(create => $leaf,@_,-window => $widget);
return bless($obj,$package);
}
          
BEGIN 
{
 foreach my $type (qw(line text image bitmap space))
  {
   my $meth = ucfirst($type);              
   no strict qw 'refs';
   *{$meth} = sub { shift->add($type,@_) };
  }
}

1;
__END__