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'),
);