There is module on CPAN: Tk::StayOnTop.

Regards, mawe

I tried using the StayOnTop.pm module, but I must be doing something wrong. I'm on Perl 5.8.0 so I assume I must use Win32::API. I downloaded API.pm into the ...\lib\Win32 directory. I also downloaded StayOnTop.pm into the ..\lib\Tk directory.

I now have the following at the beginning of my code:

use Tk;
use Win32::API;
use Tk::StayOnTop;
use IO::Socket;
use IO::Select;
[download]

I updated the @INC to point to the Win32 directory. However, whenever, I attempt to run the program I keep getting the message:

Can't locate loadable object for module Win32::API in @INC (@INC conta
+ins: C:\Perl\site\lib\Win32 C:\Perl\site\lib C:\Perl\site\lib\Win32\A
+PI c:/Perl/lib c:/Perl/site/lib .) at smalllights.pl line 13
[download]

I am not sure which loadable object is causing the problem. Is it possible that I need another module?

You may need to install the module using the ppm tool.

Win32::API contains code that must be compiled, install it properly using CPAN.pm or the makefile.pl it comes with.

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

my $mw = tkinit;
$mw->geometry("200x300+200+200");

$mw->overrideredirect(1);   # set the override-redirect flag 

$mw->Button(
   -text       => 'Quit',
   -command    => sub { Tk::exit(0) },
)->pack(
   -side       => 'bottom',
);

MainLoop;
[download]

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

my $top = new MainWindow;

keep_on_top($top);

MainLoop;

sub keep_on_top {
    my $w = shift;

    my $toprepeater = $w->repeat(100,
      sub{ $w->raise  });

}
[download]