From a3f8c8cf22a10344864fa34c37ad056f22a97400 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 2 Oct 2003 13:08:50 +0000
Subject: *** empty log message ***

---
 sandbox/lines.pl | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

(limited to 'sandbox/lines.pl')

diff --git a/sandbox/lines.pl b/sandbox/lines.pl
index 794de7b..5e7fc6e 100644
--- a/sandbox/lines.pl
+++ b/sandbox/lines.pl
@@ -2,20 +2,8 @@
 
 use Tk;
 use Tk::Zinc;
-
-#!/usr/bin/perl -w
-
-use Tk;
-use Tk::Zinc;
-use Controls;
-use Tk::Photo;
-require Tk::PNG;
     
 $mw = MainWindow->new();
-$logo = $mw->Photo(-file => "logo.gif");
-$papier = $mw->Photo(-file => "texture-paper.xpm");
-$penguin = $mw->Photo(-format => 'png',
-		      -file => "xpenguin.png");
 
 $top = 1;
 $zinc = $mw->Zinc(-render => 1,
@@ -28,6 +16,7 @@ $zinc = $mw->Zinc(-render => 1,
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => 500, -height => 500);
 
+print "coucou\n";
 $view = $zinc->add('group', $top, -tags => "controls");
 $mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430],
 		  -linewidth => 9,
@@ -39,9 +28,8 @@ $mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430],
 		  -capstyle => 'round',
 		  -linecolor => 'red:100');
 
-new Controls($zinc);
 $mw->Tk::bind('<p>', sub { print "perfs: ", join(',', $zinc->monitor()), "\n" });
-$mw->Tk::bind('<t>', sub { $zinc->remove($arc); });
+$mw->Tk::bind('<t>', sub { $zinc->remove($mp3); });
 $mw->Tk::bind('<q>', sub { exit(0); });
 $zinc->focusFollowsMouse();
 MainLoop();
-- 
cgit v1.1