On Sat, 28 Jun 2003 08:47:33 +1200, [EMAIL PROTECTED] (Voodoo Raja)
wrote:
>Hi all..
>
>Just a quick one..
>
>Is it possible to force my TK application to on top of all the windows that
>are present on the screen.. or rather set the window to be always visible
use $mw ->overrideredirect(1);
#######################################################
#!/usr/bin/perl
use Tk;
$mw = tkinit;
$t = $mw->Toplevel;
$t->withdraw;
$t->Label(-text => "Testing...")->pack;
$t->Button(
-text => "Withdraw",
-command => sub {$t->withdraw},
)->pack;
$t ->overrideredirect(1); #to top on all virtual desktops
$mw->Button(
-text => 'Test',
-command => sub {
$_->deiconify, $_->raise for $t;
},
)->pack;
MainLoop;
#########################################################
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
