summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-10-10 12:49:57 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:38 +0100
commit491a53dfac510cfeac29bdd2cf8743592e465a9b (patch)
tree48c2afcc7191b4d1af0b0735aea091bb6dcf226c /perl-install/standalone
parent6864e4fc1bac9084c26ba4d502350c128c10ef6f (diff)
downloaddrakx-491a53dfac510cfeac29bdd2cf8743592e465a9b.tar
drakx-491a53dfac510cfeac29bdd2cf8743592e465a9b.tar.gz
drakx-491a53dfac510cfeac29bdd2cf8743592e465a9b.tar.bz2
drakx-491a53dfac510cfeac29bdd2cf8743592e465a9b.tar.xz
drakx-491a53dfac510cfeac29bdd2cf8743592e465a9b.zip
'draw' replaces 'expose_event'
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakclock4
1 files changed, 2 insertions, 2 deletions
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);