summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-27 19:25:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-27 19:25:55 +0000
commit13960f2b7428d0098b9798cbf4f0684d481c2409 (patch)
tree626fdcd4111d8dd21ba7508cb28a9e20fcc17404 /perl-install
parent6702b248463bc6d33332cc96be4309f4f4fc5037 (diff)
downloaddrakx-13960f2b7428d0098b9798cbf4f0684d481c2409.tar
drakx-13960f2b7428d0098b9798cbf4f0684d481c2409.tar.gz
drakx-13960f2b7428d0098b9798cbf4f0684d481c2409.tar.bz2
drakx-13960f2b7428d0098b9798cbf4f0684d481c2409.tar.xz
drakx-13960f2b7428d0098b9798cbf4f0684d481c2409.zip
- move the require on my_gtk to ask_standalone_gtk
- cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm15
1 files changed, 4 insertions, 11 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 818397f18..b8a71b735 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -8,7 +8,6 @@ use strict;
#-######################################################################################
use common;
use run_program;
-use my_gtk qw(:helpers :wrappers);
sub description {
my %services = (
@@ -183,6 +182,10 @@ sub ask_install {
sub ask_standalone_gtk {
my ($in, $prefix) = @_;
my ($l, $on_services) = services($prefix);
+
+ require my_gtk;
+ my_gtk->import(qw(:helpers :wrappers));
+
my $W = my_gtk->new(_("Services"));
my ($x, $y, $w_popup);
my $nopop = sub { $w_popup and $w_popup->destroy };
@@ -285,14 +288,4 @@ sub services {
[ map { $_->[0] } @l ], [ map { $_->[0] } grep { $_->[1] } @l ];
}
-sub mapgrep(&@) {
- my $f = shift;
- my @l;
- foreach (@_) {
- my ($b, $v) = $f->($_);
- push @l, $v if $b;
- }
- @l;
-}
-
1;