#!/usr/bin/perl --

use Tkx;

use strict;
use warnings;

$Tkx::TRACE = 64;
Tkx::package_require('tile');

my $mw = Tkx::widget->new('.');

my @days = ( 1 .. 31 );
my $d;

my $combo = $mw->new_ttk__combobox( -values => \@days );
$combo->g_grid(
    -column     => 0,
    -row        => 0,
    -columnspan => 1,
    -rowspan    => 1,
    -sticky     => "nsew"
);

use Data::Dumper;
warn Dumper( $combo, $combo );

$combo->configure( -values => [ 3, 3, 3 ] );

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

Tkx::widget::m_configure( $combo, -values => [ 6, 6, 6 ] );

Tkx::MainLoop();
__END__
Tkx-1-0.0s-tkx-temp.pl-9: package require tile
Tkx-2-0.0s-tkx-temp.pl-16: winfo children .
Tkx-3-0.0s-tkx-temp.pl-16: ttk::combobox .c -values [list 1 2 3 4 5 6 
+7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 
+31]
Tkx-4-0.0s-tkx-temp.pl-17: grid .c -column 0 -row 0 -columnspan 1 -row
+span 1 -sticky nsew
$VAR1 = bless( do{\(my $o = '.c')}, 'Tkx::widget' );
$VAR2 = $VAR1;
Tkx-5-0.0s-tkx-temp.pl-28: .c configure -values [list 3 3 3]
Tkx-6-0.0s-tkx-temp.pl-30: ttk::combobox .day -values [list 1 2 3 4 5 
+6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 3
+0 31]
Tkx-7-0.0s-tkx-temp.pl-31: grid .day -column 0 -row 2 -columnspan 1 -r
+owspan 1 -sticky nsew
Tkx-8-0.0s-tkx-temp.pl-40: .c configure -values [list 6 6 6]
[download]