#!/usr/bin/perl

use strict;
use warnings;

##########################################
# copies Xselection to clipboard via gtk #
# (c) 2008 Vedran Vukotic                #
# released under GNU GPL                 #
##########################################

use Gtk2 'init';
use Glib;

my $clipboard =  Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_CLIPBOARD);
my $clipboard2 =  Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_PRIMARY);

my $t = Glib::Timeout->add (500, \&OnT);

sub OnT {
 $clipboard->clear; 
 my $x = $clipboard2->wait_for_text;
 $clipboard->set_text($x) if defined($x);
 $clipboard2->clear;
 print ".";
}

Gtk2->main;
__END__