Help for this page

Select Code to Download

Select or download this

use Tk;
require Tk::StayOnTop;
require Tk::MatchEntry;
...
#$window->after(1000,sub {$window->attributes(-topmost => 1)});
$window->after(1000,sub {$window->stayOnTop()});
MainLoop;