/usr/local/CPAN/Games-Worms/Games/Worms/Tk/Seg.pm

• package Games::Worms::Tk::Seg
  • draw
• __END__
• EOF

# Time-stamp: "1999-03-03 19:28:58 MST" -*-Perl-*-
package Games::Worms::Tk::Seg;
use strict;
use vars qw($Debug $VERSION @ISA);
use Games::Worms::Seg 0.60;

$Debug = 0;
@ISA = ('Games::Worms::Seg');
$VERSION = "0.60";

sub draw { # possibly redraw
  my $it = shift;
  $it->{'board'}->{'canvas'}->createLine(
   @{$it->{'coords'}}, '-fill' => $it->{'color'}
  );
}

1;

__END__