Hiding MainWindow

Hello,

It's evil, I know, but is it possible to display Tk::Dialog without displaying MainWindow ?
I want reuse my old dialogs I called in pTk application in application that doesn't use pTk with minimal effort :).

Pseudocode of function that shows dialog can look like :

sub showSpecialDlg
{
	my $mw = shift;

	if(!$mw) 
	{
		$mw = new MainWindow;
		# just a pseudofunction
		$mw->hide;
	}

	$dlg = $mw->Dialog(-title => 'dialog');
	... Initialize inside of dialog ...
	$dlg->Show;
}

Calling from non-tk script would be just using the right package and then : $retval = &showSpecialDlg;

Is there something I can use instead of imaginary '$mw->hide;' ?

Thanks for help,
Martin

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to [email protected]