sub setdisplay {
   $typ = shift;
   $ca->configure(-type => $typ);
   $ca->redraw;
}