Detlef,

>### Is it this what you are looking for?
>[Snip]

thanks for your answer. That's working fine in the MacPerl-Window but
not in my dialog. I was looking for something like this:

while ( (length($faktoren) <= 15) && (@faktoren > 0) ) {

        $faktoren .= "$faktoren[0] ";

        shift @faktoren;

}

$dlg->item_text($dlgh{faktoren1}, $faktoren);

undef $faktoren;

for ( @faktoren ) {

        $faktoren .= "$faktoren[0] ";

        shift @faktoren;

}

$dlg->item_text($dlgh{faktoren2}, $faktoren) if $faktoren;

This is doing the job so there is no need for a more sophisticated
solution. But if someone has one, it will be always welcome :-)

\bye
martin
--
"Open Source" heißt, jeder Anwender erhält eine Kopie des Quellcodes. Dabei
stoßen Entwickler, die mit Linux arbeiten, häufig auf Sicherheitslücken.
Auf Microsoft Windows trifft dies nicht zu. (Microsoft zu: Linux im Handel)












































Reply via email to