my $mw = new MainWindow(-background=>'Gray');
 $mw->geometry("1400x800");
$wb[0] = $mw->Radiobutton(
    -variable => \$f,
    -command  => \&toclink,
    -text     => 'TOC LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value    => 1)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>
+0.0,-rely =>0.20);


$wb[1] = $mw->Radiobutton(
    -variable => \$chap_c,
    -command  => \&chapterlink,
    -text     => 'CHAPTER LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value    => 1)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>
+0.015,-rely =>0.25);

$wb[2] = $mw->Radiobutton(
    -variable => \$file,
    -command  => sub {$flag =3;},
    -text     => 'FIGURE LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value    => 'FIGURE LINK')->pack(
    -side     => 'top',
    -anchor   => 'w',)->place(-relx =>0.007,
      -rely =>0.30);
}
sub toclink()
{
$chk2 =  $frm_name->Checkbutton(-text => 'Prelims      ',
                                     -variable => \$a2,
                                     -highlightcolor =>'yellow',
                                     -borderwidth =>5,
                                     -font => 'Verdana 10 bold',
                                     -onvalue => '1',
                                      -command  => \&no1,
                                     #-foreground =>'red',
                                     -offvalue => '0',
                                     -background => 'DarkGray',
                                     -state =>'disable')->pack()->plac
+e(-relx =>0.07,
      -rely =>0.15);


 $chk3=  $frm_name->Checkbutton(-text => 'Part       ',
                                     -variable => \$a3,
                                     -highlightcolor =>'yellow',
                                     -borderwidth =>5,
                                     -font => 'Verdana 10 bold',
                                      -command  => \&no2,
                                     #-foreground =>'red',
                                     -onvalue => '1',
                                     -background => 'DarkGray',
                                     -offvalue => '0',
                                     -state =>'disable')->pack()->plac
+e(-relx =>0.28,
      -rely =>0.15);

$chk4=  $frm_name->Checkbutton(-text => 'Chapter    ',
                                     -variable => \$a4,
                                     -highlightcolor =>'yellow',
                                     -background => 'DarkGray',
                                     -borderwidth =>5,
                                     -font => 'Verdana 10 bold',
                                      -command  =>\&no3,

                                     #-foreground =>'red',
                                     -onvalue => '1',
                                     -offvalue => '0',
                                     -state =>'disable')->pack()->plac
+e(-relx =>0.45,
      -rely =>0.15);

}


sub chapterlink()
{
$frme_window = $mw -> Frame(-background => 'DarkGray',-relief => 'sunk
+en')->pack(-ipadx => 330,-ipady =>0, -side => "right", -fill => "y");
$butn =$frme_window->Label(-text =>'CHAPTER LINK  ',-font => 'Verdana 
+15 bold',-foreground  => 'dark red', -background => 'DarkGray',-heigh
+t => 1,-width =>23) -> pack( )->place(
      -relx =>0.3,
      -rely =>0.1);
      
$labl = $frme_window->Label(-text =>"Chapter Files ",-font => 'Verdana
+ 10 bold',-foreground  => 'dark red',-background => 'DarkGray',-heigh
+t => 1,-width =>15) -> pack( )->place(
      -relx =>0.01,
      -rely =>0.30);
      
$path_text6 = $frme_window->Entry(-textvariable => \$def_path1,-font =
+> 'Verdana 8 bold',-width => 35,-background =>'white')->pack(-expand 
+=> 1)->place(-relx => 0.20, -rely => 0.3);
      
 $path_butn1 = $frme_window->Button(-foreground  => 'dark red',-text =
+> "Browse",-font => 'Verdana 8 bold', -height => 1,-width => 10,-comm
+and => \&browsecl) -> pack ( )->place(
     -relx =>0.65,
     -rely =>0.3);
}



hai it was selected both keys..

Output need is is selct 1 st button only visble that function only...i
+ts process will do randomly...
?

[download]

In reply to how select single button only? by virudinesh

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.