Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
There's more than one way to do things
 
PerlMonks  

Re: Tk window to the front of all application windows

by crabbdean (Pilgrim)
on Apr 13, 2004 at 20:02 UTC ( #344839=note: print w/ replies, xml ) Need Help??


in reply to Tk window to the front of all application windows

A SOLUTION: I awoke during the night recalling a method I'd seen in the Win32Util module about "always keep ontop". Its a bruteforce way of forcing your Tk Window to the front and *keeping it there* even if you maximise other windows. See the amended code below. (Note: setting the optional flag to 1 forces it ontop, setting it to 0 disables it.

The mind of a programmer never sleeps! :-)

## Insert these into main use Win32::Sound; use Win32Util; ## subroutine for dying 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 => "TARsync 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; Win32Util::keep_on_top($box, 1); 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


Comment on Re: Tk window to the front of all application windows
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://344839]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (16)
As of 2014-04-17 19:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (454 votes), past polls