hi list,
i have a canvas with a line, that is related to 2 boxes.
in a sub mdule i drwa the line new, because a move in case of the mouse
position is not good, because a move will not registrated while the button
is pressed.
so i made this:
foreach $k(keys %OBJbind)
{
$can->delete($OBJbind{$k});
($von, $bis) = split(/-/, $k);
chomp($von, $bis);
@cordsA = $can->coords($OBJ{$von});
@cordsB = $can->coords($OBJ{$bis});
$OBJbind{$k} = $can->createLine($cordsA[0], $cordsA[1], $cordsB[2],
$cordsB[3]);
}
return;
}
but it dosn't work. If i rem the delete line it works fine. But than i have
hindred lines on my canvas, and i just want the new lines.
how do i delete a line on a canvas ?
thanx kris
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
