bringing a process to foreground.

[rajendra]

Hello All,
In one of script, I use a Perl TK to get the user login information. But by
the time, I get the TK window for login, if I change my focus to some other
process, the Perl TK window will be in background.
So I would like to know how to bring this Perl TK window to foreground.

 

[zentara]

Hello All,
In one of script, I use a Perl TK to get the user login information. But by
the time, I get the TK window for login, if I change my focus to some other
process, the Perl TK window will be in background.
So I would like to know how to bring this Perl TK window to foreground.

You could use $mw->overrideredirect(1); to make the window
grab global focus and stay on top on all virtual desktops; but that
is often too harsh, and demands immediate attention.

What you probably could do, is use a timer to keep the
window on top. When you want to cancel the stay-on-top;
cancel the $repeater

#!/usr/bin/perl
use Tk;
use strict;
use warnings;

my $top = new MainWindow;
my $repeater;

keep_on_top($top);

#cancel after 10 seconds
$top->after(10000, sub{ $repeater->cancel });

MainLoop;

sub keep_on_top {
my $w = shift;
#raise every tenth second
$toprepeater = $w->repeat(100,
sub{ $w->raise });
}
__END__

 

[Ch Lamprecht]

Hello All,
In one of script, I use a Perl TK to get the user login information. But by
the time, I get the TK window for login, if I change my focus to some other
process, the Perl TK window will be in background.
So I would like to know how to bring this Perl TK window to foreground.

Hi,

if you are on windows, you can use

$main_window->attributes(-topmost => 1);

That will work with MainWindow or Toplevel objects.

Christoph

 

[aakash]

Hello All,
When i tried to use the below command it gives me an error : "Can't call
method "attributes" on unblessed reference at ( folllowed by line no.)"

Aakash

 

[Ch Lamprecht]

aakash wrote:

When i tried to use the below(above) command it gives me an error : "Can't
call
method "attributes" on unblessed reference at ( folllowed by line no.)"

Hi aakash,
please post a short but complete example.
Please don' top-post.

Christoph

 

[rajendra]

Hello All,
Please find my small script.

use Tk;
$main=MainWindow->new;
$main->Button(-text => "Click",-command => \&disp)->pack(-side =>'left');
$text1=$main->Text(-width => 40 ,-height => 2)->pack;
$text1->bind('<Enter>',\&disp);

MainLoop;

sub disp
{
$text1->insert('end',"Hello");
}

What should I add for this script to bring the window that gets generated by
this script to foreground even if I change my focus?..

 

[Ch Lamprecht]

Hello All,
Please find my small script.

use Tk;
$main=MainWindow->new;
$main->Button(-text => "Click",-command => \&disp)->pack(-side =>'left');
$text1=$main->Text(-width => 40 ,-height => 2)->pack;
$text1->bind('<Enter>',\&disp);

$main->after(500,sub{$main->attributes(-topmost=> 1)});
# this works on windows

MainLoop;

sub disp
{
$text1->insert('end',"Hello");
}

What should I add for this script to bring the window that gets generated by
this script to foreground even if I change my focus?..

Again: It's easier to follow the discussion if you don't top-post.

Christoph