summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
commitbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch)
tree42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/my_gtk.pm
parent195f44c2da47b9f0df0461b593935d89619a5a0e (diff)
downloaddrakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm15
1 files changed, 7 insertions, 8 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index c10e1435f..89cacba8c 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -68,19 +68,19 @@ sub new {
for (my $i = 0; $i < (540/$y1); $i++) {
$draw1->window->draw_pixmap ($draw1->style->bg_gc('normal'),
$im_up, 0, 0, 0, $y1*$i,
- $x1 , $y1);
+ $x1, $y1);
$draw1->window->draw_string(
$style->font,
$draw1->style->white_gc,
40, 62,
- ($::Wizard_title) );
+ ($::Wizard_title));
}
});
$draw2->signal_connect(expose_event => sub {
for (my $i = 0; $i < (300/$y2); $i++) {
$draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'),
$im_left, 0, 0, 0, $y2*$i,
- $x2 , $y2);
+ $x2, $y2);
}
});
$::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
@@ -270,7 +270,7 @@ sub _create_window($$) {
my $b = Gtk::Gdk::Bitmap->create_from_data($w->window, $s, $wib, $he);
$w->window->shape_combine_mask($b, 0, 0);
}
- }) if ($my_gtk::force_center || $o->{force_center}) && !($my_gtk::force_position || $o->{force_position}) ;
+ }) if ($my_gtk::force_center || $o->{force_center}) && !($my_gtk::force_position || $o->{force_position});
$o->{window} = $::noBorder ? $w : $f;
$o->{rwindow} = $w;
@@ -378,8 +378,8 @@ sub ask_browse_tree_info {
$go->grab_focus;
$w->{rwindow}->show_all;
- my @toolbar = (ftout => [ N("Expand Tree") , sub { $tree->expand_recursive(undef) } ],
- ftin => [ N("Collapse Tree") , sub { $tree->collapse_recursive(undef) } ],
+ my @toolbar = (ftout => [ N("Expand Tree"), sub { $tree->expand_recursive(undef) } ],
+ ftin => [ N("Collapse Tree"), sub { $tree->collapse_recursive(undef) } ],
reload => [ N("Toggle between flat and group sorted"), sub { invbool(\$common->{state}{flat}); $common->{rebuild_tree}->() } ]);
foreach my $ic (@{$common->{icons} || []}) {
push @toolbar, ($ic->{icon} => [ $ic->{help}, sub {
@@ -535,8 +535,7 @@ sub ask_browse_tree_info_given_widgets {
my @unsel = $common->{grep_unselected}(@l);
my @p = @unsel ?
#- not all is selected, select all if no option to potentially override
- (exists $common->{partialsel_unsel} && $common->{partialsel_unsel}->(\@unsel, \@l) ? difference2(\@l, \@unsel) : @unsel)
- : @l;
+ (exists $common->{partialsel_unsel} && $common->{partialsel_unsel}->(\@unsel, \@l) ? difference2(\@l, \@unsel) : @unsel) : @l;
$common->{toggle_nodes}($set_leaf_state, @p);
&$update_size;
$parent = $curr;