my $day = $date->new_ttk__combox(
       -values => \@days,
       -textvariable => \$d,
   );
   Tkx::grid($day, ....);

   @days = (1 .. 28);
   $day->configure(-values => \@days);