summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakconnect8
-rwxr-xr-xperl-install/standalone/drakfloppy2
-rwxr-xr-xperl-install/standalone/harddrake22
3 files changed, 6 insertions, 6 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}) })