WindowList tracker test program

[Scott Smedley]

Mikhael,

Here's a simple test program I was using to test the WindowList tracker.

SCoTT. :)

#!/usr/bin/perl -w

# $Id$

use strict;
use lib `fvwm-perllib dir`;
use FVWM::Module;

my $fvwm = new FVWM::Module(Name => 'Scottie', Debug => 2);
# my $tracker = new FVWM::Tracker::WindowList($fvwm);
my $tracker = $fvwm->track('WindowList', "!stack !icons names");

$tracker->observe("window added", sub { cb('window added', @_) });
$tracker->observe("window deleted", sub { cb('window deleted', @_) });
$tracker->observe("window moved", sub { cb('window moved', @_) });
$tracker->observe("window resized", sub { cb('window resized', @_) });
# $tracker->observe("window name updated", sub { cb('window name updated', @_) 
});
$tracker->observe("window properties updated", sub {
        my ($fvwm, $tracker, $z, $winId, $p) = @_;
        print(STDERR "got window properties updated event: $winId\n");
        $fvwm->debug("\t$_: " . $p->{$_} . "\n")
                foreach sort keys %{$p};
});

sub cb
{
        my ($eventName, $fvwm, $tracker, $z, $winId, $p) = @_;
        print(STDERR "got \"$eventName\" event for win $winId.\n");
}

$fvwm->eventLoop();