crabbdean has asked for the wisdom of the Perl Monks concerning the following question:
A program I wrote pops up with a Tk window as an error dialog. Works nicely although I've noticed it often doesn't bring itself to the VERY front of all my other applicaton windows. As an error dialog this isn't desirable. Below is the code for the error dialog which I call from main. The "withdraw/popup" methods centre it on the screen, which I want to keep. The "focus" method I thought would bring it to the front but no such luck. I've also tried "raise". Does anyone know how to force it to the front on a Win32 system? Thanks
Dean
The Funkster of Mirth
Programming these days takes more than a lone avenger with a compiler. - sam
RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers
sub dying { my ($error) = @_; if (!$error) { $error = "(none given)"; } my $text; $text .= "\n\nTARsync Error:\n\nFailed during:\n$message\n\nReason +:\n$error"; if ($poperr) { my $box = new MainWindow(-title => "ZIPsync failed!", -bg => 'yellow', -bd => 4, -relief => 'ridge'); $box->overrideredirect(1); my $label = $box->Label( -textvariable=> \$text, -bg=> 'yellow', )->pack(-fill=>'both', -padx => 40, ); Win32::Sound::Play('SystemExclamation'); my $ok = $box->Button(-text => "OK", -command => [sub{$box->destroy; exit; } ] )->pack(-padx => 20, -pady => 20 ); $box->withdraw; $box->Popup; $box->focus; MainLoop; }
Dean
The Funkster of Mirth
Programming these days takes more than a lone avenger with a compiler. - sam
RFC1149: A Standard for the Transmission of IP Datagrams on Avian Carriers
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Tk window to the front of all application windows
by rinceWind (Monsignor) on Apr 12, 2004 at 23:34 UTC | |
Re: Tk window to the front of all application windows
by saintmike (Vicar) on Apr 12, 2004 at 21:46 UTC | |
Re: Tk window to the front of all application windows
by eserte (Deacon) on Apr 13, 2004 at 09:23 UTC | |
Re: Tk window to the front of all application windows
by crabbdean (Pilgrim) on Apr 13, 2004 at 20:02 UTC |
Back to
Seekers of Perl Wisdom