gif als button: wie lege ich ein gif auf einen Button? - #46444 (Graphische Oberflächen)

tricipitinus

2007-06-10 22:16

User since
2007-06-03
6 Artikel
BenutzerIn
[default_avatar]

ok, danke, funktioniert super!

jetzt hab ich noch ein andres problem.

ich lade mein canvas und habe 4 buttons.
ich möchte nun bei jedem buttondruck eine andre canvas "aktivieren".
das problem ist, dass ich nicht weiss, wie ich den "alten" canvas verschwinden lassen kann, er erstellt mir jetz nämlich immer einen neuen darunter, anstatt den alten zu ersetzen. leider hab ich bisher nichts gefunden, um den alten im betrieb wieder zu entfernen..

Code: (dl )

my $frame1 = $main->Frame( -relief => "groove",
   -borderwidth => 5);
   $frame1->pack( -fill => "both",
   -side => "top");
   
   my $canvas1 = $frame1 ->Canvas(-width  => '253',
                         -height => '477',
                        );
   $canvas1->pack;
   my $file = 'image.gif';
   my $img =
    $canvas1->Photo( 'imggif',
                    -file => $file );

   $canvas1->create( 'image',0,0,
                    '-anchor' => 'nw',
                    '-image'  => $img,
                     );
....
...                       
sub tel{
   my $canvas2 = $frame1 ->Canvas(-width  => '253',
                         -height => '477',
                        );
   $canvas2->pack;
   my $file = 'image_tel.gif';
   my $img =
    $canvas2->Photo( 'imggif',
                    -file => $file );

   $canvas2->create( 'image',0,0,
                    '-anchor' => 'nw',
                    '-image'  => $img,
                     );
 }