view release on metacpan or  search on metacpan

FilterEntry.pm  view on Meta::CPAN

package Tk::FilterEntry;

use vars qw($VERSION);
$VERSION = '0.02';

use strict;
use Tk;
use Tk::Entry;

use base qw(Tk::Derived Tk::Entry);

Construct Tk::Widget 'FilterEntry';

sub ClassInit {
	my ($class, $mw) = @_;

	$class->SUPER::ClassInit($mw);

	$mw->bind($class, '<FocusIn>' => \&FocusIn);
	$mw->bind($class, '<FocusOut>' => \&FocusOut);