package Tk::Varname;

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

use strict;
use warnings;

sub Entry{
    

require Tk;
require Tk::Entry;

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

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

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


Construct Tk::Widget 'Varname';

#! /usr/bin/perl
BEGIN{
    push @INC, ( 'lib');
    my @filenameparts = split( /\\/, __FILE__ );
    my $destination_dir;
    $destination_dir .= "$filenameparts[$_]/" for ( 0 .. $#filenameparts - 1 );
    chop $destination_dir;
    chdir $destination_dir;
}

use Tk;
use Tk::Varname;

my $hauptfenster = new MainWindow( -title => "Plavedo");

my $entry = $hauptfenster->Varname::Entry(-textvariable => \$irgendwas, -varname => "MIAU")->pack();
my $button_neu=$hauptfenster->Button(-text => "Neu", -command => [\&neuer_eintrag])->pack();
MainLoop();
sub neuer_eintrag{
    my $info = $entry->cget(-varname);
    print $info;
    
}