Select Code to Download

#!/usr/bin/env perl

...
$lamina_table->g_pack;

Tkx::MainLoop();

#!/usr/bin/env perl

...
my $lamina_table = $lamina_allow_frm->new_table( -rows => 9, -cols => 
+7, -variable => \%hash, -state => 'disabled')->g_pack;

Tkx::MainLoop();