I have also a loop to destroy canvases in refresh, it might be faulty:

  for (my $n = 0; $n < $Maxobj; $n++ ){
    my $canvas =  $CstObj->{'matrix'}->windowDelete("$n,1");
  } ## should delete embedded widgets in canvas track too (I hope).
[download]