our @ISA = qw(Tk::Derived Tk::Entry);

package Tk::ZipsterEntry;

#
#  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 'ZipsterEntry';

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');
}

#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ZipsterEntry;

my $var = 'Hallo';
my $mw = tkinit();
my $entry = $mw->ZipsterEntry(-textvariable => \$var, -varname => 'var')->pack();

print $entry->get_varname();

MainLoop;