my @days = (1 .. 31);
Tkx::ttk__combobox(".app.date.day", -values => \@days,
                                    -textvariable => \$d,);
Tkx::grid(".app.date.day", -column => 0, -row => 2,
                       -columnspan => 1, -rowspan => 1,
                       -sticky => "nsew");

##</code><code>##

@days = qw(1 .. 28);
Tkx::ttk__configure(".app.date.day", -values => \@days,);