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

more minor cleanup
---

diff --git a/lib/x11.ml b/lib/x11.ml
index e5a780e..ed7ed4a 100644
--- a/lib/x11.ml
+++ b/lib/x11.ml
@@ -100,7 +100,7 @@ external sel_fetch : xatom -> unit
 external font_load : string -> font
                    = "x11_font_load"
 
-external font_glyph : string -> glyph
+external font_glyph : font -> int -> glyph
                     = "x11_font_glyph"
 
 (* Automatically connect and disconnect to the display server *)
diff --git a/lib/x11_prims.c b/lib/x11_prims.c
index 3ddb44e..00f3ca6 100644
--- a/lib/x11_prims.c
+++ b/lib/x11_prims.c
@@ -11,7 +11,6 @@ static char* strmcat(char* first, ...);
 
 static void xftcolor(XftColor* xc, int c);
 static void xftdrawrect(int x, int y, int w, int h, int c);
-static void draw_text(void);
 
 static value ev_focus(XEvent*);
 static value ev_keypress(XEvent*);
@@ -457,10 +456,6 @@ static void xftdrawrect(int x, int y, int w, int h, int c) {
     XftColorFree(X.display, X.visual, X.colormap, &clr);
 }
 
-static void draw_text(void) {
-
-}
-
 /* Miscellaneous Utilities
  ******************************************************************************/
 static value mkvariant(int tag, int nargs, ...) {