From b9949cbb5c1d264bc0d3cb67aa9daa468857f5a8 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 28 Oct 2007 23:33:19 +0100
Subject: [PATCH] Yet another obsolete file deleted.

---
 cairotest.pl | 53 ----------------------------------------------------
 1 file changed, 53 deletions(-)
 delete mode 100755 cairotest.pl

diff --git a/cairotest.pl b/cairotest.pl
deleted file mode 100755
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;
-- 
2.39.2