#!/usr/bin/perl
$|=1;
use strict;

use Gtk2 -init;
use Glib qw/TRUE FALSE/;

my $s = Gtk2::Gdk::Screen->get_default;
my $iw = $s->get_root_window;
my $isw = $s->get_width;
my $ish = $s->get_height;

my $ddisp;
if($ARGV[0]=~/:/) {
	my $dest=$ARGV[0];
	$ddisp=Gtk2::Gdk::Display->open($dest);
} else {
	$ddisp=Gtk2::Gdk::Display->get_default;
}

my $scr = $ddisp->get_default_screen;
my $win = Gtk2::Window->new('toplevel');
$win->set_screen($scr);
$win->resize(640,480);
$win->set_resizable(FALSE);
my $img = Gtk2::Image->new();
$win->add($img);
$win->show_all;

Glib::Timeout->add(50,\&track);
Gtk2->main;

sub track {
	my ($sn,$x,$y,$m) = $iw->get_pointer;
#	print "$x, $y -->> ";
	$x=($x > 320 ? $x-320:0); $x=($x>$isw-640 ? $isw-640:$x);
	$y=($y > 240 ? $y-240:0); $y=($y>$ish-480 ? $ish-480:$y);
#	print "$x, $y\n";
	my $p = Gtk2::Gdk::Pixbuf->get_from_drawable($iw,undef,$x,$y,0,0,640,480);
	$img->set_from_pixbuf($p);
	return TRUE;
}