sub slide_it {
   my ($c, $thing) = @_;
   for my $i (10..80) {
      $c->coords($thing, $i, $i);
      $c->update;                # update $c widget
      # $c->after(100);          # delay if desired
   }
}