#!/usr/bin/perl use Tk; sub import { my ($req, @tab) = @_; my $mw = MainWindow->new; $mw->title("Debug"); $c = $mw->Scrolled("Canvas", -bg => 'black', -height => 400, -width => 600)->pack(); $canevas = $c->Subwidget("canvas"); $ox = 0; $oy = 0; $i = 10; foreach $y ( @tab ) { $canevas->createLine($ox, $oy, $i, $y, -width => 1, fill => 'red'); ($ox, $oy) = ($i, $y); $i += 10; print "$i, 0, $i, $y\n"; } print "@tab -> $req\n"; MainLoop; return 6; }