From 491a53dfac510cfeac29bdd2cf8743592e465a9b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 10 Oct 2013 12:49:57 +0200 Subject: 'draw' replaces 'expose_event' --- perl-install/standalone/drakclock | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock index 369cdd5d9..6965d6b91 100755 --- a/perl-install/standalone/drakclock +++ b/perl-install/standalone/drakclock @@ -191,7 +191,7 @@ if (-e $ntpfile && is_ntp_daemon_running()) { 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(draw => \&draw); $drawing_area->signal_connect(realize => sub { my $window = $drawing_area->get_window; $pixmap = Gtk3::Gdk::Pixmap->new($window, @image_size, $window->get_depth); @@ -313,7 +313,7 @@ sub determine_radian { $r; } -sub expose_event { +sub draw { my ($widget, $event) = @_; my ($x, $y, $width, $height) = $event->area->values; $widget->get_window->draw_drawable($widget->style->fg_gc('normal'), $pixmap, $x, $y, $x, $y, $width, $height); -- cgit v1.2.1