Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Tk - always on top property 2

by didier (Vicar)
on Aug 28, 2003 at 12:29 UTC ( #287332=note: print w/replies, xml ) Need Help??


in reply to Tk - always on top property 2

Your hexa hwnd is not the good one :)
Here your script with a little update

Have a nice day :)
use Tk; use Tk::Balloon; use Win32::API; use vars qw/$Button/; my $mw = new MainWindow; $id_mw = $mw->id; $mw->Frame(-width=>200, height =>25); $mw->update; Win32::API->new("user32","SetWindowPos", [qw(N N N N N N N)],'N')->Call(hex($id_mw),-1,0,0,0,0,3); $Button=$mw->Button(-text => "Button", -command => sub { &do_something; })->pack(); my $balloon = $mw -> Balloon(-balloonposition => 'mouse', -initwait => 10, -bg => 'white'); $balloon -> attach($Button, -balloonmsg => "Button"); MainLoop; sub do_something { #sleep(10); }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://287332]
help
Chatterbox?
[Corion]: marto: Heh ;) No, you were likely at Tegel or Schönefeld, the new one ("BER") will be somewhat outside of Berlin ;)
[marto]: Corion Schoenfeld, but my friend has been telling me about this new airport for about 7-8 years now :P
[marto]: I doubt it even exists as a building site :P
[ambrus]: Corion: does building airports "somewhat outside of" a city ever work? cities always grow around the airport quickly, because it's practical to be close to it, and after that, people start to complain that the airplanes land so close to their house and sh
[ambrus]: ould keep down the noise

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2017-02-23 12:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (346 votes). Check out past polls.