#!/usr/perl/bin/perl

use Tk;
use warnings;
use strict;

my ($search, $mw, $entry, $text, $io, $checks);
my $id = 0;

$mw = MainWindow -> new;
$mw -> title("AIM");
$mw -> bind('<Key-Escape>' => sub {  exit } );

#**************** text *************************
my $scrollbar = $mw->Scrollbar( );
$scrollbar->pack(-side => 'right', -fill => 'y');
$text = $mw -> Text(-font=>"{Verdana} 10 {bold}", -width => 50, -height => 25, 
, -yscrollcommand => ['set' => $scrollbar]) -> pack(-side=>'right');
$scrollbar->configure(-command => ['yview' => $text]);

#**************** entry *************************
$entry = $mw -> Entry(-font=>"{Verdana} 10 {bold}", -textvariable => \$search) -> pack(-side=>'top');
$entry -> bind('<Key-Return>' => \&search );
$entry -> focus;

#**************** button *************************
my $btn_clip = $mw -> Button(-text=>"Copy to Clipboard", 
                     -command=>sub {$text->clipboardAppend($text->get("1.0", 'end'));})
                     ->pack(-side=>'bottom', -expand=>'1', -anchor=>'nw');

#*********** checkbutton *************************
foreach (qw/address telephone keyword all/) {
        $checks = $mw -> Checkbutton( -text => $_) -> pack(-side=>'left', -anchor=>'n');
}
MainLoop;