From: Michael D. Lowis <mike.lowis@gentex.com>
Date: Mon, 11 Sep 2017 20:21:26 +0000 (-0400)
Subject: minor cleanup
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=4f15fff1b7d22eb2380707a7f3f04989d7ddd002;p=archive%2Ftide-ocaml.git

minor cleanup
---

diff --git a/lib/x11.ml b/lib/x11.ml
index 9a4990c..e5a780e 100644
--- a/lib/x11.ml
+++ b/lib/x11.ml
@@ -101,10 +101,9 @@ external font_load : string -> font
                    = "x11_font_load"
 
 external font_glyph : string -> glyph
-                   = "x11_font_glyph"
+                    = "x11_font_glyph"
 
 (* Automatically connect and disconnect to the display server *)
 let () =
   connect ();
   at_exit disconnect
-
diff --git a/lib/x11_prims.c b/lib/x11_prims.c
index 7e386c1..3ddb44e 100644
--- a/lib/x11_prims.c
+++ b/lib/x11_prims.c
@@ -143,11 +143,8 @@ CAMLprim value x11_event_loop(value ms, value cbfn) {
         }
 
         /* generate an update event and flush any outgoing events */
-        if (X.running) {
-            printf("update W: %d H: %d\n", X.width, X.height);
-            draw_text();
+        if (X.running)
             caml_callback(cbfn, mkvariant(TUpdate, 2, Val_int(X.width), Val_int(X.height)));
-        }
         XFlush(X.display);
     }
     CAMLreturn(Val_unit);