summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-27 19:31:31 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-27 19:31:31 +0000
commit1425fd4eb7a7a54d52ec701df078816bde6e2141 (patch)
tree3ad4cf9e508be2cce9a5cc017fd5e144e9f5bcf5 /perl-install/interactive
parentafd0c04e912d3e9dd79210745c275045a31fa3fa (diff)
downloaddrakx-1425fd4eb7a7a54d52ec701df078816bde6e2141.tar
drakx-1425fd4eb7a7a54d52ec701df078816bde6e2141.tar.gz
drakx-1425fd4eb7a7a54d52ec701df078816bde6e2141.tar.bz2
drakx-1425fd4eb7a7a54d52ec701df078816bde6e2141.tar.xz
drakx-1425fd4eb7a7a54d52ec701df078816bde6e2141.zip
(create_widget) remove dead code
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 0 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index c306f80a9..c3c13e620 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -419,8 +419,6 @@ sub create_widget {
$set = sub { $adj->set_value($_[0]) };
} elsif ($e->{type} eq 'expander') {
$e->{grow} = 'fill';
- my $children = [ if_($e->{message}, { type => 'only_label', no_indent => 1, val => \$e->{message} }), @{$e->{children}} ];
- my $box = create_widgets_block($o, $children, $update, $ignore_ref);
$w = gtknew('HBox', children_tight => [
gtknew('Install_Button', text => $e->{text},
clicked => sub {