From a1e529eb32909581343dd1335dfb1f8cc55fb2a6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Buclin?= <LpSolit@gmail.com>
Date: Sun, 26 Mar 2017 01:22:57 +0100
Subject: Improve the CPU usage of the clock

---
 perl-install/NEWS                 | 3 +++
 perl-install/standalone/drakclock | 8 +++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 0288aeb90..bd616cffd 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakclock:
+  o fix the display of the clock (mga#11776)
+
 Version 17.75 - 17 March 2017
 
 - diskdrake:
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index c9fcf0c46..deb192bd5 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -319,7 +319,7 @@ sub determine_radian {
 sub draw {
     my ($widget, $event) = @_;
     $cairo = $event;
-    Repaint();
+    Repaint(undef, 1);
     0;
 }
 
@@ -340,7 +340,7 @@ sub time_to_rad {
 }
 
 sub Repaint {
-    my ($o_update_time) = @_;
+    my ($o_update_time, $skip_redraw) = @_;
     my ($sec, $min, $hour) = localtime(time());
     time_to_rad($sec, $min, $hour) if $o_update_time;
     ($midx, $midy) = ($drawing_area->get_allocated_width/2, $drawing_area->get_allocated_height/2);
@@ -353,7 +353,9 @@ sub Repaint {
     DrawHour();
     DrawMin();
     DrawSec();
-    $drawing_area->queue_draw;
+    # Only redraw the clock if there are changes.
+    # This highly decreases the CPU usage.
+    $drawing_area->queue_draw unless $skip_redraw;
     1;
 }
 
-- 
cgit v1.2.1