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;

package Tk::Varname::BrowseEntry;

use Tk;
use Tk::BrowseEntry;

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

sub Populate{
   # ...
}

1;

my $entry = $mw->Varname::Entry();

    -background  => ['SELF' => "background",  "Background", Tk::NORMAL_BG ],
    -foreground  => ['SELF' => "foreground",  "Foreground", Tk::BLACK ],