Select Code to Download

    my $testWindow = Gtk2::Window->new('toplevel');
    $testWindow->set_title('my_test_window');
    $testWindow->set_size_request(100, 100)

    my $screen = Gnome2::Wnck::Screen->get(0);
    $screen->force_update();
    my @winList = $screen->get_windows();

    foreach my $win (@winList) {

        if ($win->get_name() eq 'my_test_window') {
...
            # Success!
        }
    }

    foreach my $win (@winList) {

        if ($win->get_name() eq 'my_test_window') {
...
            my @geometryList = $win->get_client_window_geometry();
        }
    }

    $wnckWin->move() 
    $wnckWin->resize()
    $wnckWin->set_geometry()

    $gtkWin->get_title()
    $wnckWin->get_name()

#!/usr/bin/perl -w
use strict;
use warnings;
...

# Main event loop
Gtk2->main();