fix default height

dk · Sep 29, 2024 · 9ded519 · 9ded519
1 parent 95b9603
commit 9ded519
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/Prima/Dialog/FileDialog.pm b/Prima/Dialog/FileDialog.pm
@@ -504,11 +504,11 @@ use vars qw(@ISA @images);
 
 sub profile_default
 {
-	my %sup = %{$_[ 0]-> SUPER::profile_default};
+	my $sup = $_[ 0]-> SUPER::profile_default;
 	return {
-		%sup,
+		%$sup,
 		style            => cs::DropDownList,
-		height           => $sup{ editHeight},
+		height           => $sup->{editHeight},
 		firstDrive       => 'A:',
 		drive            => 'C:',
 		editClass        => 'Prima::DriveComboBox::InputLine',

diff --git a/Prima/Widget/Date.pm b/Prima/Widget/Date.pm
@@ -90,11 +90,13 @@ use Prima qw(Calendar);
 
 sub profile_default
 {
+	my $d = $_[0]->SUPER::profile_default;
 	return {
-		%{ $_[0]->SUPER::profile_default },
+		%$d,
 		date      => $_[0]->time2date(time),
 		format    => $_[0]->default_format,
 		style     => cs::DropDown,
+		height    => $d->{editHeight},
 		editClass => 'Prima::Widget::Date::Input',
 		listClass => 'Prima::Widget::Date::List',
 	};