package Controller;
use Tray;
use LoginFenster;

use Alias qw(attr);
use vars qw($TRAY $LF $SELF);

my %felder = (
	$TRAY = undef,
	$LF = undef,
	$SELF = undef,
);

sub new {
	my $that = shift;
	my $bildPfad = shift;
	my $text = shift;                        
	my $class = ref($that)||$that;
	my $self = {
		%felder,
	};
	bless $self, $class;
	$SELF = $self;
	init();
	return $self;
}

sub init {
	$TRAY = Tray->new('c:\\pfad', 'text', $SELF);
	$LF = LoginFenster->new();
#	$LF->show();
	print ref($LF);
}

sub tray_clicked {
	$LF->toggle();
}

1;