diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 17:16:09 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
| commit | 504f6c89db28716c7038153fb7838565b4ba0583 (patch) | |
| tree | ca6e1c843dfb368d34f5c6b89f962d61415525ee /perl-install/services.pm | |
| parent | 3252bfe856428c0a38ba7edb0f0ad6245537df6e (diff) | |
| download | drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.gz drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.bz2 drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.xz drakx-504f6c89db28716c7038153fb7838565b4ba0583.zip | |
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'perl-install/services.pm')
| -rw-r--r-- | perl-install/services.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm index 09f31ba20..1c3200c99 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -220,10 +220,10 @@ sub ask_standalone_gtk { my ($l, $on_services) = services(); my @xinetd_services = map { $_->[0] } xinetd_services(); - require ugtk2; - ugtk2->import(qw(:wrappers :create)); + require ugtk3; + ugtk3->import(qw(:wrappers :create)); - my $W = ugtk2->new(N("Services")); + my $W = ugtk3->new(N("Services")); my ($x, $y, $w_popup); my $nopop = sub { $w_popup and $w_popup->destroy; undef $w_popup }; my $display = sub { @@ -244,7 +244,7 @@ sub ask_standalone_gtk { my $b = Gtk2::EventBox->new; $b->set_events('pointer_motion_mask'); gtkadd($W->{window}, gtkadd($b, gtkpack_($W->create_box_with_title, - 0, mygtk2::gtknew('Title1', label => N("Services and daemons")), + 0, mygtk3::gtknew('Title1', label => N("Services and daemons")), 1, gtkset_size_request(create_scrolled_window(create_packtable({ col_spacings => 10, row_spacings => 3 }, map { my $service = $_; |