use base qw/Tk::Derived Tk::TextUndo/;

Construct Tk::Widget 'SearchEntry';

sub ClassInit	{
	my($class, $mw) = @_;
	
	$class->SUPER::ClassInit($mw);
	$mw->bind($class, '<Control-a>', 'selectAll');
	$mw->bind($class, '<Key-Tab>', sub { $_[0]->focusNext; Tk->break; });
}

sub Populate {
	my($self, $args) = @_;
	
	$self->menu(undef);
}