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