Select Code to Download

#!/usr/bin/env perl

...
$text_widget->insert('1.0', 'Test text to test a text widget.');

Tkx::MainLoop();

ken@ganymede: ~/tmp
$ pp -o pm_1182585_tkx_hello pm_1182585_tkx_hello.pl
...
$ pm_1182585_tkx_hello
ken@ganymede: ~/tmp
$