upgrade to tcl/tk 8.6.8

1 files changed, 88 insertions, 0 deletions

diff --git a/tk8.6/xlib/xdraw.c b/tk8.6/xlib/xdraw.c
new file mode 100644
index 0000000..b8d7973
--- /dev/null
+++ b/tk8.6/xlib/xdraw.c
@@ -0,0 +1,88 @@
+/*
+ * xdraw.c --
+ *
+ *	This file contains generic procedures related to X drawing primitives.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+#include "tk.h"
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XDrawLine --
+ *
+ *	Draw a single line between two points in a given drawable.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Draws a single line segment.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XDrawLine(
+    Display *display,
+    Drawable d,
+    GC gc,
+    int x1, int y1,
+    int x2, int y2)		/* Coordinates of line segment. */
+{
+    XPoint points[2];
+
+    points[0].x = x1;
+    points[0].y = y1;
+    points[1].x = x2;
+    points[1].y = y2;
+    return XDrawLines(display, d, gc, points, 2, CoordModeOrigin);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XFillRectangle --
+ *
+ *	Fills a rectangular area in the given drawable. This procedure is
+ *	implemented as a call to XFillRectangles.
+ *
+ * Results:
+ *	None
+ *
+ * Side effects:
+ *	Fills the specified rectangle.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XFillRectangle(
+    Display *display,
+    Drawable d,
+    GC gc,
+    int x,
+    int y,
+    unsigned int width,
+    unsigned int height)
+{
+    XRectangle rectangle;
+    rectangle.x = x;
+    rectangle.y = y;
+    rectangle.width = width;
+    rectangle.height = height;
+    return XFillRectangles(display, d, gc, &rectangle, 1);
+}
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */