my $day_menu = $date_frame->BroseEntry(
                                       -state    => "readonly",
                                       -choices  => [(1..$days{$month})],
                                       -variable => \$day_number
                                      )->pack(
                                              -side=> "left"
                                             );