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

[chrstphrchvz]

I have not tried the example provided here, but I notice an example at https://tkdocs.com/tutorial/styles.html#styleoptions which uses Tkx::List() rather than Tcl list syntax. So I would try:

Tkx::ttk__style_map('TButton',
  -background => Tkx::list('disabled', 'red'),
);