view release on metacpan or  search on metacpan

lib/GuiBuilder.pm  view on Meta::CPAN

  # Copying content from tmp file to gui_file.
  open(F_GI, ">$gui_file") or die("$!");
  open(F_TMP, "<$tmp_file_name") or die("$!");
  while($line = <F_TMP>) {
    print F_GI $line;
  }
  close(F_TMP);

  # Adding new code at the end in gui file.
  print F_GI "  # Adding grids for different frames for different groups.\n";
  print F_GI "  \$pane -> grid(-row=>1,-column=>1,-columnspan=>1,-sticky=>'w');\n";
  print F_GI "  \$sframe -> grid(-row=>1,-column=>1,-columnspan=>1,-sticky=>'w');\n";
  my $frame_name;
  for(my $idx = 1; $idx <= $max_frames; $idx++) {
    $frame_name = "\$frame_"."$idx";
    my $row_var_name = "\$row_num_"."$idx";
    print F_GI "  my $row_var_name = $row_start_for_frame{$idx};\n";
    print F_GI "  $frame_name -> grid(-row=>$row_var_name,-column=>1,-columnspan=>1,-sticky=>'w');\n";
  }
  print F_GI "  my \$developer = $frame_name->Label(-text => \"Developed By: Sandeep Vaniya, eInfochips Ltd.\", -border=>2, -relief=>'ridge');\n";
  print F_GI "\n";

  print F_GI "  # Adding grids for different objects.\n";
  for(my $grid_cnt = 0; $grid_cnt < @grid_array; $grid_cnt++) {
    my $grid_str = $grid_array[$grid_cnt];
    my ($field_name, $frame, $row, $col) = &unpack_grid_data($grid_str);
    print F_GI "  $field_name->grid(-row=>$row,-column=>$col,-padx=>$pad_x_all,-pady=>$pad_y_all,-sticky=>'w');\n";
  }

lib/GuiBuilder.pm  view on Meta::CPAN

  # logic for 'Generate Gui' Button.
  my $generate_gui_button = $frame_4->Button(-text => ' Generate Gui ', -border=>5, -relief=>'raised', -command => sub{generate_gui_action();}); 

  # logic for 'Quit' Button.
  my $quit_button = $frame_4->Button(-text => ' Quit ', -border=>5, -relief=>'raised', -command => sub{quit_action();}); 

  my $developer = $frame_4->Label(-text => "Developed By: Sandeep Vaniya, eInfochips Ltd.", -border=>2, -relief=>'ridge');

  # Adding grids for different frames for different groups.
  $pane -> grid(-row=>1,-column=>1,-columnspan=>1,-sticky=>'w');
  $sframe -> grid(-row=>1,-column=>1,-columnspan=>1,-sticky=>'w');
  my $row_num_1 = 1;
  $frame_1 -> grid(-row=>$row_num_1,-column=>1,-columnspan=>1,-sticky=>'w');
  my $row_num_2 = 3;
  $frame_2 -> grid(-row=>$row_num_2,-column=>1,-columnspan=>1,-sticky=>'w');
  my $row_num_3 = 8;
  $frame_3 -> grid(-row=>$row_num_3,-column=>1,-columnspan=>1,-sticky=>'w');
  my $row_num_4 = 9;
  $frame_4 -> grid(-row=>$row_num_4,-column=>1,-columnspan=>1,-sticky=>'w');

  # Adding grids for different objects.
  $select_type_of_field_label->grid(-row=>1,-column=>1,-padx=>10,-pady=>10,-sticky=>'w');
  $text_radio_button->grid(-row=>2,-column=>1,-padx=>10,-pady=>10,-sticky=>'w');
  $label_radio_button->grid(-row=>2,-column=>2,-padx=>10,-pady=>10,-sticky=>'w');
  $listbox_radio_button->grid(-row=>2,-column=>3,-padx=>10,-pady=>10,-sticky=>'w');
  $button_radio_button->grid(-row=>2,-column=>4,-padx=>10,-pady=>10,-sticky=>'w');
  $checkbutton_radio_button->grid(-row=>2,-column=>5,-padx=>10,-pady=>10,-sticky=>'w');
  $radiobutton_radio_button->grid(-row=>2,-column=>6,-padx=>10,-pady=>10,-sticky=>'w');
  $enter_field_details_label->grid(-row=>1,-column=>1,-padx=>10,-pady=>10,-sticky=>'w');