Closing a menu window dynamically.

[cnsabar]

Hi

I am having a problem in closing a menu window using TK module dynamically.

I use the following program.

use Tk;
 
$mw = MainWindow->new;
$mw->geometry("1024x768");
$mw->title("Menu Test");
 
$main_menu = $mw->Menu();
$mw->configure(-menu => $main_menu);
$file_menu = $main_menu->cascade(-label=>"File", -underline => 0, -tearoff=>0);
$file_menu->command(-label=>"Exit", -underline=>0, -command=>sub{exit});
$settings_menu = $main_menu->cascade(-label=>"Settings", -underline => 0, -tearoff=>0);
$settings_menu->command(-label=>"Sub Menu1", -underline=>0, -command=>sub{&sub_func1});
MainLoop;
sub sub_func1
{
    $s_mw = MainWindow->new;
    $s_mw->geometry("800x550+150+100");
    $s_mw->title("Sub Menu");
    $sub_menu1 = $s_mw->Menu();
    $s_mw->configure(-menu => $sub_menu1);
    $label1 = $s_mw->Label(-anchor => "w", -text => "Perl Path:", -background => "#D4D0C8", -cursor => "");
    $txt1 = $s_mw->Entry(-borderwidth => 1, -cursor => "", -font => "Tahoma 8 normal", -foreground => "#000000", -relief => "sunken");
 
    $closeParent = $s_mw->Button(-background => "#FFFFFF", -borderwidth => 1, -text => "Close Main Window",-command => sub {&parent_close}, -cursor => "");
    $cmdClear = $s_mw->Button(-background => "#FFFFFF", -borderwidth => 1, -text => "CLEAR",-command =>  sub{Clear()}, -cursor => "");
    $cmdCancel = $s_mw->Button(-background => "#FFFFFF", -borderwidth => 1, -text => "EXIT",-command => [$s_mw => 'destroy'], -cursor => "");
    $label1->place(-width => 96, -height => 24, -x => 25, -y => 25 );
    $txt1->place(-width => 180, -height => 20, -x => 130, -y => 25);                
 
    $closeParent->place(-width => 100, -height => 20, -x => 200, -y => 500);
    $cmdClear->place(-width => 60, -height => 20, -x => 350, -y => 500);
    $cmdCancel->place(-width => 60, -height => 20, -x => 500, -y => 500);
 
    MainLoop;
}
 
sub Clear 
{
    $txt1->delete(0, 'end');    $txt2->delete(0, 'end');
}
 
sub parent_close
{
#Invoking close a window..
    $mw => 'destroy'; 
}
 

I do know how to close a window dynamically in other menu...
looking any help regarding this.
Thanks

[cnsabar]

Hi.,

I found one the method to close a window..

$mw ->withdraw();
 

Let me know if anyother method available.
Thanks,
Sabarish