diff options
author | lecoanet | 2003-10-02 13:08:50 +0000 |
---|---|---|
committer | lecoanet | 2003-10-02 13:08:50 +0000 |
commit | a3f8c8cf22a10344864fa34c37ad056f22a97400 (patch) | |
tree | 78b536c353e79318668a3fd48ce60efb3f41d790 /sandbox/lines.pl | |
parent | c0555ae91295a2e1a42440bd4e3846246583d76e (diff) | |
download | tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.zip tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.gz tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.bz2 tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/lines.pl')
-rw-r--r-- | sandbox/lines.pl | 16 |
1 files changed, 2 insertions, 14 deletions
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(); |