Ando queriendo hacer una ventana con el módulo Tk que cada vez que se presione el botón cerrar se cree otra igual y no tenga salida pero no sé cómo hacerla.
Ventana normal:
Using perl Syntax Highlighting
use Tk;
$mw = MainWindow->new( -background => "black", -cursor=>"crosshair");
$mw->geometry("600x325+100+100");
$mw->title("{Ventana de prueba");
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
MainLoop;
$mw = MainWindow->new( -background => "black", -cursor=>"crosshair");
$mw->geometry("600x325+100+100");
$mw->title("{Ventana de prueba");
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
MainLoop;
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
¿Cómo haría que cada vez que se presione el botón cerrar se cree otra igual y no se pueda cerrar?