From 1ed3a0bc9a64339a0d06ded9845a0a4880d1cab8 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Fri, 22 Mar 2019 15:41:13 +0100
Subject: [PATCH] Use work procedure on Expose events.

Instead of doing a repaint on every Expose event, just trigger the work
procedure to do a repaint when the queue is idle.
---
 xwin.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xwin.c b/xwin.c
index 6e46f31..5dd7e7d 100644
--- a/xwin.c
+++ b/xwin.c
@@ -333,7 +333,7 @@ a_removehelp(Widget w, XEvent* event, String* params, Cardinal* num_params)
 /*
  * callback routines 
  */
-
+static void setRepaintWhenIdle();
 
 static void
 c_repaint(Widget w, XtPointer data, XEvent* event, Boolean* continue_to_dispatch)
@@ -342,7 +342,7 @@ c_repaint(Widget w, XtPointer data, XEvent* event, Boolean* continue_to_dispatch
     /*
      * printf("Expose\n"); 
      */
-    xrepaint_noclear();
+    setRepaintWhenIdle();
 }
 
 /*