--- projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinpixmap.c	2016/11/05 10:54:17	69
+++ projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinpixmap.c	2016/11/05 11:07:06	71
@@ -1,202 +1,202 @@
-/* $Header$ */
-
-/* 
- * tkWinPixmap.c --
- *
- *	This file contains the Xlib emulation functions pertaining to
- *	creating and destroying pixmaps.
- *
- * 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.
- *
- * RCS: @(#) $Id: tkwinpixmap.c,v 1.1.1.1 2001/06/13 05:14:08 dtashley Exp $
- */
-
-#include "tkWinInt.h"
-
-
-/*
- *----------------------------------------------------------------------
- *
- * Tk_GetPixmap --
- *
- *	Creates an in memory drawing surface.
- *
- * Results:
- *	Returns a handle to a new pixmap.
- *
- * Side effects:
- *	Allocates a new Win32 bitmap.
- *
- *----------------------------------------------------------------------
- */
-
-Pixmap
-Tk_GetPixmap(display, d, width, height, depth)
-    Display* display;
-    Drawable d;
-    int width;
-    int height;
-    int depth;
-{
-    TkWinDrawable *newTwdPtr, *twdPtr;
-    int planes;
-    Screen *screen;
-    
-    display->request++;
-
-    newTwdPtr = (TkWinDrawable*) ckalloc(sizeof(TkWinDrawable));
-    newTwdPtr->type = TWD_BITMAP;
-    newTwdPtr->bitmap.depth = depth;
-    twdPtr = (TkWinDrawable *)d;
-    if (twdPtr->type != TWD_BITMAP) {
-	if (twdPtr->window.winPtr == NULL) {
-	    newTwdPtr->bitmap.colormap = DefaultColormap(display,
-		    DefaultScreen(display));
-	} else {
-	    newTwdPtr->bitmap.colormap = twdPtr->window.winPtr->atts.colormap;
-	}
-    } else {
-	newTwdPtr->bitmap.colormap = twdPtr->bitmap.colormap;
-    }
-    screen = &display->screens[0];
-    planes = 1;
-    if (depth == screen->root_depth) {
-	planes = (int) screen->ext_data;
-	depth /= planes;
-    }
-    newTwdPtr->bitmap.handle = CreateBitmap(width, height, planes, depth, NULL);
-
-    if (newTwdPtr->bitmap.handle == NULL) {
-	ckfree((char *) newTwdPtr);
-	return None;
-    }
-    
-    return (Pixmap)newTwdPtr;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tk_FreePixmap --
- *
- *	Release the resources associated with a pixmap.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	Deletes the bitmap created by Tk_GetPixmap.
- *
- *----------------------------------------------------------------------
- */
-
-void
-Tk_FreePixmap(display, pixmap)
-    Display* display;
-    Pixmap pixmap;
-{
-    TkWinDrawable *twdPtr = (TkWinDrawable *) pixmap;
-
-    display->request++;
-    if (twdPtr != NULL) {
-	DeleteObject(twdPtr->bitmap.handle);
-	ckfree((char *)twdPtr);
-    }
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TkSetPixmapColormap --
- *
- *	The following function is a hack used by the photo widget to
- *	explicitly set the colormap slot of a Pixmap.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TkSetPixmapColormap(pixmap, colormap)
-    Pixmap pixmap;
-    Colormap colormap;
-{
-    TkWinDrawable *twdPtr = (TkWinDrawable *)pixmap;
-    twdPtr->bitmap.colormap = colormap;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XGetGeometry --
- *
- *	Retrieve the geometry of the given drawable.  Note that
- *	this is a degenerate implementation that only returns the
- *	size of a pixmap or window.
- *
- * Results:
- *	Returns 0.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-XGetGeometry(display, d, root_return, x_return, y_return, width_return,
-	height_return, border_width_return, depth_return)
-    Display* display;
-    Drawable d;
-    Window* root_return;
-    int* x_return;
-    int* y_return;
-    unsigned int* width_return;
-    unsigned int* height_return;
-    unsigned int* border_width_return;
-    unsigned int* depth_return;
-{
-    TkWinDrawable *twdPtr = (TkWinDrawable *)d;
-
-    if (twdPtr->type == TWD_BITMAP) {
-	HDC dc;
-	BITMAPINFO info;
-
-	if (twdPtr->bitmap.handle == NULL) {
-            panic("XGetGeometry: invalid pixmap");
-        }
-        dc = GetDC(NULL);
-        info.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
-        info.bmiHeader.biBitCount = 0;
-        if (!GetDIBits(dc, twdPtr->bitmap.handle, 0, 0, NULL, &info,
-                DIB_RGB_COLORS)) {
-            panic("XGetGeometry: unable to get bitmap size");
-        }
-        ReleaseDC(NULL, dc);
-
-        *width_return = info.bmiHeader.biWidth;
-        *height_return = info.bmiHeader.biHeight;
-    } else if (twdPtr->type == TWD_WINDOW) {
-	RECT rect;
-
-        if (twdPtr->window.handle == NULL) {
-            panic("XGetGeometry: invalid window");
-        }
-        GetClientRect(twdPtr->window.handle, &rect);
-        *width_return = rect.right - rect.left;
-        *height_return = rect.bottom - rect.top;
-    } else {
-        panic("XGetGeometry: invalid window");
-    }
-    return 1;
-}
-
-/* End of tkwinpixmap.c */
+/* $Header$ */
+
+/* 
+ * tkWinPixmap.c --
+ *
+ *	This file contains the Xlib emulation functions pertaining to
+ *	creating and destroying pixmaps.
+ *
+ * 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.
+ *
+ * RCS: @(#) $Id: tkwinpixmap.c,v 1.1.1.1 2001/06/13 05:14:08 dtashley Exp $
+ */
+
+#include "tkWinInt.h"
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_GetPixmap --
+ *
+ *	Creates an in memory drawing surface.
+ *
+ * Results:
+ *	Returns a handle to a new pixmap.
+ *
+ * Side effects:
+ *	Allocates a new Win32 bitmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Pixmap
+Tk_GetPixmap(display, d, width, height, depth)
+    Display* display;
+    Drawable d;
+    int width;
+    int height;
+    int depth;
+{
+    TkWinDrawable *newTwdPtr, *twdPtr;
+    int planes;
+    Screen *screen;
+    
+    display->request++;
+
+    newTwdPtr = (TkWinDrawable*) ckalloc(sizeof(TkWinDrawable));
+    newTwdPtr->type = TWD_BITMAP;
+    newTwdPtr->bitmap.depth = depth;
+    twdPtr = (TkWinDrawable *)d;
+    if (twdPtr->type != TWD_BITMAP) {
+	if (twdPtr->window.winPtr == NULL) {
+	    newTwdPtr->bitmap.colormap = DefaultColormap(display,
+		    DefaultScreen(display));
+	} else {
+	    newTwdPtr->bitmap.colormap = twdPtr->window.winPtr->atts.colormap;
+	}
+    } else {
+	newTwdPtr->bitmap.colormap = twdPtr->bitmap.colormap;
+    }
+    screen = &display->screens[0];
+    planes = 1;
+    if (depth == screen->root_depth) {
+	planes = (int) screen->ext_data;
+	depth /= planes;
+    }
+    newTwdPtr->bitmap.handle = CreateBitmap(width, height, planes, depth, NULL);
+
+    if (newTwdPtr->bitmap.handle == NULL) {
+	ckfree((char *) newTwdPtr);
+	return None;
+    }
+    
+    return (Pixmap)newTwdPtr;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tk_FreePixmap --
+ *
+ *	Release the resources associated with a pixmap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Deletes the bitmap created by Tk_GetPixmap.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+Tk_FreePixmap(display, pixmap)
+    Display* display;
+    Pixmap pixmap;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *) pixmap;
+
+    display->request++;
+    if (twdPtr != NULL) {
+	DeleteObject(twdPtr->bitmap.handle);
+	ckfree((char *)twdPtr);
+    }
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TkSetPixmapColormap --
+ *
+ *	The following function is a hack used by the photo widget to
+ *	explicitly set the colormap slot of a Pixmap.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+void
+TkSetPixmapColormap(pixmap, colormap)
+    Pixmap pixmap;
+    Colormap colormap;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *)pixmap;
+    twdPtr->bitmap.colormap = colormap;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * XGetGeometry --
+ *
+ *	Retrieve the geometry of the given drawable.  Note that
+ *	this is a degenerate implementation that only returns the
+ *	size of a pixmap or window.
+ *
+ * Results:
+ *	Returns 0.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+XGetGeometry(display, d, root_return, x_return, y_return, width_return,
+	height_return, border_width_return, depth_return)
+    Display* display;
+    Drawable d;
+    Window* root_return;
+    int* x_return;
+    int* y_return;
+    unsigned int* width_return;
+    unsigned int* height_return;
+    unsigned int* border_width_return;
+    unsigned int* depth_return;
+{
+    TkWinDrawable *twdPtr = (TkWinDrawable *)d;
+
+    if (twdPtr->type == TWD_BITMAP) {
+	HDC dc;
+	BITMAPINFO info;
+
+	if (twdPtr->bitmap.handle == NULL) {
+            panic("XGetGeometry: invalid pixmap");
+        }
+        dc = GetDC(NULL);
+        info.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+        info.bmiHeader.biBitCount = 0;
+        if (!GetDIBits(dc, twdPtr->bitmap.handle, 0, 0, NULL, &info,
+                DIB_RGB_COLORS)) {
+            panic("XGetGeometry: unable to get bitmap size");
+        }
+        ReleaseDC(NULL, dc);
+
+        *width_return = info.bmiHeader.biWidth;
+        *height_return = info.bmiHeader.biHeight;
+    } else if (twdPtr->type == TWD_WINDOW) {
+	RECT rect;
+
+        if (twdPtr->window.handle == NULL) {
+            panic("XGetGeometry: invalid window");
+        }
+        GetClientRect(twdPtr->window.handle, &rect);
+        *width_return = rect.right - rect.left;
+        *height_return = rect.bottom - rect.top;
+    } else {
+        panic("XGetGeometry: invalid window");
+    }
+    return 1;
+}
+
+/* End of tkwinpixmap.c */