package Tk::Varname::Entry;

#
#  Copyright (c) 2005 Renee Baecker (module@renee-baecker.de)
#

use strict;
use warnings;

require Tk;
require Tk::Entry;

our @ISA = qw(Tk::Derived Tk::Entry);
our $VERSION = '0.01';

Construct Tk::Widget 'Varname::Entry';

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

   $cw->SUPER::Populate($args);
   $cw->ConfigSpecs(
          -varname => ['PASSIVE', 'varname', 'Varname', ''   ],
                );
   return $cw;
}

sub get_varname{
   my ($self) = @_;
   return $self->cget('-varname');
}

1;