From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 sandbox/allreliefs.pl | 54 ---------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 sandbox/allreliefs.pl

(limited to 'sandbox/allreliefs.pl')

diff --git a/sandbox/allreliefs.pl b/sandbox/allreliefs.pl
deleted file mode 100644
index 891a16f..0000000
--- a/sandbox/allreliefs.pl
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/perl
-# $Id$
-# these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr
-
-use Tk;
-use Tk::Photo;
-use Tk::Zinc;
-use strict;
-
-my ($grp,, $s, $i);
-my $defaultfont = '-adobe-helvetica-bold-r-normal-*-100-*-*-*-*-*-*';
-my $mw = MainWindow->new();
-my $zinc = $mw->Zinc(-width => 700, -height => 300,
-		     -render => 1,
-		     -backcolor => "red", # this will be transparent in the doc
-		     )->pack();
-
-
-$grp = $zinc->add('group', 1);
-$zinc->add('rectangle', $grp, [0, 0, 70, 50],
-	   -filled => 1,
-	   -fillcolor => 'tan',
-	   -linecolor => 'tan',
-	   -linewidth => 6,
-	   -relief => 'raised',
-	   -tags => ['attrs']);
-$zinc->add('text', $grp,
-	   -text => 'raised',
-	   -anchor => 'center',
-	   -font => $defaultfont,
-	   -position => [35, -10],
-	   -tags => ['attrs']);
-$zinc->translate($grp, 20, 30);
-$i = 1;
-foreach $s (('sunken', 'ridge', 'groove',
-	     'roundraised', 'roundsunken', 'roundridge', 'roundgroove',
-	     'raisedrule', 'sunkenrule')) {
-  $grp = $zinc->clone($grp);
-  $zinc->addtag("g$grp", 'withtag', 'attrs', $grp, 0);
-  $zinc->itemconfigure("attrs && g$grp",
-		       -text => $s,
-		       -relief => $s);
-  $i++;
-  if ($i == 5) {
-    $zinc->translate($grp, -3*100, 80);
-    $i = 1;
-  }
-  else {
-    $zinc->translate($grp, 100, 0);
-  }
-}
-
-
-MainLoop();
-- 
cgit v1.1