allow for $widget->set( pack => {...} ) syntax too

dk · Sep 1, 2024 · c5af802 · c5af802
1 parent fa81249
commit c5af802
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Prima/Classes.pm b/Prima/Classes.pm
@@ -1719,7 +1719,7 @@ sub parse_markup { Prima::Drawable::Markup::M( $_[2] ) }
 sub __tk_dash_map
 {
 	my %ret;
-	my %hash = @_;
+	my %hash = (1 == @_ && ref($_[0]) eq 'HASH') ? %{$_[0]} : @_;
 	while ( my ( $k, $v ) = each %hash ) {
 		$k =~ s/^-//;
 		$ret{$k} = $v;