# $Id$
# $Name$

package Tk::Zinc;

#require Tk;
use Tk;
#use AutoLoader;
#use Exporter;

use base qw(Tk::Widget); 
Construct Tk::Widget 'Zinc';


use vars qw($VERSION);

# the following line initialize $VERSION to either the tag used for
# CVS checkout -r tag_x_y_z
#   (typically at package creation) or the file revision
# if no tag has been used typically $VERSION is initialized to
# the file revision number
my $TAG= q$Name$;                 # this line is automagically modified by CVS
my $REVISION = q$Revision$ ;  # this line is automagically modified by CVS
($VERSION) = $TAG =~ /^\D*([\d_]+)/ ;
if (defined $VERSION and $VERSION ne "_") {
    $VERSION =~ s/_/\./g;
}
else {
    $VERSION = $REVISION;
}

bootstrap Tk::Zinc $Tk::VERSION;

sub Tk_cmd { \&Tk::zinc }

sub CreateOptions
{
 return (shift->SUPER::CreateOptions,'-render')
}

Tk::Methods("add", "addtag", "anchorxy", "bbox", "becomes", "bind", "cget",
	    "chggroup", "clone", "configure", "contour", "coords", "currentpart",
	    "cursor", "dchars", "dtag", "find", "fit", "focus", "gdelete", "gettags",
	    "gname", "group", "hasanchors", "hasfields", "hastag", "index",
	    "insert", "itemcget", "itemconfigure", "lower", "monitor",
	    "numparts", "postscript", "raise", "remove", "rotate", "scale",
	    "select", "smooth", "tapply", "tdelete", "transform", "translate",
	    "treset", "trestore", "tsave", "type", "verticeat");

1;
__END__