diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 17:16:30 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
| commit | b9e700aea8f8dfae031d9ff923f00393b052fd3d (patch) | |
| tree | 77874a7a36987e70b128aa303842ba623ec249e0 /perl-install/standalone/drakdvb | |
| parent | 2cfaaed875e7caeae898acf23630558077bb668a (diff) | |
| download | drakx-b9e700aea8f8dfae031d9ff923f00393b052fd3d.tar drakx-b9e700aea8f8dfae031d9ff923f00393b052fd3d.tar.gz drakx-b9e700aea8f8dfae031d9ff923f00393b052fd3d.tar.bz2 drakx-b9e700aea8f8dfae031d9ff923f00393b052fd3d.tar.xz drakx-b9e700aea8f8dfae031d9ff923f00393b052fd3d.zip | |
use Gtk3 namespace instead of Gtk2
Diffstat (limited to 'perl-install/standalone/drakdvb')
| -rwxr-xr-x | perl-install/standalone/drakdvb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb index 9ed351b71..bcbf4a9c9 100755 --- a/perl-install/standalone/drakdvb +++ b/perl-install/standalone/drakdvb @@ -25,7 +25,7 @@ use standalone; use mygtk3; use interactive; use ugtk3 qw(:create :helpers :wrappers); -use Gtk2::SimpleList; +use Gtk3::SimpleList; my $title = N("DVB"); $ugtk3::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png"; @@ -36,7 +36,7 @@ my $in = 'interactive'->vnew; my $config_file = "$ENV{HOME}/.mplayer/channels.conf"; -my $channel_list = Gtk2::SimpleList->new(N("Channel") => "text", "id" => "hidden"); +my $channel_list = Gtk3::SimpleList->new(N("Channel") => "text", "id" => "hidden"); my %buttons; my $pid; my $wait; @@ -49,7 +49,7 @@ sub get_selected_channel() { sub exitapp() { local $SIG{TERM} = 'IGNORE'; kill TERM => -$$; - Gtk2->main_quit; + Gtk3->main_quit; } sub detect_channels() { @@ -142,7 +142,7 @@ sub launch_tv() { gtkadd($w->{window}, gtknew('VBox', spacing => 5, children => [ - $::isEmbedded ? () : (0, Gtk2::Banner->new($ugtk3::wm_icon, $title)), + $::isEmbedded ? () : (0, Gtk3::Banner->new($ugtk3::wm_icon, $title)), 1, gtknew('ScrolledWindow', width => 300, height => 400, child => $channel_list), 0, gtknew('HButtonBox', layout => 'end', children_loose => [ $buttons{detect} = gtknew('Button', text => N("Detect Channels"), clicked => \&detect_channels), |