yes I'm here to learn a better way! ;=)

Many thanks and ++put_your_name_here for the hint about LIFO order, good to know but i'm curious to know where you found this information or if just comes from your tries.

Anyway I prefere the pryrt's solution because your using tkinit is in reality creating two distinct indipendent MainWindows: they appear in LIFO order but if you close one of them the other continue to exist.

How can i retrieve more infos about tkinit anyway? in the Tk source I just see:

@EXPORT    = qw(Exists Ev exit MainLoop DoOneEvent tkinit);
[..]
sub tkinit { return MainWindow->new(@_) }
[download]

It is just a shortcut to call for a MainWindow creation?

L*

but i'm curious to know where you found this information or if just comes from your tries.

Just from tries, its simpler than reading the source

How can i retrieve more infos about tkinit anyway? in the Tk source I just see: It is just a shortcut to call for a MainWindow creation?

Its one of those things monkey see, and yes its just a shortcut , its defined inside Tk.pm, just like MainLoop

 
sub tkinit { return MainWindow->new(@_) }
sub MainLoop
{
 unless ($inMainLoop)
  {
   local $inMainLoop = 1;
   while (Tk::MainWindow->Count)
    {
     DoOneEvent(0);
    }
  }
}
[download]

Anyway I prefere the pryrt's solution ...

Yes, parents kill children, but you don't gotta let the user kill the window so you have to recreate it, just hide/show

#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $mw    = MakeMain();
my $phwin = MakePhwin( $mw );
$mw->focus;
$mw->WidgetDump;
MainLoop;

sub MakePhwin {
    my( $mw ) = @_;
    my $phwin = $mw->Toplevel;
    $phwin->protocol( 'WM_DELETE_WINDOW', [sub{shift->withdraw}, $phwi
+n], );
    $phwin->Label(-text => "Close me hit the little x" )->pack;
    return $phwin;
}
sub MakeMain {
    my $mw = tkinit(@_);
    $mw->Button(
        -text => "Restore phwin",
        -command => sub {
            $_->deiconify
                for grep $_->isa('Tk::Toplevel'),
                    $Tk::widget->toplevel->children;
        },
    )->pack;
    $mw->update;
    return $mw;
}
[download]