my $color = $args{-c};
...

my $dtf = $mw->DynaTabFrame(
	-font => 'Arial 8', 
	...
	-tabcolor => $color,
        ....