GuiBuilder
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;
lib/GuiBuilder.pm view on Meta::CPAN
if($grp__Field_Select_Grp_1_radio_button_var =~ /Listbox/) {
$field_str .= "#$list_element_text_text_var";
}
if($grp__Field_Select_Grp_1_radio_button_var =~ /Radiobutton/) {
$field_str .= "#$group_name_for_radio_button_text_text_var";
}
return $field_str;
} # get_field_text
#------------------------------------------------------------------------------
sub update_list {
my ($list_box) = @_;
my $list_size = $list_box -> size();
for(my $i = 0; $i < $list_size; $i++) {
$list_box -> delete(0);
}
$list_box -> insert('end', @gui_options_array);
$list_box -> activate(0);
} # update_list
( run in 0.478 second using v1.01-cache-2.11-cpan-4d4bc49f3ae )