DialogBox not Being Displayed

We've been running ActivePerl 5.8.0 on Windows for some time and  
recently upgraded to ActivePerl 5.8.8. Along the way (ActivePerl  
5.8.4) the Perl Tk module was upgraded to 804.027. Previously, it had  
been using 800.???. While this fixed the original problem we had, it  
introduced a problem where the behavior of DialogBox changed and our  
dialog boxes are no longer being displayed. A code snippet that  
demonstrates this is:

=======
use Tk;
use Tk::DialogBox;

$main = MainWindow->new();    # this creates the main dialog box
$dialog = $main->DialogBox (-title => "TITLE BAR TEXT", -buttons =>  
[ "Button 1","Button 2" ] ); # this creates the desired box
$main->withdraw();            # this makes the main dialog box invisible
$button = $dialog->Show();    # this makes the desired dialog box appear
$main->destroy();             # this destroys the main dialog box
print "Button pushed: $button\n";
=======

The problem is that the user wants to hide the main window and still  
show the DialogBox. With version 4.x of DialogBox.pm, the "withdraw"  
that hides $main also keeps $dialog from being shown on the screen.

How should one code it where you hide the main Tk window, but are  
still allowed to show a DialogBox created off the main window?

Steve
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk