Yet another obsolete file deleted.

diff --git a/cairotest.pl b/cairotest.pl
deleted file mode 100755 (executable)
index 2ea7766..0000000
--- a/cairotest.pl
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Gtk2 -init;
-use Cairo;
-
-my $area = Gtk2::DrawingArea->new();
-my $cairo;
-my $xx=0;
-sub draw() {
-       my $win = $area->window;
-       my $alloc = $area->allocation;
-       my $w = $alloc->width;
-       my $h = $alloc->height;
-       print "Area $w x $h, xx=$xx\n";
-
-       $cairo = Gtk2::Gdk::Cairo::Context->create($win);
-       $cairo->rectangle(0, 0, $w, $h);
-       $cairo->set_source_rgb(0, 0, 0);
-       $cairo->fill;
-
-       $cairo->rectangle($xx, 10, 40, 40);
-       $cairo->set_source_rgb(0, 0, 1);
-       $cairo->fill;
-
-       my $gc = Gtk2::Gdk::GC->new($win);
-       $gc->set_rgb_background(0x000000);
-       $gc->set_rgb_foreground(0x00ff00);
-       $win->draw_line($gc, $xx, 0, $w-1, $h-1);
-
-       $xx+=5;
-}
-
-my $timer;
-$area->signal_connect("expose-event" => sub {
-       draw();
-       if (!defined $timer) {
-               $timer = Glib::Timeout->add(10, sub { draw(); return 1; });
-       }
-});
-
-my $window = Gtk2::Window->new ('toplevel');
-$window->signal_connect ("delete-event" => sub { Gtk2->main_quit });
-$window->set_title("Brum");
-$window->set_wmclass("anim", "Anim");
-$window->set_default_size(640, 480);
-$window->add ($area);
-$window->show_all;
-$window->fullscreen;
-
-Gtk2->main;