Adding to a table is pretty straight forward. Add the table to your code:

$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',
              );
[download]

...then add it to your geometry manager, pack:

$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/);
[download]

I added this sub to insert items into the table:

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

Then to test it, I put a call in your OnNewPath sub, e.g.

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

this basically adds an item down the diagonal.

--
hiseldl