diff options
| -rw-r--r-- | ChangeLog | 24 | ||||
| -rw-r--r-- | macosx/tkMacOSXDialog.c | 17 | ||||
| -rw-r--r-- | macosx/tkMacOSXXStubs.c | 345 |
3 files changed, 256 insertions, 130 deletions
@@ -1,3 +1,19 @@ +2007-06-23 Daniel Steffen <das@users.sourceforge.net> + + * generic/tkImgPhoto.c (ImgPhotoConfigureInstance, DisposeInstance): + use XDestroyImage instead of XFree to destroy XImage; replace runtime + endianness determination by compile-time check for WORDS_BIGENDIAN. + + * xlib/ximage.c (XCreateBitmapFromData): use XCreateImage and + XDestroyImage instead of creating XImage structure manually. + + * macosx/tkMacOSXXStubs.c (XCreateImage, DestroyImage): correct XImage + bytes_per_line/bitmap_pad calculations and endianness setting; free + image data and XImage structure at destruction; formatting cleanup. + + * macosx/tkMacOSXDialog.c (NavServicesGetFile): disable app-modal + sheet variant of nav dialog on OS versions where it causes problems. + 2007-06-20 Jeff Hobbs <jeffh@ActiveState.com> * library/ttk/ttk.tcl: should require Tk before pseudo-providing @@ -9,8 +25,8 @@ tests/ttk/panedwindow.test: Added -width and -height options. Added 'panes' method, return list of managed windows. 'sashpos' method is now documented as part of the public - interface, and details clarified. Should be easier - to set initial sash positions now [Alleviates #1659067]. + interface, and details clarified. Should be easier + to set initial sash positions now. Alleviates [Bug 1659067]. 2007-06-09 Jeff Hobbs <jeffh@ActiveState.com> @@ -19,7 +35,7 @@ * win/tkWinMenu.c (TkWinHandleMenuEvent): improve handling to allow for unicode char menu indices and not use CharUpper on Tcl - utf strings. [Bug #1734223] + utf strings. [Bug 1734223] 2007-06-09 Joe English <jenglish@users.sourceforge.net> @@ -29,7 +45,7 @@ + Ttk_Manager no longer responsible for managing slave records + Ttk_Manager structure now opaque + Ttk_Slave structure now private - + Pass Ttk_Manager * to Tk_GeomMgr hooks instead of Ttk_Slave * + + Pass Ttk_Manager* to Tk_GeomMgr hooks instead of Ttk_Slave* * generic/ttk/ttkFrame.c: Simplified -labelwidget management. diff --git a/macosx/tkMacOSXDialog.c b/macosx/tkMacOSXDialog.c index 14117ac..f8be9d0 100644 --- a/macosx/tkMacOSXDialog.c +++ b/macosx/tkMacOSXDialog.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: tkMacOSXDialog.c,v 1.25 2007/05/09 12:55:15 das Exp $ + * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.26 2007/06/23 00:26:32 das Exp $ */ #include "tkMacOSXInt.h" @@ -776,10 +776,17 @@ NavServicesGetFile( TkMacOSXHostToplevelExists(parent)) { options.parentWindow = GetWindowFromPort(TkMacOSXGetDrawablePort( Tk_WindowId(parent))); - if (options.parentWindow) { - options.modality = kWindowModalityWindowModal; - data.sheet = 1; - } + TK_IF_HI_TOOLBOX (5, + /* + * Impossible to modify dialog modality with the Cocoa-based + * NavServices implementation. + */ + ) TK_ELSE_HI_TOOLBOX (5, + if (options.parentWindow) { + options.modality = kWindowModalityWindowModal; + data.sheet = 1; + } + ) TK_ENDIF } /* diff --git a/macosx/tkMacOSXXStubs.c b/macosx/tkMacOSXXStubs.c index 30053ed..54ef360 100644 --- a/macosx/tkMacOSXXStubs.c +++ b/macosx/tkMacOSXXStubs.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXXStubs.c,v 1.20 2007/06/09 17:09:41 das Exp $ + * RCS: @(#) $Id: tkMacOSXXStubs.c,v 1.21 2007/06/23 00:26:32 das Exp $ */ #include "tkMacOSXInt.h" @@ -51,12 +51,14 @@ static int DefaultErrorHandler(Display* display, XErrorEvent* err_evt); * Other declarations */ -static int TkMacOSXXDestroyImage(XImage *image); -static unsigned long TkMacOSXXGetPixel(XImage *image, int x, int y); -static int TkMacOSXXPutPixel(XImage *image, int x, int y, unsigned long pixel); -static XImage *TkMacOSXXSubImage(XImage *image, int x, int y, +static int DestroyImage(XImage *image); +static unsigned long ImageGetPixel(XImage *image, int x, int y); +static int PutPixel(XImage *image, int x, int y, unsigned long pixel); +#if 0 +static XImage *SubImage(XImage *image, int x, int y, unsigned int width, unsigned int height); -static int TkMacOSXXAddPixel(XImage *image, long value); +static int AddPixel(XImage *image, long value); +#endif /* @@ -400,59 +402,6 @@ XRootWindow(Display *display, int screen_number) return ROOT_ID; } -XImage * -XGetImage(display, d, x, y, width, height, plane_mask, format) - Display *display; - Drawable d; - int x; - int y; - unsigned int width; - unsigned int height; - unsigned long plane_mask; - int format; -{ - XImage * imagePtr = NULL; - Pixmap pixmap = (Pixmap) NULL; - Tk_Window win = (Tk_Window) ((MacDrawable *) d)->winPtr; - GC gc; - int depth = 32; - int offset = 0; - int bitmap_pad = 32; - int bytes_per_line = 0; - - if (TkMacOSXGetDrawablePort(d)) { - if (format == ZPixmap) { - if (width > 0 && height > 0) { - /* Tk_GetPixmap fails for zero width or height */ - pixmap = Tk_GetPixmap(display, d, width, height, depth); - } - if (win) { - XGCValues values; - gc = Tk_GetGC(win, 0, &values); - } else { - gc = XCreateGC(display, pixmap, 0, NULL); - } - if (pixmap) { - XCopyArea(display, d, pixmap, gc, x, y, width, height, 0, 0); - } - imagePtr = XCreateImage(display, NULL, depth, format, offset, - (char*)TkMacOSXGetDrawablePort(pixmap), - width, height, bitmap_pad, bytes_per_line); - /* Track Pixmap underlying the XImage in the unused obdata field * - * so that we can treat XImages coming from XGetImage specially. */ - imagePtr->obdata = (XPointer) pixmap; - if (!win) { - XFreeGC(display, gc); - } - } else { - TkpDisplayWarning( - "XGetImage: only ZPixmap types are implemented", - "XGetImage Failure"); - } - } - return imagePtr; -} - int XGetGeometry(display, d, root_return, x_return, y_return, width_return, height_return, border_width_return, depth_return) @@ -547,60 +496,6 @@ XAllocSizeHints(void) } #endif -XImage * -XCreateImage( - Display* display, - Visual* visual, - unsigned int depth, - int format, - int offset, - char* data, - unsigned int width, - unsigned int height, - int bitmap_pad, - int bytes_per_line) -{ - XImage *ximage; - - display->request++; - ximage = (XImage *) ckalloc(sizeof(XImage)); - - ximage->height = height; - ximage->width = width; - ximage->depth = depth; - ximage->xoffset = offset; - ximage->format = format; - ximage->data = data; - ximage->bitmap_pad = bitmap_pad; - if (bytes_per_line == 0) { - ximage->bytes_per_line = width * 4; /* assuming 32 bits per pixel */ - } else { - ximage->bytes_per_line = bytes_per_line; - } - - if (format == ZPixmap) { - ximage->bits_per_pixel = 32; - ximage->bitmap_unit = 32; - } else { - ximage->bits_per_pixel = 1; - ximage->bitmap_unit = 8; - } - ximage->byte_order = LSBFirst; - ximage->bitmap_bit_order = LSBFirst; - ximage->red_mask = 0x00FF0000; - ximage->green_mask = 0x0000FF00; - ximage->blue_mask = 0x000000FF; - - ximage->obdata = NULL; - ximage->f.destroy_image = TkMacOSXXDestroyImage; - ximage->f.get_pixel = TkMacOSXXGetPixel; - ximage->f.put_pixel = TkMacOSXXPutPixel; - ximage->f.sub_image = TkMacOSXXSubImage; - ximage->f.add_pixel = TkMacOSXXAddPixel; - - return ximage; -} - GContext XGContextFromGC( GC gc) @@ -868,21 +763,211 @@ TkGetServerInfo( Tcl_AppendResult(interp, buffer, ServerVendor(Tk_Display(tkwin)), buffer2, NULL); } + +#pragma mark XImage handling /* - * Image stuff + *---------------------------------------------------------------------- + * + * XCreateImage -- + * + * Allocates storage for a new XImage. + * + * Results: + * Returns a newly allocated XImage. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +XImage * +XCreateImage( + Display* display, + Visual* visual, + unsigned int depth, + int format, + int offset, + char* data, + unsigned int width, + unsigned int height, + int bitmap_pad, + int bytes_per_line) +{ + XImage *ximage; + + display->request++; + ximage = (XImage *) ckalloc(sizeof(XImage)); + + ximage->height = height; + ximage->width = width; + ximage->depth = depth; + ximage->xoffset = offset; + ximage->format = format; + ximage->data = data; + + if (format == ZPixmap) { + ximage->bits_per_pixel = 32; + ximage->bitmap_unit = 32; + } else { + ximage->bits_per_pixel = 1; + ximage->bitmap_unit = 8; + } + if (bitmap_pad) { + ximage->bitmap_pad = bitmap_pad; + } else { + /* Use 16 byte alignment for best perfomance */ + ximage->bitmap_pad = 128; + } + if (bytes_per_line) { + ximage->bytes_per_line = bytes_per_line; + } else { + ximage->bytes_per_line = ((width * ximage->bits_per_pixel + + (ximage->bitmap_pad - 1)) >> 3) & + ~((ximage->bitmap_pad >> 3) - 1); + } +#ifdef WORDS_BIGENDIAN + ximage->byte_order = MSBFirst; + ximage->bitmap_bit_order = MSBFirst; +#else + ximage->byte_order = LSBFirst; + ximage->bitmap_bit_order = LSBFirst; +#endif + ximage->red_mask = 0x00FF0000; + ximage->green_mask = 0x0000FF00; + ximage->blue_mask = 0x000000FF; + ximage->obdata = NULL; + ximage->f.create_image = NULL; + ximage->f.destroy_image = DestroyImage; + ximage->f.get_pixel = ImageGetPixel; + ximage->f.put_pixel = PutPixel; + ximage->f.sub_image = NULL; + ximage->f.add_pixel = NULL; + + return ximage; +} + +/* + *---------------------------------------------------------------------- + * + * XGetImage -- + * + * This function copies data from a pixmap or window into an XImage. + * + * Results: + * Returns a newly allocated image containing the data from the given + * rectangle of the given drawable. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +XImage * +XGetImage( + Display *display, + Drawable d, + int x, + int y, + unsigned int width, + unsigned int height, + unsigned long plane_mask, + int format) +{ + XImage * imagePtr = NULL; + Pixmap pixmap = (Pixmap) NULL; + Tk_Window win = (Tk_Window) ((MacDrawable *) d)->winPtr; + GC gc; + int depth = 32; + int offset = 0; + int bitmap_pad = 32; + int bytes_per_line = 0; + + if (TkMacOSXGetDrawablePort(d)) { + if (format == ZPixmap) { + if (width > 0 && height > 0) { + /* Tk_GetPixmap fails for zero width or height */ + pixmap = Tk_GetPixmap(display, d, width, height, depth); + } + if (win) { + XGCValues values; + gc = Tk_GetGC(win, 0, &values); + } else { + gc = XCreateGC(display, pixmap, 0, NULL); + } + if (pixmap) { + XCopyArea(display, d, pixmap, gc, x, y, width, height, 0, 0); + } + imagePtr = XCreateImage(display, NULL, depth, format, offset, + (char*)TkMacOSXGetDrawablePort(pixmap), + width, height, bitmap_pad, bytes_per_line); + /* Track Pixmap underlying the XImage in the unused obdata field * + * so that we can treat XImages coming from XGetImage specially. */ + imagePtr->obdata = (XPointer) pixmap; + if (!win) { + XFreeGC(display, gc); + } + } else { + TkpDisplayWarning( + "XGetImage: only ZPixmap types are implemented", + "XGetImage Failure"); + } + } + return imagePtr; +} + +/* + *---------------------------------------------------------------------- + * + * DestroyImage -- + * + * This is a trivial wrapper around ckfree to make it possible to pass + * ckfree as a pointer. + * + * Results: + * None. + * + * Side effects: + * Deallocates the image. + * + *---------------------------------------------------------------------- */ static int -TkMacOSXXDestroyImage( +DestroyImage( XImage *image) { - if (image->obdata) - Tk_FreePixmap((Display*)gMacDisplay,(Pixmap)image->obdata); + if (image) { + if (image->obdata) { + Tk_FreePixmap((Display*) gMacDisplay, (Pixmap) image->obdata); + } + if (image->data) { + ckfree((char*) image->data); + } + ckfree((char*) image); + } return 0; } + +/* + *---------------------------------------------------------------------- + * + * ImageGetPixel -- + * + * Get a single pixel from an image. + * + * Results: + * Returns the 32 bit pixel value. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ static unsigned long -TkMacOSXXGetPixel( +ImageGetPixel( XImage *image, int x, int y) @@ -911,9 +996,25 @@ TkMacOSXXGetPixel( } return c; } + +/* + *---------------------------------------------------------------------- + * + * PutPixel -- + * + * Set a single pixel in an image. + * + * Results: + * None. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ static int -TkMacOSXXPutPixel( +PutPixel( XImage *image, int x, int y, @@ -946,8 +1047,9 @@ TkMacOSXXPutPixel( return 0; } +#if 0 static XImage * -TkMacOSXXSubImage( +SubImage( XImage *image, int x, int y, @@ -959,13 +1061,14 @@ TkMacOSXXSubImage( } static int -TkMacOSXXAddPixel( +AddPixel( XImage *image, long value) { Debugger(); return 0; } +#endif /* *---------------------------------------------------------------------- |