Opened by rol_wir at 2006-10-11 12:31
User since
2005-12-20
11 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-12-20
11 Artikel
BenutzerIn
Hallo Renee
main:
im sub doitnow:
decision ist das submain:
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
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