diff options
author | cvs2svn | 2005-06-10 10:29:11 +0000 |
---|---|---|
committer | cvs2svn | 2005-06-10 10:29:11 +0000 |
commit | 960cdf29197bc3f5922110cf26627aa9709ac79b (patch) | |
tree | 7d6e4a472376b203d21826c2230b4a8c6a9024bd /sandbox/alledges.pl | |
parent | 3fc9c4bc1d6f70db41ad418992bf3d461059d3c0 (diff) | |
download | tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.zip tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.gz tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.bz2 tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.xz |
This commit was manufactured by cvs2svn to create branch 'bogue40'.
Diffstat (limited to 'sandbox/alledges.pl')
-rw-r--r-- | sandbox/alledges.pl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/sandbox/alledges.pl b/sandbox/alledges.pl deleted file mode 100644 index e8893a9..0000000 --- a/sandbox/alledges.pl +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl -# $Id$ -# these simple samples have been developped by C. Mertz mertz@cena.fr - -use Tk; -use Tk::Zinc; -use strict; - -my $defaultfont = '-b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1'; -my $mw = MainWindow->new(); -my $zinc = $mw->Zinc(-width => 700, -height => 300, -# -render => 1, - -backcolor => "grey50", # this will be transparent in the doc - )->pack(); - - -my $i = 1; -my $x = 40; -my $y = 40; -foreach my $contour ( (['left'], ['right'], ['top'], ['bottom'], - ['top', 'bottom'], ['left','right'], ['left','top'], ['contour'], - ['oblique'], ['counteroblique'],['oblique','counteroblique']) ) { - my $tab = $zinc->add('tabular', 1, 1, -position => [$x, $y], - -labelformat => "a5a5+0+0", - ); - my $contour_text = "['" . join ("','",@{$contour}) . "']"; - $zinc->itemconfigure($tab, 0, - -text => $contour_text, - -border => $contour, - -alignment => "center", - -filled => 1, - -backcolor => "gray95", -); - $i++; - if ($i == 5) { - $x = 40; - $y = $y + 50; - $i = 1; - } - else { - $x = $x + 160; - } -} - - - -MainLoop(); |