diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 8 | ||||
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 8 |
4 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 90c0cb79e..19d705362 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -280,7 +280,7 @@ $window1->{window}->add( gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => \&quit_global), gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { if ($button_apply->get('sensitive')) { - my $dialog = _create_dialog(N("Please wait"), { small => 1 }); + my $dialog = _create_dialog(N("Please wait")); gtkpack($dialog->vbox, Gtk2::Label->new(N("Please Wait... Applying the configuration"))); $dialog->show_all; @@ -434,7 +434,7 @@ sub get_intf_status { sub configure_lan() { sensitive_buttons(0); - my $window = _create_dialog(N("LAN configuration"), { small => 1 }); + my $window = _create_dialog(N("LAN configuration")); my @card_tab; if (@all_cards < 1) { @@ -568,7 +568,7 @@ sub configure_net { Gtk2->main_quit; }; if (!$netcnx->{type}) { - $dialog = _create_dialog(N("LAN configuration"), { small => 1 }); + $dialog = _create_dialog(N("LAN configuration")); $dialog->vbox->add(Gtk2::Label->new(N("You don't have an Internet connection. Create one first by clicking on 'Configure'"))); gtkpack($dialog->action_area, @@ -580,7 +580,7 @@ Create one first by clicking on 'Configure'"))); } my $cnx = {}; $cnx = $netcnx->{$netcnx->{type}}; - $dialog = _create_dialog(N("Internet connection configuration"), { small => 1 }); + $dialog = _create_dialog(N("Internet connection configuration")); $dialog->signal_connect(delete_event => $exit_dialogsub); $dialog->set_border_width(10); diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index e3e01f151..1bca87d5a 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -309,7 +309,7 @@ sub build_it() { info_dialog(N("Floppy creation completed"), N("The creation of the boot floppy has been successfully completed \n")); ugtk2->exit; } else { - err_dialog(N("Error"), N("Unable to properly close mkbootdisk:\n\n<span foreground=\"Red\"><tt>%s</tt></span>", $log), { use_markup => 1, small => 1 }); + err_dialog(N("Error"), N("Unable to properly close mkbootdisk:\n\n<span foreground=\"Red\"><tt>%s</tt></span>", $log), { use_markup => 1 }); } return 0; diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 767a9a3d3..2db0049fb 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -109,7 +109,7 @@ my @menu_items = create_dialog(N("Harddrake help"), N("Description of the fields:\n\n") #-PO Do not alter the <span ..> and </span> tags - . join("\n\n", map { if_($fields{$_}[0], "<span foreground=\"royalblue3\">$fields{$_}[0]:</span> $fields{$_}[1]") } sort keys %$current_device), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}) }) + . join("\n\n", map { if_($fields{$_}[0], "<span foreground=\"royalblue3\">$fields{$_}[0]:</span> $fields{$_}[1]") } sort keys %$current_device), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}), height => 400 }) } else { create_dialog(N("Select a device !"), N("Once you've selected a device, you'll be able to see the device information in fields displayed on the right frame (\"Information\")"), { if_(!$::isEmbedded, transient => $w->{window}) }) 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); } |