view release on metacpan or  search on metacpan

mcprimers_gui.bat  view on Meta::CPAN

###################################################################

sub create_text {
        
    $text_frame = $mw->Frame->pack(-pady=>5, -side=>'top', -anchor=>'nw');
    $text_message = $text_frame->Message(
        -width => 600,
        -text  => "First load a vector file and a DNA nucleotide sequence in FASTA format",
        -font  => 'Helvetica 12 bold');
    $text_message->pack(-anchor=>'nw', -padx=>20);
}

###################################################################

sub create_right {

    $right_frame = $mw->Frame->pack(-pady=>10, -side=>'right', -anchor=>'nw');
    
    
    $fname_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');
    $fname_message = $fname_frame->Message(
        -width => 200,
        -text  => "FASTA: undefined",
        -font  => 'Helvetica 10 bold')->pack(-anchor=>'nw');    
                                               

    $start_scale_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');
    $start_scale_frame->Message(
        -text  => "Search NTs past start codon",
        -font  => 'Helvetica 10 bold',
        -width => 200)->pack(-anchor=>'nw');  
    $start_scale_frame->Scale(
        -resolution   => 1,
        -from         => 60,
        -to           => 0,
        -variable     => \$searchpaststart,
        -sliderlength => 10,
        -length       => 180,
        -orient       => 'horizontal',
        -showvalue    => 1,
        -state        => 'active',
        -font         => 'Helvetica 10 bold',)->pack(-padx => 5, -anchor=>'nw');                                         
    
    
    $stop_scale_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');                                          
    $stop_scale_frame->Message(
        -text  => "Search NTs before stop codon",
        -font  => 'Helvetica 10 bold',
        -width => 200)->pack(-anchor=>'nw');  
    $stop_scale_frame->Scale(
        -resolution   => 1,
        -from         => 60,
        -to           => 0,
        -variable     => \$searchbeforestop,
        -sliderlength => 10,
        -length       => 180,
        -orient       => 'horizontal',
        -showvalue    => 1,
        -state        => 'active',
        -font         => 'Helvetica 10 bold',)->pack(-padx => 5, -anchor=>'nw');

    
    $maxchanges_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');                                          
    $maxchanges_frame->Message(
        -text  => "Maximum changes per primer",
        -font  => 'Helvetica 10 bold',
        -width => 200,
        )->pack(-anchor=>'nw');  
    $maxchanges_frame->Scale(
        -resolution   => 1,
        -from         => 3,
        -to           => 0,
        -variable     => \$maxchanges,
        -sliderlength => 10,
        -length       => 180,
        -orient       => 'horizontal',
        -showvalue    => 1,
        -state        => 'active',
        -font         => 'Helvetica 10 bold',)->pack(-padx => 5, -anchor=>'nw');


    $para_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');
    $para_frame->Message(
        -text  => "GC clamping",
        -font  => 'Helvetica 10 bold',
        -width => 160)->pack(-anchor=>'nw');
    $para_frame->Radiobutton (
        -text     => 'GC clamp 3\' and 5\'',
        -variable => \$clamp,
        -value    => 'both',
        -font => 'SmallItem')->pack(-padx => 5, -anchor=>'nw');
    $para_frame->Radiobutton (
        -text     => 'GC clamp 3\' only  ',
        -variable => \$clamp,
        -value    => '3prime',
        -font => 'SmallItem')->pack(-padx => 5, -anchor=>'nw');
 
 
    $p3_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');        
    $p3_frame->Message(
        -text  => "Primer3 file",
        -font  => 'Helvetica 10 bold',
        -width => 200)->pack(-anchor=>'nw');
    $p3_check = $p3_frame->Checkbutton (
        -text     => 'Unspecified',
        -variable => \$p3_used,
        -state    => 'disabled',
        -font => 'SmallItem')->pack(-padx => 5, -anchor=>'nw');

                    
    $vec_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');   
    $vec_message = $vec_frame->Message(
        -width => 200,
        -text  => "\n",
        -font  => 'Helvetica 10 bold')->pack(-anchor=>'nw'); 
        
}

###################################################################

sub create_buttons {
    
    $bottom_frame = $mw->Frame->pack(-pady=>15, 
                                     -padx=>15,
                                     -side=>'bottom',

mcprimers_gui.pl  view on Meta::CPAN

###################################################################

sub create_text {
        
    $text_frame = $mw->Frame->pack(-pady=>5, -side=>'top', -anchor=>'nw');
    $text_message = $text_frame->Message(
        -width => 600,
        -text  => "First load a vector file and a DNA nucleotide sequence in FASTA format",
        -font  => 'Helvetica 12 bold');
    $text_message->pack(-anchor=>'nw', -padx=>20);
}

###################################################################

sub create_right {

    $right_frame = $mw->Frame->pack(-pady=>10, -side=>'right', -anchor=>'nw');
    
    
    $fname_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');
    $fname_message = $fname_frame->Message(
        -width => 200,
        -text  => "FASTA: undefined",
        -font  => 'Helvetica 10 bold')->pack(-anchor=>'nw');    
                                               

    $start_scale_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');
    $start_scale_frame->Message(
        -text  => "Search NTs past start codon",
        -font  => 'Helvetica 10 bold',
        -width => 200)->pack(-anchor=>'nw');  
    $start_scale_frame->Scale(
        -resolution   => 1,
        -from         => 60,
        -to           => 0,
        -variable     => \$searchpaststart,
        -sliderlength => 10,
        -length       => 180,
        -orient       => 'horizontal',
        -showvalue    => 1,
        -state        => 'active',
        -font         => 'Helvetica 10 bold',)->pack(-padx => 5, -anchor=>'nw');                                         
    
    
    $stop_scale_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');                                          
    $stop_scale_frame->Message(
        -text  => "Search NTs before stop codon",
        -font  => 'Helvetica 10 bold',
        -width => 200)->pack(-anchor=>'nw');  
    $stop_scale_frame->Scale(
        -resolution   => 1,
        -from         => 60,
        -to           => 0,
        -variable     => \$searchbeforestop,
        -sliderlength => 10,
        -length       => 180,
        -orient       => 'horizontal',
        -showvalue    => 1,
        -state        => 'active',
        -font         => 'Helvetica 10 bold',)->pack(-padx => 5, -anchor=>'nw');

    
    $maxchanges_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');                                          
    $maxchanges_frame->Message(
        -text  => "Maximum changes per primer",
        -font  => 'Helvetica 10 bold',
        -width => 200,
        )->pack(-anchor=>'nw');  
    $maxchanges_frame->Scale(
        -resolution   => 1,
        -from         => 3,
        -to           => 0,
        -variable     => \$maxchanges,
        -sliderlength => 10,
        -length       => 180,
        -orient       => 'horizontal',
        -showvalue    => 1,
        -state        => 'active',
        -font         => 'Helvetica 10 bold',)->pack(-padx => 5, -anchor=>'nw');


    $para_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');
    $para_frame->Message(
        -text  => "GC clamping",
        -font  => 'Helvetica 10 bold',
        -width => 160)->pack(-anchor=>'nw');
    $para_frame->Radiobutton (
        -text     => 'GC clamp 3\' and 5\'',
        -variable => \$clamp,
        -value    => 'both',
        -font => 'SmallItem')->pack(-padx => 5, -anchor=>'nw');
    $para_frame->Radiobutton (
        -text     => 'GC clamp 3\' only  ',
        -variable => \$clamp,
        -value    => '3prime',
        -font => 'SmallItem')->pack(-padx => 5, -anchor=>'nw');
 
 
    $p3_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');        
    $p3_frame->Message(
        -text  => "Primer3 file",
        -font  => 'Helvetica 10 bold',
        -width => 200)->pack(-anchor=>'nw');
    $p3_check = $p3_frame->Checkbutton (
        -text     => 'Unspecified',
        -variable => \$p3_used,
        -state    => 'disabled',
        -font => 'SmallItem')->pack(-padx => 5, -anchor=>'nw');

                    
    $vec_frame = $right_frame->Frame->pack(-padx=>5, -pady=>2, -anchor=>'nw');   
    $vec_message = $vec_frame->Message(
        -width => 200,
        -text  => "\n",
        -font  => 'Helvetica 10 bold')->pack(-anchor=>'nw'); 
        
}

###################################################################

sub create_buttons {
    
    $bottom_frame = $mw->Frame->pack(-pady=>15, 
                                     -padx=>15,
                                     -side=>'bottom',