use strict; use Tkx; Tkx::package_require("Tktable"); my $mw = Tkx::widget->new('.'); $mw->g_wm_title("Name of the window"); my $frame = $mw->new_frame(); $frame->configure( -borderwidth => 4, -relief => 'groove', ); $frame->g_pack(); my $guess_tab = $frame->new_table( -rows => 7, -cols => 4, -cache => 1, -resizeborders => 'none', -titlecols => 1, -titlerows => 1, -variable => \%guess, ); $guess_tab->g_pack(); Tkx::MainLoop();