SOURCE 
 
>  -----Original Message-----
>  From: ptk-bounces@[...].edu 
>  [mailto:ptk-bounces@[...].edu] On Behalf Of Steve Waltner
>  Sent: Monday, July 16, 2007 12:46 PM
>  To: ptk@[...].edu
>  Subject: 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.

This code has introduces a "transient" call likely in order to avoid having
the window get hidden beneath the main window (which was a problem in 800).
Unfortunately this has the side effect as you note here - i.e. If the main
window is withdrawn - so is the dialog.

>  
>  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?

The fix is to add the following line after you create your DialogBox object.

$dialog-> transient('');

HTH
Jack

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