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

use Tk::ZipsterEntry;

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