Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^3: TK Toplevel Window List (wm)

by thundergnat (Deacon)
on Feb 12, 2013 at 18:45 UTC ( #1018425=note: print w/ replies, xml ) Need Help??

in reply to Re^2: TK Toplevel Window List (wm)
in thread TK Toplevel Window List

If you just wnat to get a list of all the toplevel windows from within a single process, it is pretty easy. Something like this perhaps.

use warnings; use strict; use Tk; my $mw = MainWindow->new(-title => 'main window'); for (1..5) { $mw->Toplevel(-title => "toplevel #$_"); } for ($mw, $mw->children) { print $_->cget('-title'),"\n" if /Toplevel/ or /MainWindow/; } MainLoop;

To find windows owned by other processes, you are going to need to interact with the OS window manager and that is going to be very specific to the your needs and the OS/WM you are using. There's no portable easy answer.

Comment on Re^3: TK Toplevel Window List (wm)
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018425]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2015-11-29 03:12 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (746 votes), past polls