summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/services.pm')
-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;