src/w32term.h

   1 /* Definitions and headers for communication on the Microsoft Windows API.
   2    Copyright (C) 1995, 2001-2013 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software: you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation, either version 3 of the License, or
   9 (at your option) any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
  18
  19 /* Added by Kevin Gallo */
  20
  21 #include "w32gui.h"
  22 #include "frame.h"
  23 #include "atimer.h"
  24
  25 \f
  26 #define BLACK_PIX_DEFAULT(f) PALETTERGB(0,0,0)
  27 #define WHITE_PIX_DEFAULT(f) PALETTERGB(255,255,255)
  28
  29 #define FONT_WIDTH(f)     ((f)->max_width)
  30 #define FONT_HEIGHT(f)    ((f)->height)
  31 #define FONT_BASE(f)      ((f)->ascent)
  32 #define FONT_DESCENT(f)   ((f)->descent)
  33
  34 #define CP_DEFAULT 1004
  35
  36 #define CHECK_W32_FRAME(f, frame)               \
  37   if (NILP (frame))                             \
  38     f = SELECTED_FRAME ();                      \
  39   else                                          \
  40     {                                           \
  41       CHECK_LIVE_FRAME (frame, 0);              \
  42       f = XFRAME (frame);                       \
  43     }                                           \
  44   if (! FRAME_W32_P (f))
  45
  46 /* Indicates whether we are in the readsocket call and the message we
  47    are processing in the current loop */
  48
  49 extern MSG CurMsg;
  50 extern BOOL bUseDflt;
  51
  52 /* Structure recording bitmaps and reference count.
  53    If REFCOUNT is 0 then this record is free to be reused.  */
  54
  55 struct w32_bitmap_record
  56 {
  57   Pixmap pixmap;
  58   char *file;
  59   HINSTANCE hinst; /* Used to load the file */
  60   int refcount;
  61   /* Record some info about this pixmap.  */
  62   int height, width, depth;
  63 };
  64
  65 struct w32_palette_entry {
  66   struct w32_palette_entry * next;
  67   PALETTEENTRY entry;
  68 #if 0
  69   unsigned refcount;
  70 #endif
  71 };
  72
  73 extern void w32_regenerate_palette (struct frame *f);
  74 extern void w32_fullscreen_rect (HWND hwnd, int fsmode, RECT normal,
  75                                  RECT *rect);
  76
  77 \f
  78 /* For each display (currently only one on w32), we have a structure that
  79    records information about it.  */
  80
  81 struct w32_display_info
  82 {
  83   /* Chain of all w32_display_info structures.  */
  84   struct w32_display_info *next;
  85
  86   /* The generic display parameters corresponding to this w32 display.  */
  87   struct terminal *terminal;
  88
  89   /* This is a cons cell of the form (NAME . FONT-LIST-CACHE).
  90      The same cons cell also appears in x_display_name_list.  */
  91   Lisp_Object name_list_element;
  92
  93   /* Number of frames that are on this display.  */
  94   int reference_count;
  95
  96   /* Dots per inch of the screen.  */
  97   double resx, resy;
  98
  99   /* Number of planes on this screen.  */
 100   int n_planes;
 101
 102   /* Number of bits per pixel on this screen.  */
 103   int n_cbits;
 104
 105   /* Mask of things that cause the mouse to be grabbed.  */
 106   int grabbed;
 107
 108   /* Emacs bitmap-id of the default icon bitmap for this frame.
 109      Or -1 if none has been allocated yet.  */
 110   ptrdiff_t icon_bitmap_id;
 111
 112   /* The root window of this screen.  */
 113   Window root_window;
 114
 115   /* The cursor to use for vertical scroll bars.  */
 116   Cursor vertical_scroll_bar_cursor;
 117
 118   /* Resource data base */
 119   XrmDatabase xrdb;
 120
 121   /* color palette information.  */
 122   int has_palette;
 123   struct w32_palette_entry * color_list;
 124   unsigned num_colors;
 125   HPALETTE palette;
 126
 127   /* deferred action flags checked when starting frame update.  */
 128   int regen_palette;
 129
 130   /* Keystroke that has been faked by Emacs and will be ignored when
 131      received; value is reset after key is received.  */
 132   int faked_key;
 133
 134   /* Minimum width over all characters in all fonts in font_table.  */
 135   int smallest_char_width;
 136
 137   /* Minimum font height over all fonts in font_table.  */
 138   int smallest_font_height;
 139
 140   /* Reusable Graphics Context for drawing a cursor in a non-default face. */
 141   XGCValues *scratch_cursor_gc;
 142
 143   /* Information about the range of text currently shown in
 144      mouse-face.  */
 145   Mouse_HLInfo mouse_highlight;
 146
 147   char *w32_id_name;
 148
 149   /* The number of fonts actually stored in w32_font_table.
 150      font_table[n] is used and valid if 0 <= n < n_fonts. 0 <=
 151      n_fonts <= font_table_size. and font_table[i].name != 0. */
 152   int n_fonts;
 153
 154   /* Pointer to bitmap records.  */
 155   struct w32_bitmap_record *bitmaps;
 156
 157   /* Allocated size of bitmaps field.  */
 158   ptrdiff_t bitmaps_size;
 159
 160   /* Last used bitmap index.  */
 161   ptrdiff_t bitmaps_last;
 162
 163   /* The frame (if any) which has the window that has keyboard focus.
 164      Zero if none.  This is examined by Ffocus_frame in w32fns.c.  Note
 165      that a mere EnterNotify event can set this; if you need to know the
 166      last frame specified in a FocusIn or FocusOut event, use
 167      w32_focus_event_frame.  */
 168   struct frame *w32_focus_frame;
 169
 170   /* The last frame mentioned in a FocusIn or FocusOut event.  This is
 171      separate from w32_focus_frame, because whether or not LeaveNotify
 172      events cause us to lose focus depends on whether or not we have
 173      received a FocusIn event for it.  */
 174   struct frame *w32_focus_event_frame;
 175
 176   /* The frame which currently has the visual highlight, and should get
 177      keyboard input (other sorts of input have the frame encoded in the
 178      event).  It points to the focus frame's selected window's
 179      frame.  It differs from w32_focus_frame when we're using a global
 180      minibuffer.  */
 181   struct frame *x_highlight_frame;
 182
 183   /* The frame waiting to be auto-raised in w32_read_socket.  */
 184   struct frame *w32_pending_autoraise_frame;
 185
 186   /* The frame where the mouse was last time we reported a mouse event.  */
 187   struct frame *last_mouse_frame;
 188
 189   /* The frame where the mouse was last time we reported a mouse motion.  */
 190   struct frame *last_mouse_motion_frame;
 191
 192   /* The frame where the mouse was last time we reported a mouse position.  */
 193   struct frame *last_mouse_glyph_frame;
 194
 195   /* Position where the mouse was last time we reported a motion.
 196      This is a position on last_mouse_motion_frame.  */
 197   int last_mouse_motion_x;
 198   int last_mouse_motion_y;
 199
 200   /* Where the mouse was last time we reported a mouse position.
 201      This is a rectangle on last_mouse_glyph_frame.  */
 202   RECT last_mouse_glyph;
 203
 204   /* The scroll bar in which the last motion event occurred.  */
 205   struct scroll_bar *last_mouse_scroll_bar;
 206
 207   /* Mouse position on the scroll bar above.
 208      FIXME: shouldn't it be a member of struct scroll_bar?  */
 209   int last_mouse_scroll_bar_pos;
 210
 211   /* Time of last mouse movement.  */
 212   Time last_mouse_movement_time;
 213 };
 214
 215 /* This is a chain of structures for all the displays currently in use.  */
 216 extern struct w32_display_info *x_display_list;
 217 extern struct w32_display_info one_w32_display_info;
 218
 219 /* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
 220    one for each element of w32_display_list and in the same order.
 221    NAME is the name of the frame.
 222    FONT-LIST-CACHE records previous values returned by x-list-fonts.  */
 223 extern Lisp_Object w32_display_name_list;
 224
 225 extern struct frame *x_window_to_frame (struct w32_display_info *, HWND);
 226
 227 struct w32_display_info *x_display_info_for_name (Lisp_Object);
 228
 229 Lisp_Object display_x_get_resource (struct w32_display_info *,
 230                                     Lisp_Object, Lisp_Object,
 231                                     Lisp_Object, Lisp_Object);
 232
 233 /* also defined in xterm.h XXX: factor out to common header */
 234
 235 extern struct w32_display_info *w32_term_init (Lisp_Object,
 236                                                char *, char *);
 237 extern int w32_defined_color (struct frame *f, const char *color,
 238                               XColor *color_def, int alloc);
 239 extern void x_set_window_size (struct frame *f, int change_grav,
 240                               int cols, int rows);
 241 extern int x_display_pixel_height (struct w32_display_info *);
 242 extern int x_display_pixel_width (struct w32_display_info *);
 243 extern Lisp_Object x_get_focus_frame (struct frame *);
 244 extern void x_set_mouse_position (struct frame *f, int h, int v);
 245 extern void x_set_mouse_pixel_position (struct frame *f, int pix_x, int pix_y);
 246 extern void x_make_frame_visible (struct frame *f);
 247 extern void x_make_frame_invisible (struct frame *f);
 248 extern void x_iconify_frame (struct frame *f);
 249 extern void x_set_frame_alpha (struct frame *f);
 250 extern void x_set_menu_bar_lines (struct frame *, Lisp_Object, Lisp_Object);
 251 extern void x_set_tool_bar_lines (struct frame *f,
 252                                   Lisp_Object value,
 253                                   Lisp_Object oldval);
 254 extern void x_activate_menubar (struct frame *);
 255 extern int x_bitmap_icon (struct frame *, Lisp_Object);
 256 extern void initialize_frame_menubar (struct frame *);
 257 extern void x_free_frame_resources (struct frame *);
 258 extern void x_real_positions (struct frame *, int *, int *);
 259
 260 /* w32inevt.c */
 261 extern int w32_kbd_patch_key (KEY_EVENT_RECORD *event, int cpId);
 262 extern int w32_kbd_mods_to_emacs (DWORD mods, WORD key);
 263
 264
 265 extern Lisp_Object x_get_focus_frame (struct frame *);
 266
 267 \f
 268 #define PIX_TYPE COLORREF
 269
 270 /* Each W32 frame object points to its own struct w32_display object
 271    in the output_data.w32 field.  The w32_display structure contains all
 272    the information that is specific to W32 windows.  */
 273
 274 /* Put some things in x_output for compatibility.
 275    NTEMACS_TODO: Move all common things here to eliminate unnecessary
 276    diffs between X and w32 code.  */
 277 struct x_output
 278 {
 279   /* Keep track of focus.  May be EXPLICIT if we received a FocusIn for this
 280      frame, or IMPLICIT if we received an EnterNotify.
 281      FocusOut and LeaveNotify clears EXPLICIT/IMPLICIT. */
 282   int focus_state;
 283 };
 284
 285 enum
 286 {
 287   /* Values for focus_state, used as bit mask.
 288      EXPLICIT means we received a FocusIn for the frame and know it has
 289      the focus.  IMPLICIT means we received an EnterNotify and the frame
 290      may have the focus if no window manager is running.
 291      FocusOut and LeaveNotify clears EXPLICIT/IMPLICIT. */
 292   FOCUS_NONE     = 0,
 293   FOCUS_IMPLICIT = 1,
 294   FOCUS_EXPLICIT = 2
 295 };
 296
 297 struct w32_output
 298 {
 299   /* Placeholder for things accessed through output_data.x.  */
 300   struct x_output x_compatible;
 301
 302   /* Menubar "widget" handle.  */
 303   HMENU menubar_widget;
 304
 305   /* Original palette (used to deselect real palette after drawing) */
 306   HPALETTE old_palette;
 307
 308   /* Here are the Graphics Contexts for the default font.  */
 309   XGCValues *cursor_gc;                         /* cursor drawing */
 310
 311   /* The window used for this frame.
 312      May be zero while the frame object is being created
 313      and the window has not yet been created.  */
 314   Window window_desc;
 315
 316   /* The window that is the parent of this window.
 317      Usually this is a window that was made by the window manager,
 318      but it can be the root window, and it can be explicitly specified
 319      (see the explicit_parent field, below).  */
 320   Window parent_desc;
 321
 322   /* Default ASCII font of this frame. */
 323   struct font *font;
 324
 325   /* The baseline offset of the default ASCII font.  */
 326   int baseline_offset;
 327
 328   /* If a fontset is specified for this frame instead of font, this
 329      value contains an ID of the fontset, else -1.  */
 330   int fontset;
 331
 332   /* Pixel values used for various purposes.
 333      border_pixel may be -1 meaning use a gray tile.  */
 334   COLORREF cursor_pixel;
 335   COLORREF border_pixel;
 336   COLORREF mouse_pixel;
 337   COLORREF cursor_foreground_pixel;
 338
 339   /* Foreground color for scroll bars.  A value of -1 means use the
 340      default (black for non-toolkit scroll bars).  */
 341   COLORREF scroll_bar_foreground_pixel;
 342
 343   /* Background color for scroll bars.  A value of -1 means use the
 344      default (background color of the frame for non-toolkit scroll
 345      bars).  */
 346   COLORREF scroll_bar_background_pixel;
 347
 348   /* Descriptor for the cursor in use for this window.  */
 349   Cursor text_cursor;
 350   Cursor nontext_cursor;
 351   Cursor modeline_cursor;
 352   Cursor hand_cursor;
 353   Cursor hourglass_cursor;
 354   Cursor horizontal_drag_cursor;
 355
 356   /* Non-zero means hourglass cursor is currently displayed.  */
 357   unsigned hourglass_p : 1;
 358
 359   /* Non-hourglass cursor that is currently active.  */
 360   Cursor current_cursor;
 361
 362   DWORD dwStyle;
 363
 364   /* This is the Emacs structure for the display this frame is on.  */
 365   /* struct w32_display_info *display_info; */
 366
 367   /* Nonzero means our parent is another application's window
 368      and was explicitly specified.  */
 369   unsigned explicit_parent : 1;
 370
 371   /* Nonzero means tried already to make this frame visible.  */
 372   unsigned asked_for_visible : 1;
 373
 374   /* Nonzero means menubar is currently active.  */
 375   unsigned menubar_active : 1;
 376
 377   /* Relief GCs, colors etc.  */
 378   struct relief
 379   {
 380     XGCValues *gc;
 381     unsigned long pixel;
 382     int allocated_p;
 383   }
 384   black_relief, white_relief;
 385
 386   /* The background for which the above relief GCs were set up.
 387      They are changed only when a different background is involved.  */
 388   unsigned long relief_background;
 389
 390   /* Frame geometry and full-screen mode before it was resized by
 391      specifying the 'fullscreen' frame parameter.  Used to restore the
 392      geometry when 'fullscreen' is reset to nil.  */
 393   WINDOWPLACEMENT normal_placement;
 394   int prev_fsmode;
 395 };
 396
 397 extern struct w32_output w32term_display;
 398
 399 /* Return the X output data for frame F.  */
 400 #define FRAME_X_OUTPUT(f) ((f)->output_data.w32)
 401
 402 /* Return the window associated with the frame F.  */
 403 #define FRAME_W32_WINDOW(f) ((f)->output_data.w32->window_desc)
 404 #define FRAME_X_WINDOW(f) FRAME_W32_WINDOW (f)
 405
 406 #define FRAME_FONT(f) ((f)->output_data.w32->font)
 407 #define FRAME_FONTSET(f) ((f)->output_data.w32->fontset)
 408 #define FRAME_BASELINE_OFFSET(f) ((f)->output_data.w32->baseline_offset)
 409
 410 /* This gives the w32_display_info structure for the display F is on.  */
 411 #define FRAME_DISPLAY_INFO(f) (&one_w32_display_info)
 412
 413 /* This is the `Display *' which frame F is on.  */
 414 #define FRAME_X_DISPLAY(f) (0)
 415
 416 #define FRAME_NORMAL_PLACEMENT(F) ((F)->output_data.w32->normal_placement)
 417 #define FRAME_PREV_FSMODE(F)      ((F)->output_data.w32->prev_fsmode)
 418
 419 \f
 420 /* W32-specific scroll bar stuff.  */
 421
 422 /* We represent scroll bars as lisp vectors.  This allows us to place
 423    references to them in windows without worrying about whether we'll
 424    end up with windows referring to dead scroll bars; the garbage
 425    collector will free it when its time comes.
 426
 427    We use struct scroll_bar as a template for accessing fields of the
 428    vector.  */
 429
 430 struct scroll_bar {
 431
 432   /* This field is shared by all vectors.  */
 433   struct vectorlike_header header;
 434
 435   /* The window we're a scroll bar for.  */
 436   Lisp_Object window;
 437
 438   /* The next and previous in the chain of scroll bars in this frame.  */
 439   Lisp_Object next, prev;
 440
 441   /* The window representing this scroll bar.  Since this is a full
 442      32-bit quantity, we store it split into two 32-bit values.  */
 443   Lisp_Object w32_window_low, w32_window_high;
 444
 445   /* Same as above for the widget.  */
 446   Lisp_Object w32_widget_low, w32_widget_high;
 447
 448   /* The position and size of the scroll bar in pixels, relative to the
 449      frame.  */
 450   Lisp_Object top, left, width, height;
 451
 452   /* The starting and ending positions of the handle, relative to the
 453      handle area (i.e. zero is the top position, not
 454      SCROLL_BAR_TOP_BORDER).  If they're equal, that means the handle
 455      hasn't been drawn yet.
 456
 457      These are not actually the locations where the beginning and end
 458      are drawn; in order to keep handles from becoming invisible when
 459      editing large files, we establish a minimum height by always
 460      drawing handle bottoms VERTICAL_SCROLL_BAR_MIN_HANDLE pixels below
 461      where they would be normally; the bottom and top are in a
 462      different co-ordinate system.  */
 463   Lisp_Object start, end;
 464
 465   /* If the scroll bar handle is currently being dragged by the user,
 466      this is the number of pixels from the top of the handle to the
 467      place where the user grabbed it.  If the handle isn't currently
 468      being dragged, this is Qnil.  */
 469   Lisp_Object dragging;
 470
 471   /* 1 if the background of the fringe that is adjacent to a scroll
 472      bar is extended to the gap between the fringe and the bar.  */
 473   /* Note: this could be a bit field, but we need to take its address
 474      in ALLOCATE_PSEUDOVECTOR (see x_scroll_bar_create).  */
 475   bool fringe_extended_p;
 476 };
 477
 478 /* Turning a lisp vector value into a pointer to a struct scroll_bar.  */
 479 #define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))
 480
 481 #ifdef _WIN64
 482 /* Building a 64-bit C integer from two 32-bit lisp integers.  */
 483 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 32 | XINT (low))
 484
 485 /* Setting two lisp integers to the low and high words of a 64-bit C int.  */
 486 #define SCROLL_BAR_UNPACK(low, high, int64) \
 487   (XSETINT ((low),   ((DWORDLONG)(int64))        & 0xffffffff), \
 488    XSETINT ((high), ((DWORDLONG)(int64) >> 32) & 0xffffffff))
 489 #else  /* not _WIN64 */
 490 /* Building a 32-bit C integer from two 16-bit lisp integers.  */
 491 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))
 492
 493 /* Setting two lisp integers to the low and high words of a 32-bit C int.  */
 494 #define SCROLL_BAR_UNPACK(low, high, int32) \
 495   (XSETINT ((low),   (int32)        & 0xffff), \
 496    XSETINT ((high), ((int32) >> 16) & 0xffff))
 497 #endif  /* not _WIN64 */
 498
 499 /* Extract the window id of the scroll bar from a struct scroll_bar.  */
 500 #define SCROLL_BAR_W32_WINDOW(ptr) \
 501   ((Window) SCROLL_BAR_PACK ((ptr)->w32_window_low, (ptr)->w32_window_high))
 502
 503 /* Store a window id in a struct scroll_bar.  */
 504 #define SET_SCROLL_BAR_W32_WINDOW(ptr, id) \
 505   (SCROLL_BAR_UNPACK ((ptr)->w32_window_low, (ptr)->w32_window_high, (intptr_t) id))
 506
 507 /* Return the inside width of a vertical scroll bar, given the outside
 508    width.  */
 509 #define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f,width) \
 510   ((width) \
 511    - VERTICAL_SCROLL_BAR_LEFT_BORDER \
 512    - VERTICAL_SCROLL_BAR_RIGHT_BORDER)
 513
 514 /* Return the length of the rectangle within which the top of the
 515    handle must stay.  This isn't equivalent to the inside height,
 516    because the scroll bar handle has a minimum height.
 517
 518    This is the real range of motion for the scroll bar, so when we're
 519    scaling buffer positions to scroll bar positions, we use this, not
 520    VERTICAL_SCROLL_BAR_INSIDE_HEIGHT.  */
 521 #define VERTICAL_SCROLL_BAR_TOP_RANGE(f,height) \
 522   (VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, height) - VERTICAL_SCROLL_BAR_MIN_HANDLE)
 523
 524 /* Return the inside height of vertical scroll bar, given the outside
 525    height.  See VERTICAL_SCROLL_BAR_TOP_RANGE too.  */
 526 #define VERTICAL_SCROLL_BAR_INSIDE_HEIGHT(f,height) \
 527   ((height) - VERTICAL_SCROLL_BAR_TOP_BORDER - VERTICAL_SCROLL_BAR_BOTTOM_BORDER)
 528
 529
 530 /* Border widths for scroll bars.
 531
 532    Scroll bar windows don't have any borders; their border width is
 533    set to zero, and we redraw borders ourselves.  This makes the code
 534    a bit cleaner, since we don't have to convert between outside width
 535    (used when relating to the rest of the screen) and inside width
 536    (used when sizing and drawing the scroll bar window itself).
 537
 538    The handle moves up and down/back and forth in a rectangle inset
 539    from the edges of the scroll bar.  These are widths by which we
 540    inset the handle boundaries from the scroll bar edges.  */
 541 #define VERTICAL_SCROLL_BAR_LEFT_BORDER (0)
 542 #define VERTICAL_SCROLL_BAR_RIGHT_BORDER (0)
 543 #define VERTICAL_SCROLL_BAR_TOP_BORDER (vertical_scroll_bar_top_border)
 544 #define VERTICAL_SCROLL_BAR_BOTTOM_BORDER (vertical_scroll_bar_bottom_border)
 545
 546 /* Minimum lengths for scroll bar handles, in pixels.  */
 547 #define VERTICAL_SCROLL_BAR_MIN_HANDLE (vertical_scroll_bar_min_handle)
 548
 549 struct frame;  /* from frame.h */
 550
 551 extern void w32_fill_rect (struct frame *, HDC, COLORREF, RECT *);
 552 extern void w32_clear_window (struct frame *);
 553
 554 #define w32_fill_area(f,hdc,pix,x,y,nx,ny) \
 555 do { \
 556     RECT rect; \
 557     rect.left = x; \
 558     rect.top = y; \
 559     rect.right = x + nx; \
 560     rect.bottom = y + ny; \
 561     w32_fill_rect (f,hdc,pix,&rect); \
 562 } while (0)
 563
 564 #define w32_clear_rect(f,hdc,lprect) \
 565   w32_fill_rect (f, hdc, FRAME_BACKGROUND_PIXEL (f), lprect)
 566
 567 #define w32_clear_area(f,hdc,px,py,nx,ny) \
 568   w32_fill_area (f, hdc, FRAME_BACKGROUND_PIXEL (f), px, py, nx, ny)
 569
 570 /* Define for earlier versions of Visual C */
 571 #ifndef WM_MOUSEWHEEL
 572 #define WM_MOUSEWHEEL                  (WM_MOUSELAST + 1)
 573 #endif /* WM_MOUSEWHEEL */
 574 #ifndef MSH_MOUSEWHEEL
 575 #define MSH_MOUSEWHEEL                 "MSWHEEL_ROLLMSG"
 576 #endif /* MSH_MOUSEWHEEL */
 577 #ifndef WM_XBUTTONDOWN
 578 #define WM_XBUTTONDOWN                 (WM_MOUSEWHEEL + 1)
 579 #define WM_XBUTTONUP                   (WM_MOUSEWHEEL + 2)
 580 #endif /* WM_XBUTTONDOWN */
 581 #ifndef WM_MOUSEHWHEEL
 582 #define WM_MOUSEHWHEEL                 (WM_MOUSEWHEEL + 4)
 583 #endif /* WM_MOUSEHWHEEL  */
 584 #ifndef WM_APPCOMMAND
 585 #define WM_APPCOMMAND 0x319
 586 #define GET_APPCOMMAND_LPARAM(lParam)  (HIWORD(lParam) & 0x7fff)
 587 #endif
 588 #ifndef WM_UNICHAR
 589 #define WM_UNICHAR 0x109
 590 #endif
 591 #ifndef UNICODE_NOCHAR
 592 #define UNICODE_NOCHAR 0xFFFF
 593 #endif
 594
 595 #define WM_EMACS_START                 (WM_USER + 1)
 596 #define WM_EMACS_KILL                  (WM_EMACS_START + 0)
 597 #define WM_EMACS_CREATEWINDOW          (WM_EMACS_START + 1)
 598 #define WM_EMACS_DONE                  (WM_EMACS_START + 2)
 599 #define WM_EMACS_CREATESCROLLBAR       (WM_EMACS_START + 3)
 600 #define WM_EMACS_SHOWWINDOW            (WM_EMACS_START + 4)
 601 #define WM_EMACS_SETWINDOWPOS          (WM_EMACS_START + 5)
 602 #define WM_EMACS_DESTROYWINDOW         (WM_EMACS_START + 6)
 603 #define WM_EMACS_TRACKPOPUPMENU        (WM_EMACS_START + 7)
 604 #define WM_EMACS_SETFOCUS              (WM_EMACS_START + 8)
 605 #define WM_EMACS_SETFOREGROUND         (WM_EMACS_START + 9)
 606 #define WM_EMACS_SETLOCALE             (WM_EMACS_START + 10)
 607 #define WM_EMACS_SETKEYBOARDLAYOUT     (WM_EMACS_START + 11)
 608 #define WM_EMACS_REGISTER_HOT_KEY      (WM_EMACS_START + 12)
 609 #define WM_EMACS_UNREGISTER_HOT_KEY    (WM_EMACS_START + 13)
 610 #define WM_EMACS_TOGGLE_LOCK_KEY       (WM_EMACS_START + 14)
 611 #define WM_EMACS_TRACK_CARET           (WM_EMACS_START + 15)
 612 #define WM_EMACS_DESTROY_CARET         (WM_EMACS_START + 16)
 613 #define WM_EMACS_SHOW_CARET            (WM_EMACS_START + 17)
 614 #define WM_EMACS_HIDE_CARET            (WM_EMACS_START + 18)
 615 #define WM_EMACS_SETCURSOR             (WM_EMACS_START + 19)
 616 #define WM_EMACS_PAINT                 (WM_EMACS_START + 20)
 617 #define WM_EMACS_BRINGTOTOP            (WM_EMACS_START + 21)
 618 #define WM_EMACS_INPUT_READY           (WM_EMACS_START + 22)
 619 #define WM_EMACS_FILENOTIFY            (WM_EMACS_START + 23)
 620 #define WM_EMACS_END                   (WM_EMACS_START + 24)
 621
 622 #define WND_FONTWIDTH_INDEX    (0)
 623 #define WND_LINEHEIGHT_INDEX   (4)
 624 #define WND_BORDER_INDEX       (8)
 625 #define WND_SCROLLBAR_INDEX    (12)
 626 #define WND_BACKGROUND_INDEX   (16)
 627 #define WND_LAST_INDEX         (20)
 628
 629 #define WND_EXTRA_BYTES     (WND_LAST_INDEX)
 630
 631 extern DWORD dwWindowsThreadId;
 632 extern HANDLE hWindowsThread;
 633 extern DWORD dwMainThreadId;
 634 extern HANDLE hMainThread;
 635
 636 typedef struct W32Msg {
 637     MSG msg;
 638     DWORD dwModifiers;
 639     RECT rect;
 640 } W32Msg;
 641
 642 extern BOOL prepend_msg (W32Msg *lpmsg);
 643
 644 /* Structure for recording message when input thread must return a
 645    result that depends on lisp thread to compute.  Lisp thread can
 646    complete deferred messages out of order.  */
 647 typedef struct deferred_msg
 648 {
 649   struct deferred_msg * next;
 650   W32Msg                w32msg;
 651   LRESULT               result;
 652   int                   completed;
 653 } deferred_msg;
 654
 655 extern CRITICAL_SECTION critsect;
 656
 657 extern void init_crit (void);
 658 extern void delete_crit (void);
 659
 660 extern void signal_quit (void);
 661
 662 #define enter_crit() EnterCriticalSection (&critsect)
 663 #define leave_crit() LeaveCriticalSection (&critsect)
 664
 665 extern void select_palette (struct frame * f, HDC hdc);
 666 extern void deselect_palette (struct frame * f, HDC hdc);
 667 extern HDC get_frame_dc (struct frame * f);
 668 extern int release_frame_dc (struct frame * f, HDC hDC);
 669
 670 extern int drain_message_queue (void);
 671
 672 extern BOOL get_next_msg (W32Msg *, BOOL);
 673 extern BOOL post_msg (W32Msg *);
 674 extern void complete_deferred_msg (HWND hwnd, UINT msg, LRESULT result);
 675
 676 extern BOOL parse_button (int, int, int *, int *);
 677
 678 extern void w32_sys_ring_bell (struct frame *f);
 679 extern void x_delete_display (struct w32_display_info *dpyinfo);
 680
 681 extern volatile int notification_buffer_in_use;
 682 extern BYTE file_notifications[16384];
 683 extern DWORD notifications_size;
 684 extern void *notifications_desc;
 685 extern Lisp_Object w32_get_watch_object (void *);
 686 extern Lisp_Object lispy_file_action (DWORD);
 687
 688 extern void w32_initialize_display_info (Lisp_Object);
 689 extern void initialize_w32_display (struct terminal *, int *, int *);
 690
 691 /* Keypad command key support.  W32 doesn't have virtual keys defined
 692    for the function keys on the keypad (they are mapped to the standard
 693    function keys), so we define our own.  */
 694 #define VK_NUMPAD_BEGIN         0x92
 695 #define VK_NUMPAD_CLEAR         (VK_NUMPAD_BEGIN + 0)
 696 #define VK_NUMPAD_ENTER         (VK_NUMPAD_BEGIN + 1)
 697 #define VK_NUMPAD_PRIOR         (VK_NUMPAD_BEGIN + 2)
 698 #define VK_NUMPAD_NEXT          (VK_NUMPAD_BEGIN + 3)
 699 #define VK_NUMPAD_END           (VK_NUMPAD_BEGIN + 4)
 700 #define VK_NUMPAD_HOME          (VK_NUMPAD_BEGIN + 5)
 701 #define VK_NUMPAD_LEFT          (VK_NUMPAD_BEGIN + 6)
 702 #define VK_NUMPAD_UP            (VK_NUMPAD_BEGIN + 7)
 703 #define VK_NUMPAD_RIGHT         (VK_NUMPAD_BEGIN + 8)
 704 #define VK_NUMPAD_DOWN          (VK_NUMPAD_BEGIN + 9)
 705 #define VK_NUMPAD_INSERT        (VK_NUMPAD_BEGIN + 10)
 706 #define VK_NUMPAD_DELETE        (VK_NUMPAD_BEGIN + 11)
 707
 708 #ifndef VK_LWIN
 709 /* Older compiler environments don't have these defined.  */
 710 #define VK_LWIN                 0x5B
 711 #define VK_RWIN                 0x5C
 712 #define VK_APPS                 0x5D
 713 #endif
 714
 715 /* Support for treating Windows and Apps keys as modifiers.  These
 716    constants must not overlap with any of the dwControlKeyState flags in
 717    KEY_EVENT_RECORD.  */
 718 #define LEFT_WIN_PRESSED       0x8000
 719 #define RIGHT_WIN_PRESSED      0x4000
 720 #define APPS_PRESSED           0x2000
 721
 722 /* The current ANSI input codepage for GUI sessions.  */
 723 extern int w32_keyboard_codepage;
 724
 725 /* When compiling on Windows 9x/ME and NT 3.x, the following are not defined
 726    (even though they are supported on 98 and ME.  */
 727 #ifndef WM_MOUSELEAVE
 728 #define WM_MOUSELEAVE 0x02A3
 729 #define TME_LEAVE 0x00000002;
 730
 731 typedef struct tagTRACKMOUSEEVENT
 732 {
 733   DWORD cbSize;
 734   DWORD dwFlags;
 735   HWND hwndTrack;
 736   DWORD dwHoverTime;
 737 } TRACKMOUSEEVENT;
 738 #endif
 739
 740 struct image;
 741 struct face;
 742
 743 XGCValues *XCreateGC (void *, Window, unsigned long, XGCValues *);
 744
 745 typedef DWORD (WINAPI * ClipboardSequence_Proc) (void);
 746 typedef BOOL (WINAPI * AppendMenuW_Proc) (
 747     IN HMENU,
 748     IN UINT,
 749     IN UINT_PTR,
 750     IN LPCWSTR);
 751
 752 extern HWND w32_system_caret_hwnd;
 753 extern int w32_system_caret_height;
 754 extern int w32_system_caret_x;
 755 extern int w32_system_caret_y;
 756 extern struct window *w32_system_caret_window;
 757 extern int w32_system_caret_hdr_height;
 758 extern int w32_system_caret_mode_height;
 759
 760 #ifdef _MSC_VER
 761 #ifndef EnumSystemLocales
 762 /* MSVC headers define these only for _WIN32_WINNT >= 0x0500.  */
 763 typedef BOOL (CALLBACK *LOCALE_ENUMPROCA)(LPSTR);
 764 typedef BOOL (CALLBACK *LOCALE_ENUMPROCW)(LPWSTR);
 765 BOOL WINAPI EnumSystemLocalesA(LOCALE_ENUMPROCA,DWORD);
 766 BOOL WINAPI EnumSystemLocalesW(LOCALE_ENUMPROCW,DWORD);
 767 #ifdef UNICODE
 768 #define EnumSystemLocales EnumSystemLocalesW
 769 #else
 770 #define EnumSystemLocales EnumSystemLocalesA
 771 #endif
 772 #endif
 773 #endif
 774
 775 #if EMACSDEBUG
 776 extern const char*
 777 w32_name_of_message (UINT msg);
 778 #endif /* EMACSDEBUG */
 779
 780 #ifdef NTGUI_UNICODE
 781 extern Lisp_Object ntgui_encode_system (Lisp_Object str);
 782 #define GUISTR(x) (L ## x)
 783 #define GUI_ENCODE_FILE GUI_ENCODE_SYSTEM
 784 #define GUI_ENCODE_SYSTEM(x) ntgui_encode_system (x)
 785 #define GUI_FN(fn) fn ## W
 786 typedef wchar_t guichar_t;
 787 #else /* !NTGUI_UNICODE */
 788 #define GUISTR(x) x
 789 #define GUI_ENCODE_FILE ENCODE_FILE
 790 #define GUI_ENCODE_SYSTEM ENCODE_SYSTEM
 791 #define GUI_FN(fn) fn
 792 typedef char guichar_t;
 793 #endif /* NTGUI_UNICODE */
 794
 795 #define GUI_SDATA(x) ((guichar_t*) SDATA (x))
 796
 797 extern void syms_of_w32term (void);
 798 extern void syms_of_w32menu (void);
 799 extern void syms_of_w32fns (void);
 800
 801 extern void globals_of_w32menu (void);
 802 extern void globals_of_w32fns (void);
 803 extern void globals_of_w32notify (void);
 804
 805 #ifdef CYGWIN
 806 extern int w32_message_fd;
 807 #endif /* CYGWIN */