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.015,-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",-title =>'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 => 'Verdana 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 => 'Verdana 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",-title =>'MessageBox'); } elsif($file==2 and $file2==0) { $file2=2; $frme_window = $mw -> Frame(-background => 'DarkGray',-relief => 'sunken')->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',-height => 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',-height => 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,-command => \&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,-command => \&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.