Re[2]: [perl-win32-gui-hackers] Help on Win32::GUI

[Johannes G. <in...@de...>]

thx a lot sam and Johan ... i've found a solution for me :-)
seems to work fine ...

so long
Hannes




use Win32::GUI;
my ($DOS) = Win32::GUI::GetPerlWindow(); Win32::GUI::Hide($DOS);

$Win = new Win32::GUI::Window(
      -left   => 498,
      -top    => 305,
      -width  => 301,
      -height => 313,
      -name   => "Win",
      -text   => "Devshare.de"
      );

$Win->Show();

$Icon = new Win32::GUI::Icon("camel.ico");
new Win32::GUI::NotifyIcon(
    $Win,
    -name => "Notify",
    -id => 1,
    -icon => $Icon,
    -tip => "Win32::GUI hello",
);

Win32::GUI::Dialog();

$Win->Notify->Delete(-id => 1);

sub Win_Terminate {
  return -1;
}

sub Win_Minimize {
   $Win->Disable();
   $Win->Hide();
   1;
}

sub Notify_Click {
   if($Win->IsVisible) {
     $Win->Disable();
     $Win->Hide();
   } else {
     $Win->Enable();
     $Win->Show();
   }
}