From 1a51dabb06246effe59bdfb541aa1ff53aedf7d7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 2 Nov 2016 16:05:35 +0100 Subject: kill some unused functions --- control-center | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/control-center b/control-center index 533071cc..deefaacf 100755 --- a/control-center +++ b/control-center @@ -1457,40 +1457,12 @@ sub about_mga_cc() { #------------------------------------------------------------- # mcc specific graphic functions: - -sub set_page { - my ($index) = @_; - start_logdrake(); - set_page_raw($index); - hide_buttons(); -} - sub hide_buttons() { $buttons->hide; $cancel->hide; } -sub create_packtable2 { - my ($options, @l) = @_; - my $w = Gtk3::Table->new(0, 0, 1); - add2hash_($options, { xpadding => 5, ypadding => 0 }); - each_index { - my ($i, $l) = ($::i, $_); - each_index { - my $j = $::i; - if ($_) { - ref $_ or $_ = gtknew('WrappedLabel', text => $_); - $w->attach($_, $j, $j + 1, $i, $i + 1, ['expand', 'fill'], ['expand', 'fill'], $options->{xpadding}, $options->{ypadding}); - $_->show; - } - } @$l; - } @l; - $w->set_col_spacings($options->{col_spacings} || 0); - $w->set_row_spacings($options->{row_spacings} || 0); - gtkset_border_width($w, $::isInstall ? 3 : 10); -} - #------------------------------------------------------------- # mcc specific graphic functions: -- cgit v1.2.1