summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-31 21:12:05 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-31 21:12:05 +0000
commit3385b46f67b8ec9e9d6a6afd4402155d44620ab4 (patch)
tree553a5f3c3d5e2c9787a34bc60baaf3ee70d8a9e8 /perl-install/ugtk2.pm
parent9fbed9ab76940bea1d9285057c33bcb4a585b0ee (diff)
downloaddrakx-3385b46f67b8ec9e9d6a6afd4402155d44620ab4.tar
drakx-3385b46f67b8ec9e9d6a6afd4402155d44620ab4.tar.gz
drakx-3385b46f67b8ec9e9d6a6afd4402155d44620ab4.tar.bz2
drakx-3385b46f67b8ec9e9d6a6afd4402155d44620ab4.tar.xz
drakx-3385b46f67b8ec9e9d6a6afd4402155d44620ab4.zip
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)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm8
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);
}