#!/usr/bin/perl -w

use strict;
use Tk;
my $mw = MainWindow->new;

$mw->Button(-text => "Paste", -command => \&DoPaste)->pack();
my $t = $mw->Text(-width => 30, -height => 5)->pack();
$t->focus;

$mw->bind('<Control-t>' => \&Print1);
$mw->bind('Tk::Text', '<Control-t>' => \&Print2);
$t->bind('<Control-t>' => \&Print3);

sub DoPaste
{
    $mw->eventGenerate('<Control-t>');
}

sub Print1
{
    my $tw = shift;
    print "########\n";
    print $tw, "\t", ref($tw), "\n";
    print "1\n";
    print "###########\n";
}

sub Print2
{
    my $tw = shift;
    print "########\n";
    print $tw, "\t", ref($tw), "\n";
    print "222222222\n";
    print "###########\n";
}

sub Print3
{
    my $tw = shift;
    print "########\n";
    print $tw, "\t", ref($tw), "\n";
    print "33333 wheeee!\n";
    print "###########\n";
}


Tk->MainLoop;