sub updater {
   my ($i) = @_;
   #print "Updater called for canvas $i\n";
   if ($canvasViewed[$i] == 0 && $canvasList[$i]->ismapped) {
         $canvasViewed[$i] = 1;
         #print "trying viewAll for $i\n";
         $canvasList[$i]->viewAll;
      }
   }
}