#!/usr/bin/env perl

use strict;
use warnings;

use Tkx;

my $mw = Tkx::widget->new(".");

$mw->new_button(
   -text => "Hello, world",
   -command => sub { $mw->g_destroy; },
)->g_pack;

my $text_widget = $mw->new_tk__text(-width => 40, -height => 10);
$text_widget->g_pack;
$text_widget->insert('1.0', 'Test text to test a text widget.');

Tkx::MainLoop();

##</code><code>##

ken@ganymede: ~/tmp
$ pp -o pm_1182585_tkx_hello pm_1182585_tkx_hello.pl
ken@ganymede: ~/tmp
$ ls -al pm_*
-rwxr-xr-x 1 ken staff 3261537 Feb 23 19:44 pm_1182585_tkx_hello
-rwxr-xr-x 1 ken staff     360 Feb 23 17:27 pm_1182585_tkx_hello.pl
ken@ganymede: ~/tmp
$ pm_1182585_tkx_hello
ken@ganymede: ~/tmp
$