##
Tkx::.app.date.day_configure(-values => [1..28]);
####
&{"Tkx::.app.date.day_configure"}(-values => [1..28]);
####
my $day = $date->new_ttk__combox(
-values => \@days,
-textvariable => \$d,
);
Tkx::grid($day, ....);
@days = (1 .. 28);
$day->configure(-values => \@days);