Hola, ando teniendo una duda. Lo que quiero hacer es que cuando se presione el botón se cambie la imagen por otra, o sea, que la primera se vaya y poder poner otra en su lugar. Lo quiero hacer con varias imágenes y varios botones, pero no sé cómo puedo hacerlo.
El código es el siguiente:
Using perl Syntax Highlighting
use Tk;
use Tk::PNG;
my $man = MainWindow->new(-background=>"black",-foreground=>"orange");
$man->title("Mysql Manager (C) Doddy Hackman 2011");
$man->geometry("650x540+20+20");
$man->resizable(0,0);
my $f = $man->Photo(-file=>"foto.png",-format=>"PNG");
$man->Label(-image=>$f,-borderwidth=>0)->place(-x=>20,-y=>20);
$man->Button(-text=>"Cambiar",-command=>\&ok)->pack();
sub ok {
print "ok";
}
MainLoop;
2012-01-17 14:40 @653
