Tkx::ttk__style_map doesn't work

[MaxPerl]

Hello Mr. Aas, Thank you very much for your wonderful Tkx module.

Unfortunately Tkx::ttk__style_map doesn't work for me. Enclosed a simple example:

use utf8;
use Tkx;

Tkx::ttk__style_map('TButton -background [list disabled red]');

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

my $b = $mw->new_ttk__button(	-text	=> 'Hello',
			-command => sub {$mw->g_destroy},
			-state => disabled,
		); 
$b->g_pack();

Tkx::MainLoop();

Pure Tcl with the following commands works just fine: ttk::style map TButton -background [list disabled red] ttk::button .b -text "Hello" -state "disabled" pack .b

Thanks for your help, Max