Import Tk 8.6.12

This commit is contained in:
Steve Dower
2021-11-08 17:28:57 +00:00
parent 070b8750b0
commit c6710de848
290 changed files with 5626 additions and 3660 deletions

View File

@@ -51,11 +51,13 @@ XCreateBitmapFromData(
}
ximage = XCreateImage(display, NULL, 1, XYBitmap, 0, (char*) data, width,
height, 8, (width + 7) / 8);
ximage->bitmap_bit_order = LSBFirst;
_XInitImageFuncPtrs(ximage);
TkPutImage(NULL, 0, display, pix, gc, ximage, 0, 0, 0, 0, width, height);
ximage->data = NULL;
XDestroyImage(ximage);
if (ximage) {
ximage->bitmap_bit_order = LSBFirst;
_XInitImageFuncPtrs(ximage);
TkPutImage(NULL, 0, display, pix, gc, ximage, 0, 0, 0, 0, width, height);
ximage->data = NULL;
XDestroyImage(ximage);
}
XFreeGC(display, gc);
return pix;
}