Opened by DrWhiteLetter at 2005-04-20 17:30
User since
2005-01-30
26 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-01-30
26 Artikel
BenutzerIn
Hi, ich hätte gerne, dass wen man das 1. Fenster schliesst das 2. mit dem nächsten Bild angezeigt wird. Nur leider klappt das irgendwie nicht, sondern es wird nur ein Fenster geöffnet, wird das geschlossen, erscheint das 2. nicht.
Ich denke, dass das Programm beim öffnen des Fensters nicht hält sondern die Schleife fortgesetzt wird, so kann das ja nicht gehen. Sehe ich das richtig? Nur fällt mir dazu irgendwie keine Lösung ein (bzw. wie man den Programmablauf anhalten kann, evt. mit ner while-Schleife, aber hab keine Ahnung wie ich damit kontrolliere ob das Fenster noch offen ist).
Hier der Code:
Danke schonmal
Ich denke, dass das Programm beim öffnen des Fensters nicht hält sondern die Schleife fortgesetzt wird, so kann das ja nicht gehen. Sehe ich das richtig? Nur fällt mir dazu irgendwie keine Lösung ein (bzw. wie man den Programmablauf anhalten kann, evt. mit ner while-Schleife, aber hab keine Ahnung wie ich damit kontrolliere ob das Fenster noch offen ist).
Hier der Code:
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::JPEG;
my @bilder;
my $j;
pic();
for($j=0;$j<@bilder;$j++)
{
# Hier muss der Fehler sein, die Schleife selbst funktioniert
#-------------------------------------------------------
my $fenster=MainWindow->new();
my $img = $fenster->Photo(-file =>$bilder[$j], -format => "JPEG");
$fenster->Label(-image => $img)->pack;
$fenster->Button(-text => 'OK', -command => 'exit')->pack;
MainLoop();
}
sub pic
{
my @datei;
my $i;
opendir(DIR,"test");
while(@datei = readdir(DIR))
{
for($i=0;$i<@datei;$i++)
{
if($datei[$i]=~/.jpg/)
{
push( @bilder, $datei[$i] )
}
}
}
closedir(DIR);
}
Danke schonmal