Opened by Niko at 2011-08-05 02:17
Hi,
ich habe ein Problem und komme nicht weiter, ich habe ein Programm geschrieben, in diesem kann man auf Verschiedenen Reitern Einstellungen vornehmen und wenn man auf einen Button "Start" klickt, soll auf den Reiter Ergebnis gewechselt werden, dort sollen in einem Entry, dann zwischenergebnisse angezeigt werden. Hier ein Minimalbeispiel:
Mein Problem ist aber, dass zuerst die sub gerechnet wird und dann das Programm auf den Reiter Ergebnis wechselt.
Ich hoffe jemand kann mir helfen.
Gruß
Niko
modedit Editiert von GwenDragon: Bitte GUI mit im Titel angeben
Last edited: 2011-08-05 08:57:41 +0200 (CEST)
ich habe ein Problem und komme nicht weiter, ich habe ein Programm geschrieben, in diesem kann man auf Verschiedenen Reitern Einstellungen vornehmen und wenn man auf einen Button "Start" klickt, soll auf den Reiter Ergebnis gewechselt werden, dort sollen in einem Entry, dann zwischenergebnisse angezeigt werden. Hier ein Minimalbeispiel:
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
26
27
28
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::NoteBook;
my $mw = new MainWindow;
my $note = $mw->NoteBook( )->pack(
-side => "left",
-fill => "both",
-expand => 1
);
my $page1 = $note->add("1", -label => 'Haupt');
my $page3 = $note->add("2", -label => 'Einstellungen');
my $page2 = $note->add("3", -label => 'Material');
my $page4 = $note->add("4", -label => 'Ergebnis');
my $start = $mw->Button( -text => "Start", -command => sub {
$note->raise( 3 );
∋
})->pack;
MainLoop;
sub ni{
sleep(1);
print "huhu";
}
Mein Problem ist aber, dass zuerst die sub gerechnet wird und dann das Programm auf den Reiter Ergebnis wechselt.
Ich hoffe jemand kann mir helfen.
Gruß
Niko
modedit Editiert von GwenDragon: Bitte GUI mit im Titel angeben
Last edited: 2011-08-05 08:57:41 +0200 (CEST)