view release on metacpan or  search on metacpan

FmtEntry.pm  view on Meta::CPAN

#
# Formatted Entry widget
#
#-----------------------------------------------------------------------------

package Tk::FmtEntry;
use vars qw/$VERSION/;
$VERSION = '0.1';

use Tk::widgets qw/Entry/;
use base qw/Tk::Derived Tk::Entry/;
use strict;
use warnings;
use Carp;

Construct Tk::Widget 'FmtEntry';

sub ClassInit {
    my ($class, $mw) = @_;
    $class->SUPER::ClassInit($mw);
}