From 3385b46f67b8ec9e9d6a6afd4402155d44620ab4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 31 Aug 2003 21:12:05 +0000
Subject: 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)
---
 perl-install/ugtk2.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/ugtk2.pm')

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);
 }
 
-- 
cgit v1.2.1