Opened by Gast at 2005-07-19 12:34
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
[quote=ptk,19.07.2005, 13:09]Du musst von Tk::MainWindow ableiten, nicht von Tk[/quote]
wussten wir doch (pq und ich), dass du die lösung bringen würdest; da es mich auch interessiert hat, hier ne lösung
wussten wir doch (pq und ich), dass du die lösung bringen würdest; da es mich auch interessiert hat, hier ne lösung
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
package mytk;
use strict;
use warnings;
use base 'Tk::MainWindow';
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
return ($self);
}
sub run {
my $self = shift;
$self->SUPER::MainLoop;
}
1;
my $wnd = mytk->new;
$wnd->run;