if($_[1]->num_cards() <= 0) { # deck out of cards
    $_[0]->delete($_[4]); # Delete card back photo
    $_[0]->delete($_[3]); # Delete card back image
    $_[3] = ($_[0])->createRectangle(15,72,84,165);
    $deleted = 1;

    $_[1]->take_from($_[2]);
    $_[2] = Pile->new({ max => 52 });

    ($_[0])->bind($_[3], "<Button-1>",
                       [\&dk_clk, $_[1], $_[2], $_[3], $_[4]]);
  }