1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 5e38ff6e3..a61ac98ac 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -190,7 +190,7 @@ if (-e $ntpfile && is_ntp_daemon_running()) {
 } else { ntp_widget_state(0) }
   
 my $pressed;
-$drawing_area->set_events([ 'button_press_mask', 'button_release_mask', "pointer_motion_mask" ]);
+$drawing_area->set_events(${ Gtk3::Gdk::EventMask->new([ 'button_press_mask', 'button_release_mask', "pointer_motion_mask" ]) });
 $drawing_area->signal_connect(draw => \&draw);
 $drawing_area->signal_connect(realize => sub {
                                   my $window = $drawing_area->get_window;