From 62e9e6611d2da6b8113210d5002611c40909231e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 14 Dec 1999 06:52:56 +0000
Subject: 	* mac/tkMacDraw.c: mac still needs pointer warping routine 
 * mac/tkMacXStubs.c: 	* win/tkWinDraw.c: 	* win/tkWinPointer.c: added
 support for pointer warping and 	platform specific support for dash
 patch items

---
 mac/tkMacDraw.c   | 22 +++++++++++++++++++-
 mac/tkMacXStubs.c | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 2 files changed, 82 insertions(+), 2 deletions(-)

diff --git a/mac/tkMacDraw.c b/mac/tkMacDraw.c
index a292479..f684976 100644
--- a/mac/tkMacDraw.c
+++ b/mac/tkMacDraw.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacDraw.c,v 1.7 1999/09/02 17:03:08 hobbs Exp $
+ * RCS: @(#) $Id: tkMacDraw.c,v 1.8 1999/12/14 06:52:56 hobbs Exp $
  */
 
 #include "tkInt.h"
@@ -975,6 +975,26 @@ TkMacSetUpGraphicsPort(
     if (gc->line_width > 1) {
 	PenSize(gc->line_width, gc->line_width);
     }
+    if (gc->line_style != LineSolid) {
+	unsigned char *p = (unsigned char *) &(gc->dashes);
+	/*
+	 * Here the dash pattern should be set in the drawing,
+	 * environment, but I don't know how to do that for the Mac.
+	 *
+	 * p[] is an array of unsigned chars containing the dash list.
+	 * A '\0' indicates the end of this list.
+	 *
+	 * Someone knows how to implement this? If you have a more
+	 * complete implementation of SetUpGraphicsPort() for
+	 * the Mac (or for Windows), please let me know.
+	 *
+	 *	Jan Nijtmans
+	 *	CMG Arnhem, B.V.
+	 *	email: j.nijtmans@chello.nl (private)
+	 *	       jan.nijtmans@cmg.nl (work)
+	 *	url:   http://purl.oclc.org/net/nijtmans/
+	 */
+    }
 }
 
 /*
diff --git a/mac/tkMacXStubs.c b/mac/tkMacXStubs.c
index a099c78..a555ecf 100644
--- a/mac/tkMacXStubs.c
+++ b/mac/tkMacXStubs.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMacXStubs.c,v 1.7 1999/05/22 06:35:49 jingham Exp $
+ * RCS: @(#) $Id: tkMacXStubs.c,v 1.8 1999/12/14 06:52:56 hobbs Exp $
  */
 
 #include "tkInt.h"
@@ -463,6 +463,66 @@ XSendEvent(
     return 0;
 }
 
+void
+XClearWindow(display, w)
+    Display* display;
+    Window w;
+{
+}
+
+void
+XDrawPoint(display, d, gc, x, y)
+    Display* display;
+    Drawable d;
+    GC gc;
+    int x;
+    int y;
+{
+}
+
+void
+XDrawPoints(display, d, gc, points, npoints, mode)
+    Display* display;
+    Drawable d;
+    GC gc;
+    XPoint* points;
+    int npoints;
+    int mode;
+{
+}
+
+void
+XWarpPointer(display, src_w, dest_w, src_x, src_y, src_width,
+	src_height, dest_x, dest_y)
+    Display* display;
+    Window src_w;
+    Window dest_w;
+    int src_x;
+    int src_y;
+    unsigned int src_width;
+    unsigned int src_height;
+    int dest_x;
+    int dest_y;
+{
+}
+
+void
+XQueryColor(display, colormap, def_in_out)
+    Display* display;
+    Colormap colormap;
+    XColor* def_in_out;
+{
+}
+
+void
+XQueryColors(display, colormap, defs_in_out, ncolors)
+    Display* display;
+    Colormap colormap;
+    XColor* defs_in_out;
+    int ncolors;
+{
+}
+
 int
 XGetWindowProperty(
     Display *display,
-- 
cgit v0.12