Unterfenster aus Schleife heraus starten - #45878 (Graphische Oberflächen)

rol_wir

2006-10-12 13:48

User since
2005-12-20
11 Artikel
BenutzerIn
[default_avatar]

Na gut,
nochmal zum Thema:

ich werds wohl so lösen:

Sub &doitnow wird beendet,wenn Unterfenster aufgerufen wird:

Code: (dl )

 elsif (!exists $listage{$gs[$fori]} )
{
   decision($info); # Fenster mit Abfrage
   return();          # Sub beenden
 }

und &doitnow neu aufrufen, wenn Unterfenster verlassen wird:

Code: (dl )

my $but_use_ziel =$ssm_b->Button    (-text => $html{22} . " nach " .$html{20},
                          -command =>
        sub{
             ...
             &doitnow;
             &end_sm;
        }

Dazu muss &doitnow merken, dass es bereits aufgerufen wurde und dann die Shleife ab dieser Stelle weiter abarbeiten.
Gefällt mir nicht so gut, scheint aber zu funktionieren...

Grüsse
Roland