in reply to Draw a line

Hi!
A little example with Tk: 
use Tk;
my ($x1,$y1,$x2,$y2) = (100,100,130,130);
my $top = MainWindow->new;
my $can = $top->Canvas()->pack;
$can->createLine($x1,$y1,$x2,$y2);
MainLoop;

[download]

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom