Opened by lichtkind at 2006-06-09 09:57
[quote=renee,09.06.2006, 13:42]Was geht nicht?? Irgendwelche Fehlermeldungen?
Das hier sollte gehen:
[/quote]
Ich habe diesen Script ausprobiert,nur meinte ich,dass sich ein neues TK Fenster öffnet.
So :
aus diesem Code wollte ich noch ein zweites MainWindow öffnen,sobald man auf irgendwas bestimmtes klickt.
Gruß Adlerr
Das hier sollte gehen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my $button = $mw->Button(-text => 'open a file', -command => \&open_file)->pack();
MainLoop;
sub open_file{
my $file = $mw->getOpenFile();
print $file if(defined $file);
}
Ich habe diesen Script ausprobiert,nur meinte ich,dass sich ein neues TK Fenster öffnet.
So :
Code: (dl
)
my $ddd = MainWindow->new();
aus diesem Code wollte ich noch ein zweites MainWindow öffnen,sobald man auf irgendwas bestimmtes klickt.
Gruß Adlerr