[perl-win32-gui-users] Clear a TreeView

[Piske, H. <Har...@bo...>]

This is not a question, I just wanted to share a solution. When you have a
treeview with a lot of entries (a hundred base nodes with dozens of branches
each) and do a $Main->Tree->Clear (), this can clog up the CPU for a
considerable time. Here's what's much faster (up to 100 times, depending on
the size and depth of the tree):

	@tv = ($key = $Main->Tree->GetChild (0));
	push @tv, $key while $key = $Main->Tree->GetNextSibling ($key);
	$Main->Tree->DeleteItem ($_) while $_ = pop @tv;

Note using the keys in reverse order (pop @tv instead of shift @tv) does the
trick.