sub hover_over_drop {
    my ($label_obj, $b_entry, $x_pos) = @_;
                                                                                
    $label_obj->configure(-bg => $b_entry == 1 ? 'gray' : 'lightgray');
                                                                                
    if ($b_entry) {
        if (!$drag_obj) {
            print "First time:  ";
            $drag_obj = $label_obj;
        } else {
            print " Next time:  ";
        }
        printf "Dragging(%s)  Callback for(%s)\n",
            $drag_obj->cget(-text),
            $label_obj->cget(-text);
    }
}