aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/demo.pl144
1 files changed, 0 insertions, 144 deletions
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;
-
-