use strict;
use warnings;

use Tk;

# Create new text window...
my $top = MainWindow->new();

# Put in the files text box second...
my $txt = $top->Text->pack(-expand=>1, -fill=>'both');

foreach my $tag ($txt->bindtags) {
	print STDERR "$tag has these bindings:\n";
	print STDERR $txt->bind($tag), "\n";
}

MainLoop();