#!/usr/bin/perl -w


use strict;
use Tk;
use tk::table;

my $mw = MainWindow->new();
$mw->configure(-title => 'EnterMode - Version 4.0.1');
$mw->resizable( 0, 0 );

create_table_terms();
MainLoop();
my $nge;

sub create_table_terms
{
my @terms = ("Quarter","Dime","Nickel");

    my $ngrams=@terms;

    my $ngramstable = $mw->Table(
				    -columns => 2,
				    -rows => $ngrams,
				    -scrollbars => 'e',
				    -relief => 'raised',
				    );
		$ngramstable->pack();		    

    
    my $cont=0;
    
  foreach  my $ngram (@terms){
    
	my $exportngram;
	my $cbd= $ngramstable->Checkbutton(
					   -variable=>\$exportngram,
					   -indicatoron=>'1',
					   -state=>'normal',
					   -width => 1,
					   -anchor=>'nw',
					   -background => 'white',
					   -relief => 'groove', -padx=>5);

	$nge = $ngramstable->Entry( -textvariable=>\$ngram,
				       -width => 23,
				       -background => 'white',
				       -relief => 'groove'
				       );
  $nge -> bind("<Return>", [ \&start_search_from_extracted_terms, "entry", "Return" ] );
	
	$ngramstable->put( $cont, 0, $cbd);
	$ngramstable->put( $cont, 1, $nge);
	++$cont;
    }
}

sub start_search_from_extracted_terms
{
my $word=$nge -> get();
print "$word";
}