my $number = 5;
my $row;
my $col;

  my $table = $menframe->Table(-rows => $number,
                          -columns => $number,
                          -scrollbars => 'anchor',
                          -fixedrows => $number,
                          -fixedcolumns => $number,
                          -takefocus => 1);

  my $widget = $table->Button(-text => 'Quit',-command => sub{exit 0});
  my $old = $table->put(1,1,$widget);
  $old = $table->put(1,2,"Text1");  # simple Label
  $widget = $table->get(1,1);

  $table->see($widget);

  $widget = $table->Button(-text => 'Quit',-command => sub{exit 0});
  $old = $table->put(2,1,$widget);
  $old = $table->put(2,2,"Text2");  # simple Label
  $widget = $table->get(2,1);

  $table->see($widget);


 my $cols = $table->totalColumns;
 my $rows = $table->totalRows;

  $table->see(1,1);