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/standalone/drakdvb | |
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/standalone/drakdvb')
-rwxr-xr-x | perl-install/standalone/drakdvb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb index ce735cafa..9ed351b71 100755 --- a/perl-install/standalone/drakdvb +++ b/perl-install/standalone/drakdvb @@ -22,14 +22,14 @@ use lib qw(/usr/lib/libDrakX); use MDK::Common; use common; use standalone; -use mygtk2; +use mygtk3; use interactive; -use ugtk2 qw(:create :helpers :wrappers); +use ugtk3 qw(:create :helpers :wrappers); use Gtk2::SimpleList; my $title = N("DVB"); -$ugtk2::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png"; -my $w = ugtk2->new($title); +$ugtk3::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png"; +my $w = ugtk3->new($title); $w->{window}->signal_connect('destroy' => \&exitapp); mygtk3::register_main_window($w->{real_window}); my $in = 'interactive'->vnew; @@ -77,7 +77,7 @@ sub detect_channels() { $buttons{detect}->set_sensitive(1); $channel_list->set_sensitive(1); }; - $wait = ugtk2->new(N("Please wait"), grab => 1); + $wait = ugtk3->new(N("Please wait"), grab => 1); $wait->{window}->signal_connect('destroy' => \&exitapp); if ($pid = fork()) { gtkadd($wait->{window}, @@ -142,7 +142,7 @@ sub launch_tv() { gtkadd($w->{window}, gtknew('VBox', spacing => 5, children => [ - $::isEmbedded ? () : (0, Gtk2::Banner->new($ugtk2::wm_icon, $title)), + $::isEmbedded ? () : (0, Gtk2::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), |