summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-12 04:00:16 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:18 +0100
commitb2cd4d7c3e240b2ef55ed60884cbcc84f22e29dc (patch)
tree78f4f172feec14e2bcb1ed72432ced69030e54b5 /perl-install
parenta4e805c7d8de129537fce0f966bc303f58a37ad3 (diff)
downloaddrakx-b2cd4d7c3e240b2ef55ed60884cbcc84f22e29dc.tar
drakx-b2cd4d7c3e240b2ef55ed60884cbcc84f22e29dc.tar.gz
drakx-b2cd4d7c3e240b2ef55ed60884cbcc84f22e29dc.tar.bz2
drakx-b2cd4d7c3e240b2ef55ed60884cbcc84f22e29dc.tar.xz
drakx-b2cd4d7c3e240b2ef55ed60884cbcc84f22e29dc.zip
simplify: just use tooltips for service descriptions
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm20
1 files changed, 1 insertions, 19 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index a32e38d7c..7805f0141 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -224,18 +224,6 @@ sub ask_standalone_gtk {
ugtk3->import(qw(:wrappers :create));
my $W = ugtk3->new(N("Services"));
- my ($x, $y, $w_popup) = (0, 0);
- my $nopop = sub { $w_popup and $w_popup->destroy; undef $w_popup };
- my $display = sub {
- my ($text) = @_;
- $nopop->();
- gtkshow(gtkadd($w_popup = Gtk3::Window->new('popup'),
- gtksignal_connect(gtkadd(Gtk3::EventBox->new,
- gtkadd(gtkset_shadow_type(Gtk3::Frame->new, 'etched_out'),
- gtkset_justify(Gtk3::Label->new($text), 'left'))),
- button_press_event => sub { $nopop->() }
- )))->move($x, $y) if $text;
- };
my $update_service = sub {
my ($service, $label) = @_;
my $started = is_service_running($service);
@@ -253,9 +241,8 @@ sub ask_standalone_gtk {
$infos ||= N("No additional information\nabout this service, sorry.");
my $label = gtkset_justify(Gtk3::Label->new, 'left');
$update_service->($service, $label) if !$is_xinetd_service;
- [ gtkpack__(Gtk3::HBox->new(0,0), $_),
+ [ gtkpack__(Gtk3::HBox->new(0,0), gtkset_tip(Gtk3::Label->new($_), $infos)),
gtkpack__(Gtk3::HBox->new(0,0), $label),
- gtkpack__(Gtk3::HBox->new(0,0), gtksignal_connect(Gtk3::Button->new(N("Info")), clicked => sub { $display->($infos) })),
gtkpack__(Gtk3::HBox->new(0,0), gtkset_active(gtksignal_connect(
Gtk3::CheckButton->new($is_xinetd_service ? N("Start when requested") : N("On boot")),
@@ -274,7 +261,6 @@ sub ask_standalone_gtk {
local $_ = `GP_LANG="UTF-8" service $service $action 2>&1`; s/\033\[[^mG]*[mG]//g;
c::set_tagged_utf8($_);
$update_service->($service, $label);
- $display->($_);
})) if !$is_xinetd_service;
} (N_("Start"), N_("Stop"))
];
@@ -283,10 +269,6 @@ sub ask_standalone_gtk {
0, gtkpack(gtkset_border_width(Gtk3::HBox->new(0,0),5), $W->create_okcancel)
))
);
- $b->signal_connect(motion_notify_event => sub { my ($w, $e) = @_;
- my ($ox, $oy) = $w->get_window->get_origin;
- $x = $e->x+$ox; $y = $e->y+$oy });
- $b->signal_connect(button_press_event => sub { $nopop->() });
$::isEmbedded and gtkflush();
$W->main or return;
$on_services;