summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2012-08-01 18:56:16 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:34 +0100
commite5d2e80a09845619e90d736ac9c0f5fb3665574d (patch)
tree857fcf4fce96435758c9734677e0d95d48eb758d /perl-install/standalone
parent57cc6e6e43ea687e8b9d55346698338d7d9d9dce (diff)
downloaddrakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar
drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.gz
drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.bz2
drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.tar.xz
drakx-e5d2e80a09845619e90d736ac9c0f5fb3665574d.zip
perlish ->window => ->get_window
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakclock4
-rwxr-xr-xperl-install/standalone/drakdvb4
-rwxr-xr-xperl-install/standalone/draksec2
-rwxr-xr-xperl-install/standalone/logdrake8
4 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 962474341..de1b9d0c9 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -193,7 +193,7 @@ my $pressed;
$drawing_area->set_events([ 'button_press_mask', 'button_release_mask', "pointer_motion_mask" ]);
$drawing_area->signal_connect(expose_event => \&expose_event);
$drawing_area->signal_connect(realize => sub {
- my $window = $drawing_area->window;
+ my $window = $drawing_area->get_window;
$pixmap = Gtk3::Gdk::Pixmap->new($window, @image_size, $window->get_depth);
});
@@ -316,7 +316,7 @@ sub determine_radian {
sub expose_event {
my ($widget, $event) = @_;
my ($x, $y, $width, $height) = $event->area->values;
- $widget->window->draw_drawable($widget->style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height);
+ $widget->get_window->draw_drawable($widget->style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height);
0;
}
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index bcbf4a9c9..2ced12974 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -56,7 +56,7 @@ sub detect_channels() {
if (-s $config_file) {
$in->ask_okcancel(N("Warning"), N("%s already exists and its contents will be lost", $config_file)) or return;
}
- gtkset_mousecursor_wait($w->{window}->window);
+ gtkset_mousecursor_wait($w->{window}->get_window);
$channel_list->set_sensitive(0);
$_->set_sensitive(0) foreach values %buttons;
@@ -73,7 +73,7 @@ sub detect_channels() {
} else {
$in->ask_warn(N("Error"), N("Could not get the list of available channels"));
}
- gtkset_mousecursor_normal($w->{window}->window);
+ gtkset_mousecursor_normal($w->{window}->get_window);
$buttons{detect}->set_sensitive(1);
$channel_list->set_sensitive(1);
};
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index c65e69a76..cda3a8705 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -69,7 +69,7 @@ sub wait_msg {
my $mainw = ugtk3->new(N("Please wait"), (modal => 1, transient => $w->{real_window}));
$mainw->{window}->add(gtknew('WrappedLabel', text => $_[0]));
$mainw->{rwindow}->show_all;
- gtkset_mousecursor_wait($mainw->{rwindow}->window);
+ gtkset_mousecursor_wait($mainw->{rwindow}->get_window);
# ugly workaround for gtk+ not displaying subdialog contents:
Glib::Timeout->add(300, sub { Gtk3->main_quit; 0 });
Gtk3->main;
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index f2e9d0120..2c98de368 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -192,8 +192,8 @@ sub quit() { ugtk3->exit(0) }
# search functions
#-------------------------------------------------------------
sub search() {
- return if !$log_text->window;
- $log_text->window->freeze_updates;
+ return if !$log_text->get_window;
+ $log_text->get_window->freeze_updates;
$log_buf->set_text('');
if ($isFile) {
parse_file($File, $File);
@@ -202,7 +202,7 @@ sub search() {
parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->get_active;
}
}
- $log_text->window->thaw_updates;
+ $log_text->get_window->thaw_updates;
$log_text->show;
gtkflush();
}
@@ -272,7 +272,7 @@ sub parse_file {
$i++;
if ($pbar && $i % 10) {
$pbar->set_fraction($i/$taille);
- $win_pb->window->process_updates(1); # no gtkflush() because we do not want to refresh the TextView
+ $win_pb->get_window->process_updates(1); # no gtkflush() because we do not want to refresh the TextView
}
logcolorize($_) if $test->($_);