Hallo Forum,
ich habe mit meinem Script folgendes Problem.
Sobald ein Button im Hauptfenster gedrückt wird, das Programm ausgeführt wird und man dieses Programm dann schließt, schließt sich auch das Hauptfenster von Perl\Tk.
Wie kann ich es nun verhindern, dass sich das Perl\Tk Programm schließt?
Am liebsten wäre es mir, wenn es immer offen bleiben würde!
Habe es schon mit einer Endlosschleife um das ganze Programm herum versucht, hat aber leider nichts geholfen!
Hier der Code:
Vielen Dank für Eure Hilfe!
Mfg
Byron
ich habe mit meinem Script folgendes Problem.
Sobald ein Button im Hauptfenster gedrückt wird, das Programm ausgeführt wird und man dieses Programm dann schließt, schließt sich auch das Hauptfenster von Perl\Tk.
Wie kann ich es nun verhindern, dass sich das Perl\Tk Programm schließt?
Am liebsten wäre es mir, wenn es immer offen bleiben würde!
Habe es schon mit einer Endlosschleife um das ganze Programm herum versucht, hat aber leider nichts geholfen!
Hier der Code:
Code:
#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow -> new;
$mw->title('Programme ausführen');
$mw->Button(-text => "Word", -command => sub { exec("C:\\Programme\\\"Microsoft Office\"\\OFFICE11\\WINWORD.exe") })->place(-relx => 0.2, -rely => 0.2);
$mw->Button(-text => "Outlook", -command => sub { exec("C:\\Programme\\\"Microsoft Office\"\\OFFICE11\\outlook.exe") })->place(-relx => 0.2, -rely => 0.4);
$mw->Button(-text => "Chessbase", -command => sub { exec("C:\\Programme\\ChessBase\\ChessProgram8\\ChessProgram8.exe") })->place(-relx => 0.2, -rely => 0.6);
$mw->Button(-text => "Scanner", -command => sub { exec("C:\\Programme\\epson\\\"Creativity Suite\"\\\"Scan Assistant\"\\EScanAssist.exe") })->place(-relx => 0.4, -rely => 0.2);
$mw->Button(-text => "Chessbase Internet", -command => sub { exec("C:\\\"Dokumente und Einstellungen\"\\Peter\\Favoriten\\\"Austrian Chess Federation - Official Website.url\"") })->place(-relx => 0.4, -rely => 0.4);
$mw->Button(-text => "BlitzIn", -command => sub { exec("C:\\\"Dokumente und Einstellungen\"\\Peter\\Favoriten\\\"Austrian Chess Federation - Official Website.url\"") })->place(-relx => 0.4, -rely => 0.6);
$mw->Button(-text => "Abbruch", -command => sub { exit })->place(-relx => 0.3, -rely => 0.8);
MainLoop;
Vielen Dank für Eure Hilfe!
Mfg
Byron