minor cleanup

diff --git a/lib/x11.ml b/lib/x11.ml
index 9a4990c3f8050ff73a481356af11e9dae27d3c90..e5a780e4d9d3d396b22c072fc7bf40ca1dcb57f3 100644 (file)
--- 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 7e386c19e8cdd7a39803d80feeba054890cb52a4..3ddb44e896d5e4214b835daf3eb20ef6f90f1cf6 100644 (file)
--- 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);