From 09c06faebdbeb97b03b0b571abe198d723c366b7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 8 Sep 2005 17:09:59 +0000 Subject: (create_box_with_title) kill that dead code path --- perl-install/ugtk2.pm | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 407aa223b..722843d7e 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -332,25 +332,6 @@ sub create_box_with_title { my ($txt) = @_; ref($txt) ? $txt : gtknew('WrappedLabel', text => $txt); }; - if (0 && ($o->{icon} && !$::isWizard || $::isInstall)) { - gtkpack__($box, - gtknew('HBox', children => [ - 0, gtknew('VBox', width => 15), - 0, eval { gtkcreate_img($o->{icon}) }, - 0, gtknew('VBox', width => 15), - 1, $o->{box_title} = gtknew('VBox', children_loose => [ - gtknew('HBox', children => [ - (map { - my $w = $new_label->($_); - $::isWizard and $w->set_justify("left"); - (0, $w); - } @l), - 1, gtknew('HBox'), - ]) ]) - ]), - if_($a, gtknew('HSeparator')) - ); - } else { gtkpack__($box, if_($::isWizard, gtknew('Label', height => 10)), (map { @@ -361,7 +342,6 @@ sub create_box_with_title { if_($::isWizard, gtknew('Label', height => 15)), if_($a, gtknew('HSeparator')), ); - } } } -- cgit v1.2.1