my_delete($canvas, $_) for @{$ptext};