MainLoop blockiert - #112704 (Graphische Oberflächen)

theresa

2008-07-25 15:57

User since
2007-07-17
90 Artikel
BenutzerIn
[default_avatar]

Ja, dies ist die aufrufende Datei:

Code: (dl )

1
2
3

use LoginFenster;
$LF = LoginFenster->new();
print "macht weiter!";

LoginFenster:

Code: (dl )

package LoginFenster;
use strict;
use Tk;
use vars qw($VERSION);
$VERSION = 0.01;

use Alias qw(attr);
use vars qw($MW);

my %felder = (
	MW=>undef,
);

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

sub init {
	$MW = tkinit(-title=> 'Anmeldung');
	#...
	MainLoop;
}