summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakdvb
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakdvb')
-rwxr-xr-xperl-install/standalone/drakdvb12
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),