summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorMystery Man 580 <uid580@mandriva.org>2002-12-04 10:39:07 +0000
committerMystery Man 580 <uid580@mandriva.org>2002-12-04 10:39:07 +0000
commit36ef7c69db4d0f29b9744652b34144976e4ea376 (patch)
tree453b9da66c9bf401585249719b8142aee9675e30 /perl-install
parente61c4d55d27253c200bd30f1ac6369f96d73756d (diff)
downloaddrakx-backup-do-not-use-36ef7c69db4d0f29b9744652b34144976e4ea376.tar
drakx-backup-do-not-use-36ef7c69db4d0f29b9744652b34144976e4ea376.tar.gz
drakx-backup-do-not-use-36ef7c69db4d0f29b9744652b34144976e4ea376.tar.bz2
drakx-backup-do-not-use-36ef7c69db4d0f29b9744652b34144976e4ea376.tar.xz
drakx-backup-do-not-use-36ef7c69db4d0f29b9744652b34144976e4ea376.zip
cleanups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/ui.pm15
1 files changed, 5 insertions, 10 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 293b398e6..da89bf111 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -259,20 +259,19 @@ sub new {
foreach (@class_tree) {
my ($devices_list, $title, $icon, $configurator) = @$_;
my $parent_iter = Gtk2::TreeIter->new;
- $tree_model->append($parent_iter, undef);
- $tree_model->set($parent_iter, [ 0 => gtkcreate_pixbuf($icon), 1 => $title ]);
+ $tree_model->append($parent_iter, undef);
+ $tree_model->set($parent_iter, [ 0 => gtkcreate_pixbuf($icon), 1 => $title ]);
# Fill the graphic tree with a "tree leaf" widget per device
foreach (@$devices_list) {
my $custom_id = $_->{custom_id};
delete $_->{custom_id};
$custom_id .= ' ' while exists($data{$custom_id}); # get a unique id for eg bt8xx audio/video funtions
- $tree_model->append_set($parent_iter, [ 1 => $custom_id ]);
+ $tree_model->append_set($parent_iter, [ 1 => $custom_id ]);
$data{$custom_id} = $_;
$configurators{$custom_id} = $configurator;
}
- #$tree->expand_to_path($tree_model->get_path($iter)) unless ($title eq "Unknown/Others");
- $tree->expand_row($tree_model->get_path($parent_iter), 1) unless ($title eq "Unknown/Others");
+ $tree->expand_row($tree_model->get_path($parent_iter), 1) unless $title eq "Unknown/Others";
}
$SIG{CHLD} = sub { undef $pid; $statusbar->pop($sig_id) };
@@ -301,11 +300,7 @@ sub quit_global {
sub show_hide {
my ($bool, $button) = @_;
- if ($bool) {
- $button->show();
- } else {
- $button->hide();
- }
+ if ($bool) { $button->show() } else { $button->hide() }
}