From 87287790a28caacdb135694ec8f48a5d0abc6972 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 15 Mar 2002 16:23:54 +0000
Subject: *** empty log message ***

---
 Perl/demos/Tk/demos/zinc_lib/demo.pl | 144 -----------------------------------
 1 file changed, 144 deletions(-)
 delete mode 100644 Perl/demos/Tk/demos/zinc_lib/demo.pl

(limited to 'Perl/demos/Tk')

diff --git a/Perl/demos/Tk/demos/zinc_lib/demo.pl b/Perl/demos/Tk/demos/zinc_lib/demo.pl
deleted file mode 100644
index 40ea0da..0000000
--- a/Perl/demos/Tk/demos/zinc_lib/demo.pl
+++ /dev/null
@@ -1,144 +0,0 @@
-#!/usr/bin/perl
-# $Id$
-# This software is under CENA Copyright.
-# However, the copyright has been retained under GPL licence
-# This demo launcher has been initially developped by Daniel Etienne <etienne@cena.fr>
-# and modified by Christophe Mertz <mertz@cena.fr>
-# Feel free to contribute and please read our call to help below : "We need You!"
-
-BEGIN {
-    unshift(@INC, "/usr/share/doc/zinc-perl/examples/");
-}
-
-use strict;
-use Tk;
-use SeeCode;
-
-my @examples =
-    (
-     "Examples of items" => "items.pl",
-     "All Options and their types of all items" => "all_options.pl",
-     "Examples of line style and line termination" => "lines.pl",
-     "Groups and Priorities" => "groups_priority.pl",
-     "Interactions on graphical objects" => "",
-     "Simple Interactions on a track item" => "simple_interaction_track.pl",
-     "Maps, uses and creations" => "",
-     "Transformations examples" => "",
-     "Clipping examples (with simple or multiple contours)" => "clipping.pl",
-     "Curves with mutliple contours examples" => "contours.pl",
-     "A simple graphical button based on pixmaps" => "",
-     "A simple graphical button based on openGL (needs openGL)" => "",
-     "A Zinc Goodie: \"ZincDebug.pm\"" => "",
-     "Axial color variation on the X axis (needs openGL)" => "color-x.pl",
-     "Axial color variation on the Y axis (needs openGL)" => "color-y.pl",
-     "Circular color variation (needs openGL)" => "color-circular.pl",
-     "The triangles item (needs openGL)" => "triangles.pl", 
-     "A simple animated application \"the Wheel of Fortune\". It is\n".
-     "An example of the use of groups, clipping and transformations"  => "wheelOfFortune.pl",
-     "A simple radar display" => "simpleradar.pl",
-     );
-
-my $defaultfont = '-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*';
-my $mw = MainWindow->new();
-$mw->title("Zinc Demonstrations");
-my $frame1 = $mw->Frame(-width => 520, -height => 400,-borderwidth => 3,
-			-relief => 'sunken')->pack(-padx => 5, -pady => 5,
-						   -ipadx => 10, -ipady => 10);
-
-my $demoCounter=1;
-for (my $i = 0; $i < @examples-1; $i += 2) {
-    my $demoTitle = $examples[$i];
-    if ($examples[$i+1] ne "") {
-	$demoTitle = $demoCounter . ". " . $demoTitle;
-	$demoCounter++;
-    }
-    else {
-	$demoTitle = "x. " . $demoTitle;
-    }
-    
-    my $lb =
-	$frame1->Label(-text => $demoTitle,
-		       -width => 55,
-		       -anchor => 'w',
-		       -justify => 'left',
-		       )->grid(-column => 1, -row => ($i+1)/2, -pady => 10);
-    if ($examples[$i+1] ne "") {
-	my $cmd = Tk::findINC($examples[$i+1]);
-	$frame1->Button(-text => "Run",
-			-command => sub {
-			    $lb->configure(-foreground => 'gray40');
-			    system("/usr/bin/perl $cmd &");
-			},
-			)->grid(-column => 2, -row => ($i+1)/2);
-    }
-    else {
-	$frame1->Button(-text => "ToBeDone",
-			-state => "disable",
-			)->grid(-column => 2, -row => ($i+1)/2);
-    }
-}	
-
-my $frame2 = $mw->Frame()->pack(-expand => 1, -side => 'bottom', -fill => 'both',
-				-ipady => 5);
-
-
-$frame2->Button(-text => 'We need You!',
-		-width => 8, -height => 1,
-		-command => \&we_need_you,
-		)->pack(-side => 'top', -expand => 1);
-
-$frame2->Button(-text => 'Quit',
-		-width => 8, -height => 1,
-		-command => sub {exit;},
-		)->pack(-side => 'top', -expand => 1);
-
-sub we_need_you {
-    my $WNY = MainWindow->new();  # WNY means We Need You!
-    $WNY->title("We need You!");
-        # Create a top-level window that displays a call for help!
-
-    my $t = $WNY->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true
-			   -height 30 -scrollbars e/);
-    $t->pack(qw/-expand yes -fill both/);
-
-    $t->insert('0.0',
-'The TkZinc widget has been developped by the CENA for its own
-need of prototyping environment. It is now heavily used by more
-than a dozen living projects involving advanced HMI. As we
-are convinced in the interest of Freee Software, Zinc is free
-Software under LGPL.
-Zinc is available at http://www.openatc.org/zinc or
-http://freshmeat.net/projects/zincisnotcanvas/
-
-People in charge of Zinc at CENA are good in producing good code.
-They are not so good in producing extensive documentation and
-examples.
-
-This simple demo is a first try to demontrate the hidden power
-behind Zinc.
-
-If you feel happy with Zinc, feel free to contribute too!
-One simple way is by producing simple samples like these
-available in demo.pl
-
-Please send us your production at pii-contact@cena.fr and
-we will add it in the next release of Zinc.
-
-        The CENA community of Zinc developpers and users.
-');
-
-    $t->mark(qw/set insert 0.0/);
-    my $frame = $WNY->Frame()->pack(-expand => 1, -side => 'bottom', -fill => 'both',
-				-ipady => 5);
-    $frame->Button(-text => 'Quit',
-		    -width => 8, -height => 1,
-		    -command => sub {$WNY->destroy;},
-		    )->pack(-side => 'top', -expand => 1);
-    
-
-} # end we_need_you
-
-
-MainLoop;
-
-
-- 
cgit v1.1