Re: text delete hangs in Perl/Tk

[arden]

Your syntax is correct: "$text->delete("1.0", 'end');". Are you sure that your script is hung or might it just be that the amount of text between your indexes is that large ("several thousand lines with as many as ~1000 characters per line")?

Perhaps if you provided us with the block of code around where you think it is hanging it might help. You could be wrong as to the cause. . .

- - arden.
TMI is better than NEI in the tech-help world!

[Anonymous Monk]

Unfortunately, the call is buried within a couple thousand lines of widget code and it would be difficult to provide a block that would provide enough context.

My main clue is that if I don't Add the tags to the text, the delete seems to work fine. Is it possible that if I've associated an invalid tag location with the text that it would cause delete to stall? Or perhaps I should be Removing all the tags before I try to delete the text lines with which they are associated? I have been operating under the assumption that the tags just "magically disappear" when you delete the text out from under them...

[remling]

Really old post but I had the exact same problem today... delete of large amount of data from Text box with loads of tags and it hangs forever. My solution was to first delete the tags, then delete the text - fixed the issue. Thanks for the clues guys! # delete contents $codevw->tagDelete('errs', 'lnums'); $codevw->delete('0.0', 'end');

[eserte]

It is possible that there is some non-optimized code in the Tk core in some special situations. Can you check if it is faster if you delete the tags (either with tagDelete or tagRemove) before deleting the contents?