#######################################

bindmousewheel($pane);
$pane->focus;
for ($datebegin, $dateend, $buttonok) {
    $_->bind('<Leave>', sub {$pane->focus} );
}

#######################################