mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-03-12 09:51:05 -07:00
8e7f5f97db
Adds the capacity to handle types different from strings to the clipboard management functions on MS-Windows, and some logic required to convert media types names and content to be what yank-media and the modes that use it expect (bug#71909). * lisp/term/w32-win.el (w32--selection-target-translations): New variable that holds the name translations for media types. (w32--translate-selection-target): New function, translate the name of a media type. (w32--translate-reverse-selection-target): New function, reverse translation. (w32--get-selection): Modified to translate target names when asked for targets, and retrieve media types when asked for them. (w32--mime-type-textual-p): New function, checks if a MIME type is textual. * lisp/textmodes/sgml-mode.el (html-mode--image-yank-handler): Fixed the image save mechanism, that added line feed characters on MS-Windows, breaking binary formats. * src/w32image.c (gdiplus_init): Modified to fetch more functions fromm gdiplus. (get_encoder_clsid): Renamed to 'w32_gdip_get_encoder_clsid' and made nonstatic. (gdiplus_startup): Renamed to 'w32_gdiplus_startup' and made nonstatic. * src/w32select.c (stdfmt_name): Made global, was static function. (convert_dibv5_to_png): New function to convert DIBV5 clipboard format to PNG. (get_clipboard_format_name): New function get the name of a format given its index. (Fw32__get_clipboard_data_media): New function, retrieves and converts media content. (syms_of_w32select): Export new lisp functions. * src/w32gdiplus.h: New file, for definitions in w32image.c * doc/lispref/frames.texi: Updated with MS-Windows support. * etc/NEWS: Added entry about new feature.
113 lines
3.5 KiB
C
113 lines
3.5 KiB
C
/* Definitions and headers for communication on the Microsoft Windows API.
|
|
Copyright (C) 1995, 2001-2024 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU Emacs.
|
|
|
|
GNU Emacs is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or (at
|
|
your option) any later version.
|
|
|
|
GNU Emacs is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
#ifndef EMACS_W32GUI_H
|
|
#define EMACS_W32GUI_H
|
|
#include <windows.h>
|
|
|
|
#include "systime.h" /* for Time */
|
|
|
|
/* FIXME: old local memory management for menus. */
|
|
#define local_heap (GetProcessHeap ())
|
|
#define local_alloc(n) (HeapAlloc (local_heap, HEAP_ZERO_MEMORY, (n)))
|
|
#define local_free(p) (HeapFree (local_heap, 0, ((LPVOID) (p))))
|
|
|
|
typedef HBITMAP Emacs_Pixmap;
|
|
|
|
typedef HWND Window;
|
|
typedef HDC Display; /* HDC so it doesn't conflict with xpm lib. */
|
|
typedef HCURSOR Emacs_Cursor;
|
|
|
|
/* Windows equivalent of XImage. */
|
|
typedef struct _XImage
|
|
{
|
|
unsigned char * data;
|
|
BITMAPINFO info;
|
|
/* Optional RGBQUAD array for palette follows (see BITMAPINFO docs). */
|
|
} XImage;
|
|
|
|
struct image;
|
|
extern int w32_load_image (struct frame *f, struct image *img,
|
|
Lisp_Object spec_file, Lisp_Object spec_data);
|
|
extern bool w32_can_use_native_image_api (Lisp_Object);
|
|
extern bool w32_gdiplus_startup (void);
|
|
extern void w32_gdiplus_shutdown (void);
|
|
|
|
extern size_t w32_image_size (Emacs_Pixmap);
|
|
|
|
#define FACE_DEFAULT (~0)
|
|
|
|
extern HINSTANCE hinst;
|
|
|
|
/* Bit Gravity */
|
|
|
|
#define ForgetGravity 0
|
|
#define NorthWestGravity 1
|
|
#define NorthGravity 2
|
|
#define NorthEastGravity 3
|
|
#define WestGravity 4
|
|
#define CenterGravity 5
|
|
#define EastGravity 6
|
|
#define SouthWestGravity 7
|
|
#define SouthGravity 8
|
|
#define SouthEastGravity 9
|
|
#define StaticGravity 10
|
|
|
|
#define NoValue 0x0000
|
|
#define XValue 0x0001
|
|
#define YValue 0x0002
|
|
#define WidthValue 0x0004
|
|
#define HeightValue 0x0008
|
|
#define AllValues 0x000F
|
|
#define XNegative 0x0010
|
|
#define YNegative 0x0020
|
|
|
|
#define USPosition (1L << 0) /* user specified x, y */
|
|
#define USSize (1L << 1) /* user specified width, height */
|
|
|
|
#define PPosition (1L << 2) /* program specified position */
|
|
#define PSize (1L << 3) /* program specified size */
|
|
#define PMinSize (1L << 4) /* program specified minimum size */
|
|
#define PMaxSize (1L << 5) /* program specified maximum size */
|
|
#define PResizeInc (1L << 6) /* program specified resize increments */
|
|
#define PAspect (1L << 7) /* program specified min and max aspect ratios */
|
|
#define PBaseSize (1L << 8) /* program specified base for incrementing */
|
|
#define PWinGravity (1L << 9) /* program specified window gravity */
|
|
|
|
#define NativeRectangle RECT
|
|
|
|
#define CONVERT_TO_EMACS_RECT(xr,nr) \
|
|
((xr).x = (nr).left, \
|
|
(xr).y = (nr).top, \
|
|
(xr).width = ((nr).right - (nr).left), \
|
|
(xr).height = ((nr).bottom - (nr).top))
|
|
|
|
#define CONVERT_FROM_EMACS_RECT(xr,nr) \
|
|
((nr).left = (xr).x, \
|
|
(nr).top = (xr).y, \
|
|
(nr).right = ((xr).x + (xr).width), \
|
|
(nr).bottom = ((xr).y + (xr).height))
|
|
|
|
#define STORE_NATIVE_RECT(nr,x,y,width,height) \
|
|
((nr).left = (x), \
|
|
(nr).top = (y), \
|
|
(nr).right = ((nr).left + (width)), \
|
|
(nr).bottom = ((nr).top + (height)))
|
|
|
|
|
|
#endif /* EMACS_W32GUI_H */
|