use Tk;
my $mw = new MainWindow(-background=>'Gray');
 $mw->geometry("1400x800");
 $mw ->optionAdd('*background','Gray');
 $wb[0] = $mw->Radiobutton(
    -variable => \$file,
    -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 => \$file,
    -command  => \&chapterlink,
    -text     => 'CHAPTER LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value => 2)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>0.0
+15,-rely =>0.25);

$wb[2] = $mw->Radiobutton(
    -variable => \$file,
    -command  => sub {$flag =3;},
    -text     => 'FIGURE LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value    => 3)->pack(
    -side     => 'top',
    -anchor   => 'w',)->place(-relx =>0.007,
      -rely =>0.30);
      
MainLoop();
sub toclink()
{
#$wb[1]->deselect();
$frme_window  = $mw ->delete();
if($file==0)
{
     $mw->messageBox(-message => "Select Your Linking OPtionslll",-tit
+le =>'MessageBox');
     }
     elsif($file==1 and $file1==0)
     {
     $file1=1;
$frm_name = $mw -> Frame(-background => 'DarkGray',-relief => 'sunken'
+)->pack(-ipadx => 330,-ipady =>0, -side => "right", -fill => "y");
$frm_name->Label(-text =>"Do You Want Give Input Styles: ",-font => 'V
+erdana 10 bold',-foreground  => 'dark red',-background => 'DarkGray',
+-height => 1,-width =>28) -> pack( )->place(
      -relx =>0.02,
      -rely =>0.08);

$frm_name->Button(-foreground  => 'dark red',-text => "yes",-font => '
+Verdana 8 bold', -height => 1,-width => 10,-background => 'DarkGray',
+-command => \&enable) -> pack ( )->place(
    -relx =>0.43,
    -rely =>0.08);

$frm_name->Button(-foreground  => 'dark red',-text => "No",-font => 'V
+erdana 8 bold', -height => 1,-width => 10,-background => 'DarkGray',-
+command => \&disable) -> pack ( )->place(
    -relx =>0.57,
    -rely =>0.08);
    }

    }
    
    sub chapterlink()
{
#$wb[0]->deselect();
#$frm_name->$mw->delete();
if($file==0)
{
     $mw->messageBox(-message => "Select Your Linking OPtionslll",-tit
+le =>'MessageBox');
     }
     elsif($file==2 and $file2==0)
     {
     $file2=2;

 $frme_window = $mw -> Frame(-background => 'DarkGray',-relief => 'sun
+ken')->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);

 $path_buttn2 = $frme_window->Button(-foreground  => 'dark red',-text 
+=> "Submit",-font => 'Verdana 8 bold', -height => 1,-width => 10,-com
+mand => \&submitcl) -> pack ( )->place(
     -relx =>0.80,
     -rely =>0.3);
 }
 }


am correct previous my question.

1.all radio buttons contains same variable.
2.set value parameters is different value.like 1,2,3
3.all the variable used for clicking button

but it was not working 

my output need for

1.if click toc link means only visible  the toc frame only
2.if click chapter link means visible like chapter link..


am don't know about

*. how to delete delete the Frame created by another button.
[download]