view release on metacpan or  search on metacpan

lib/GuiBuilder.pm  view on Meta::CPAN

    my ($frame, $row, $column) = &get_location_details($option_param_array[$LOC_IDX]);
    if($max_frame < $frame) {
      $max_frame = $frame;
    }
  }
  if($DBG_ON) { print("max_frame = $max_frame.\n"); }
  return $max_frame;
}

#------------------------------------------------------------------------------
sub update_gui_file {
  my ($title) = @_;
  my $max_frames;
  my %row_start_for_frame;
  my %num_row_in_frame;
  my $tmp_file_name = "tmp.gui";

  open(F_TMP, ">$tmp_file_name") or die("$!");
print F_TMP <<EOF
use strict;
use Tk;