use warnings;
use strict;

use Tkx;

my $VERSION = "1.0.0";
my ($mw, $tw);
$mw = Tkx::widget->new(".");

$tw = $mw->new_tk__text( # FIXME: Barfs on OS X
    -width => 40, 
    -height => 10 );

$tw->g_grid;
$tw->g_focus;

$tw->insert("1.0", "If you can read this it worked.");

Tkx::MainLoop();
exit;