Thread Unterfenster aus Schleife heraus starten (9 answers)
Opened by rol_wir at 2006-10-11 12:31

rol_wir
 2006-10-11 12:59
#45874 #45874
User since
2005-12-20
11 articles
BenutzerIn
[default_avatar]
Hallo Renee

main:
Code: (dl )
1
2
3
4
5
6
...
my $mbut3 =$lab->Button(-text => " Synchronisieren ", -state=>$stat,
-command => sub{
&doitnow;})
-> pack(-side=>'left', -ipady => '3p',-padx => '5p', -pady => '1p');
...


im sub doitnow:
Code: (dl )
1
2
3
4
5
6
7
8
9
for ($fori=0;$fori<1000000;$fori++)
{
...
elsif (!exists $listage{$gs[$fori]} )
{
&decision($info);
}
...
}


decision ist das submain:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub decision
{

&ini_sm;
$ssm->geometry('=+400+200');
$ssm->title("Nutzerentscheidung notwendig");

# Anfang Inhalte des Fensters
my $text_codes = $ssm->Label ( -text=>"Wie soll mit folgender Datei verfahren werden?" , -anchor=>'w', -justify=>'left'
)
->grid(
-row => 0,
-sticky => 'nw',
-column => 0,
-columnspan => 99);
...

Da Unterfenester decision geht auch auf, aber &doitnow arbeitet einfach weiter. Ich bräauchte so eine Art "wait"-Funktion, die auf das Ende von &decision wartet.

Gruss
Roland

ps. Jou, Nähe Darmstadt, aber auch wieder nicht wirklich nah

View full thread Unterfenster aus Schleife heraus starten