#!/usr/bin/perl --
use strict;
use warnings;

BEGIN{ $Tkx::TRACE=64; }
use Tkx;
Tkx: package require Tk

my $main = Tkx::widget->new(".");
my $message_box_toplevel = $main->new___toplevel();
# message box has two frames (top and bottom)
my $f_message_top =
  $message_box_toplevel->new_frame()->g_pack(
                                                                                -side   => 'top',
                                                                          -expand => 1,
                                                                    -fill   => 'both',
  );

my $message_box = $f_message_top->new_tk__text( -wrap => 'none', -width => 50, -height => 20 );
Tkx::MainLoop();
__END__
Tkx-1-0.0s---9: winfo children .
Tkx-2-0.0s---9: ::toplevel .t
Tkx-3-0.0s---11: winfo children .t
Tkx-4-0.0s---11: frame .t.f
Tkx-5-0.0s---11: pack .t.f -side top -expand 1 -fill both
Can't call method "new_tk__text" without a package or object reference at - line 18.