fix dialogs height: replace"small" option by "height" & "weight" ones

rationale: make thecommon path be the easiest one to set up (and make the
uncommon path be the hardest one to follow)

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e4013d543..382ce4ebc 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -364,7 +364,7 @@ sub _create_dialog {
     my $dialog = Gtk2::Dialog->new;
     $dialog->set_title($title);
     $dialog->set_position('center-on-parent');  # center-on-parent doesn't work
-    $dialog->set_size_request(-1, $o_options->{small} ? -1 : 400);
+    $dialog->set_size_request($o_options->{height} || -1, $o_options->{height} || -1);
     $dialog->set_modal(1);
     $dialog->set_transient_for($o_options->{transient}) if $o_options->{transient};
     $dialog;
@@ -406,21 +406,21 @@ sub create_dialog {
 sub info_dialog {
     my ($title, $label, $o_options) = @_;
     $o_options ||= { };
-    add2hash_($o_options, { small => 1, stock => 'gtk-dialog-info' });
+    add2hash_($o_options, { stock => 'gtk-dialog-info' });
     create_dialog($title, $label, $o_options);
 }
 
 sub warn_dialog {
     my ($title, $label, $o_options) = @_;
     $o_options ||= { };
-    add2hash_($o_options, { small => 1, stock => 'gtk-dialog-warning', cancel => 1 });
+    add2hash_($o_options, { stock => 'gtk-dialog-warning', cancel => 1 });
     create_dialog($title, $label, $o_options);
 }
 
 sub err_dialog {
     my ($title, $label, $o_options) = @_;
     $o_options ||= { };
-    add2hash_($o_options, { small => 1, stock => 'gtk-dialog-error' });
+    add2hash_($o_options, { stock => 'gtk-dialog-error' });
     create_dialog($title, $label, $o_options);
 }