Why are you using Tkx? Did you know that Tk is available via ppm?

wakawaka  [ddg://site:perlmonks.org Tkx without a package or object reference] site:perlmonks.org Tkx without a package or object reference ...-> Re^3: Tk vs Tkx for -validatecommand, Re^5: Tk vs Tkx for -validatecommand

->g_pack() doesn't return an object

#!/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,
                                                                    -f
+ill   => 'both',
  );

my $message_box = $f_message_top->new_tk__text( -wrap => 'none', -widt
+h => 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.
[download]

*tips* Re: use Tkx & busy/unbusy ( $mw->g_tk_busy ), Re: a perl tkx GUI, Re^5: a perl tkx GUI, Limitations with Tkx configure options?, Re: Tkx Optionmenu,