Select Code to Download

$tk{right_frame}=$tk{mw}->Frame; # This frame is where I would like to
+ have a table.

$tk{table}=$tk{right_frame}->Table(-rows => 4,
                          -columns => 4,
                          -scrollbars => 'se',
              );

$tk{right_frame}->pack(qw/-side right -fill both -expand 1/);
$tk{entry_box_lable}->pack(qw/-side left -fill both/);
$tk{entry_box}->pack(qw/-side top -fill both -expand 1/);

$tk{table}->pack(qw/-side top -fill both -expand 1/);

sub AddItemToTable
{
    my ($row, $col, $item) = @_;
    $tk{table}->put($row, $col, $item);
}

$tk{dir_tree}->chdir( $dr{PATH} );
&AddItemToTable($tk{table}->{row}++,$tk{table}->{col}++,$dr{PATH});