Hello All, Just wanted to ask if i can use the win32::gui "minimize icon to task bar" function on my $mw window in tk Below are the 2 functions : Tk Window :

$mw = MainWindow->new;
        $mw->geometry("639x474");
    $mw->resizable(0,0);
    $mw->configure(-background => "black");
        $mw->title("widget");

MainLoop;





Win32 Gui Window: 

my $main = Win32::GUI::Window->new(
    -name    =>    'main',
    -text    =>    'test',
    -width    =>    150,
    -height =>    150
);

MainLoop;
[download]

my $icon = Win32::GUI::Icon->new('test.ico');

my $tray = $main->AddNotifyIcon(
    -name    =>    'tray',
    -icon    =>    $icon,
    -tip    =>    'test'
);

Win32::GUI::Dialog();


sub tray_Click
{
    $main->Enable();
    $main->Show();
    1;

}

sub main_Terminate
{
    -1;
}

sub main_Minimize
{
    $main->Disable();
    $main->Hide();
    1;
}
[download]