$top->bind("<Visibility>" => sub { $top->raise });
[download]

use strict;
use Tk;
use Win32::API;

my $mw = new MainWindow;
use vars qw/$Button/;

$mw->Frame(-width=>200, height =>25);
$mw->update;
  Win32::API->new("user32","SetWindowPos",[qw(N N N N N N
N)],'N')->Call(hex($mw->frame()),-1,0,0,0,0,3);


$Button=$mw->Button(-text => "Button",
        -command => sub {
                &do_something;
            })
        ->pack();


MainLoop;

sub do_something {

    #sleep(10);
}
[download]

    my($wrapper) = $w->toplevel->wrapper;
    $w->property('set', '_NET_WM_STATE', "ATOM", 32,
         ["_NET_WM_STATE_STAYS_ON_TOP"], $wrapper);
[download]

Exactly what I needed!

Thanks a lot for your kind help!
Courage, the Cowardly Dog

No, I did not intended to have input only for my app, I was searching for a way to display a small button that will not be obscured by other applications, so a user will be able to see my button (and press it at any time) while being in another application. Something like floating button-bar.

Courage, the Cowardly Dog

In that case, see this node

---

from the frivolous to the serious

Perhaps I can lead you in the right direction.

You can call the method geometry on all other toplevels. Than you can type to determine the coordinates from these by taking the lowest X value and the lowest Y value, and add the X size=(highest X - lowest X) and the same for the Y size.

Than you can call the method geometry on the newly created Toplevel with these new parameters.

In most window managers, the newly created Toplevel will than be above the older onces.

I hope that is what you wanted

---------------------------
Dr. Mark Ceulemans
Senior Consultant
IT Masters, Belgium

No, I was trying to display a small button that will not be obscured by other applications, something of kind "stay-on-top"

Courage, the Cowardly Dog