komische Rückmeldung von Photo() (Graphische Oberflächen)

[thread]4982[/thread]

komische Rückmeldung von Photo()

Froschpopo

2005-04-29 12:01

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

my $pic = $mw->Photo(-file => 'mainBackground.bmp');

als Rückmeldung sagt er mir: "image4"

was ist damit gemeint mit "image4" ?\n\n

Froschpopo

2005-04-29 12:40

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

hier der Zusammenhang:

Code: (dl )

1
2
3

    my $pic = $config{MainWindow}->Photo(-file => 'cool.gif');
    my $i = $config{BuddyListPane1}->Getimage($pic);
    $config{BuddyListPane1}->imageCreate('end', -image => $i);

Die Meldung lautet:
Tk::Error: unknown pixmap ID "image4" at C:/Perl/site/lib/Tk/Image.pm line 21, <
GEN0> line 2.\n\n

ptk

2005-04-29 13:20

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Getimage brauchst du nicht, du kannst gleich -image => $p schreiben.

Froschpopo

2005-04-29 14:01

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

komisch, vorhin kam da war von image4.... jetzt funzt's plötzlich, ich glaub der lüfter von meinem notebook muss mal wieder staub-befreit werden :D

Crian

2005-04-29 16:22

User since
2003-08-04
5870 Artikel
ModeratorIn

Reboote mal, ich hab gestern einem komischen Fehler erfolglos nachgejagt, heute morgen hab ich dann alles auseinandrgenommen und nachher festgestellt, dass der Fehler heute nicht auftritt *trööt* ...

Leider sind Computersysteme nicht 100% deterministisch ... argh ich will nur noch mit natürlichen Zahlen zu tun haben ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

zipster

2005-04-29 17:03

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

Zitat
"Boot tut gut!"

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...

View all threads created 2005-04-29 12:01.