summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakautoinst
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakautoinst')
-rwxr-xr-xperl-install/standalone/drakautoinst18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index f181d1e97..25eca63c2 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -118,7 +118,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
wacom => '',
);
- member($_, keys %struct_gui) and push @{$tree{$struct_gui{$_}}}, [ $_ , $pixmap{$_}, h2widget($o->{$_}, "\$o->\{$_\}") ] foreach keys %$o;
+ member($_, keys %struct_gui) and push @{$tree{$struct_gui{$_}}}, [ $_ , $pixmap{$_}, h2widget($o->{$_}, "\$o->\{$_}") ] foreach keys %$o;
my $W = ugtk2->new('$o edition');
my @box_to_hide;
@@ -167,7 +167,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
my $local_page = $nb_pages;
my $function = sub { $notebook->set_page($local_page) };
gtksignal_connect($button, toggled => sub {
- $button->get_active() and $function->()
+ $button->get_active and $function->()
});
my $b;
if ($_->[1] ne "") { $b = gtkcreate_img($_->[1]) } else { $b = () };
@@ -258,7 +258,7 @@ sub h2widget {
$widget_list[$i] = create_packtable({ col_spacings => 10, row_spacings => 3 },
map {
my $e;
- $e = h2widget($k->{$_}, "$label\{$_\}");
+ $e = h2widget($k->{$_}, "$label\{$_}");
[ "$_ : ", $e ] } @list_keys
),
)
@@ -270,7 +270,7 @@ sub h2widget {
$field eq '' and return undef;
gtkpack__($vb,
$widget_list[$i] = create_packtable({ col_spacings => 10, row_spacings => 3 },
- [ "$field : ", h2widget($ref_local_k, "$label\{$field\}") ])
+ [ "$field : ", h2widget($ref_local_k, "$label\{$field}") ])
);
@$widget_list2 = @widget_list;
},
@@ -278,7 +278,7 @@ sub h2widget {
);
} else {
$w = create_packtable({ col_spacings => 10, row_spacings => 3 },
- map { create_entry_element($k->{$_}, "$label\{$_\}", $_) } @list_keys
+ map { create_entry_element($k->{$_}, "$label\{$_}", $_) } @list_keys
)
}
} elsif (ref($k) =~ /ARRAY/) {
@@ -288,13 +288,13 @@ sub h2widget {
$w = gtkpack_(new Gtk2::VBox(0,0),
1, create_scrolled_window(
gtkpack__($vb = new Gtk2::VBox(0,5),
- map { $i++; $widget_list[$i] = h2widget($_, "$label\[$i\]") } @$k,
+ map { $i++; $widget_list[$i] = h2widget($_, "$label\[$i]") } @$k,
)
),
control_buttons($k->[0],
sub { my ($vb, $widget_list2, $ref_local_k, $i) = @_;
my @widget_list = @$widget_list2;
- gtkpack__($vb, $widget_list[$i] = h2widget($ref_local_k, "$label\[$i\]"));
+ gtkpack__($vb, $widget_list[$i] = h2widget($ref_local_k, "$label\[$i]"));
@$widget_list2 = @widget_list;
},
$vb, \$i, \@widget_list)
@@ -311,9 +311,9 @@ sub create_entry_element {
my ($text, $value, $label) = @_;
my $e;
if (ref $text =~ /HASH/) {
- return ([ "$label : ", h2widget($text, $label) ]);
+ return [ "$label : ", h2widget($text, $label) ];
} elsif (ref $text =~ /ARRAY/) {
- return ([ "$label : ", h2widget($text, $label) ]);
+ return [ "$label : ", h2widget($text, $label) ];
} else {
$e = new Gtk2::Entry;
$e->{value} = $value;