Mercurial > vim
view src/xpm_w32.c @ 7584:9b7de205336d v7.4.1092
commit https://github.com/vim/vim/commit/a803c7f94070f94b831fdfd1984f288c8b825b5d
Author: Bram Moolenaar <Bram@vim.org>
Date: Fri Jan 15 15:31:39 2016 +0100
patch 7.4.1092
Problem: It is not simple to test for an exception and give a proper error
message.
Solution: Add assert_exception().
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Fri, 15 Jan 2016 15:45:05 +0100 |
parents | ee138f29259e |
children | 1a5d34492798 |
line wrap: on
line source
/* vi:set ts=8 sts=4 sw=4: * * Load XPM image. * * This function is placed in separate file because Xpm headers conflict with * Vim ones :( * * Written by Sergey Khorev. * http://iamphet.nm.ru/vim/index.html */ #ifndef WIN32_LEAN_AND_MEAN # define WIN32_LEAN_AND_MEAN #endif #include <windows.h> /* reduced def from Vim.h */ #ifndef __ARGS # if defined(__STDC__) || defined(__GNUC__) || defined(WIN3264) # define __ARGS(x) x # else # define __ARGS(x) () # endif #endif #include "xpm_w32.h" /* Engage Windows support in libXpm */ #define FOR_MSW #include "xpm.h" /* * Tries to load an Xpm image from the file "filename". * Returns -1 on failure. * Returns 0 on success and stores image and mask BITMAPS in "hImage" and * "hShape". */ int LoadXpmImage(filename, hImage, hShape) char *filename; HBITMAP *hImage; HBITMAP *hShape; { XImage *img; /* loaded image */ XImage *shp; /* shapeimage */ XpmAttributes attr; int res; HDC hdc = CreateCompatibleDC(NULL); attr.valuemask = 0; res = XpmReadFileToImage(&hdc, filename, &img, &shp, &attr); DeleteDC(hdc); if (res < 0) return -1; if (shp == NULL) { if (img) XDestroyImage(img); return -1; } *hImage = img->bitmap; *hShape = shp->bitmap; return 0; }