#!/usr/bin/perl -w

use strict;
use Tkx;

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

my $combo = $mw->new_ttk__combobox(-values=>['item1', 'item2', 'item3']);
$combo->g_pack();

while (eval{Tkx::winfo_exists('.')}) {
	Tkx::update();
	
	my $after = Tkx::after_info();
	if ($after) {
		my $info = Tkx::after_info($after);
		print ">>> $after // $info\n"; # to see the timer go
	}
}