Help for this page

Select Code to Download

Select or download this

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

Select or download this

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