#!"C:\Program Files (x86)\Active Perl 5.20.1\bin\perl.exe"
        
# ----------------------------------------------------------------------------------------------------------------------------
   
use strict;
use warnings;

use Win32::GUI();
  
# ----------------------------------------------------------------------------------------------------------------------------

my $menu_popup;
my $debug = 1;

$menu_popup = Win32::GUI::Menu -> new( "&File"                  => "File" ,
				       ">SSL - Server"          => { -name => "SSL_Server"          , -state => 0 , -onClick => sub{ -1 } } ,
				       ">>Aktiviere Verbindung" => { -name => "Aktivierung"         , -state => 0 , -onClick => sub{ $menu_popup -> { 'Trennung'    } -> Enabled( 1 ); 
							                                                                             $menu_popup -> { 'Aktivierung' } -> Enabled( 0 ); } } ,
				       ">>Schliesse Verbindung" => { -name => "Trennung"            , -state => 0 , -onClick => sub{ $menu_popup -> { 'Trennung'    } -> Enabled( 0 ); 
																     $menu_popup -> { 'Aktivierung' } -> Enabled( 1 ); } } ,
				       "> -"                    => { -name => "Trenner"             , -state => 1 , -onClick => sub{  0 } } ,
				       ">Server - Verwaltung"   => { -name => "Server_Verwaltung"   , -state => 0 , -onClick => sub{ -1 } } ,
				       ">Benutzer - Verwaltung" => { -name => "Benutzer_Verwaltung" , -state => 0 , -onClick => sub{ &Mailing( ) } } ,
                                       "> -"                    => { -name => "Trenner"             , -state => 1 , -onClick => sub{  0 } } ,
                                       ">Ende"                  => { -name => "Ende"                , -state => 0 , -onClick => sub{ -1 } } ,
									 );

$menu_popup -> { 'Trennung' } -> Enabled( 0 );
									 
my $main = Win32::GUI::Window -> new( -name   => 'Main' ,
                                      -text   => '' ,
				      -menu   => $menu_popup ,
                                      -width  => 0 ,
                                      -height => 0
                                    );
									
sub NI_RightClick( ) {
    $main -> TrackPopupMenu( $menu_popup -> { File } , Win32::GUI::GetCursorPos( ) );
}

my $icon = new Win32::GUI::Icon( 'Symbol.ico' );

my $ni = $main -> AddNotifyIcon( -name => "NI"  ,
                                 -icon => $icon ,
                                 -tip  => "Hello"
                               );

Win32::GUI::Dialog( );

# -----------------------------------------------------------------------------	

sub Main_Terminate {

    return -1;
}

# -----------------------------------------------------------------------------	

sub Main_Minimize {

    $main -> Disable();
    $main -> Hide();
    return 1;
}

# -----------------------------------------------------------------------------	

sub NI_Click {

    $main -> Enable();
    $main -> Show();
    return 1;
}

# -----------------------------------------------------------------------------	

1;