Mercurial > emacs
comparison src/w32fns.c @ 100982:7c89b12c3a26
(Vx_pointer_shape, Vx_nontext_pointer_shape)
(Vx_mode_pointer_shape, Vx_window_horizontal_drag_shape)
(Vx_hourglass_pointer_shape, Vx_sensitive_text_pointer_shape):
Don't declare.
(syms_of_w32fns): Don't define x-pointer-shape variable. (Bug#1485)
(x_create_tip_frame) [GLYPH_DEBUG]: Enable image debugging code.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Thu, 08 Jan 2009 13:12:16 +0000 |
parents | e038c1a8307c |
children | dd95cb42c0aa |
comparison
equal
deleted
inserted
replaced
100981:9e538ad27ff8 | 100982:7c89b12c3a26 |
---|---|
154 /* If non-zero, a w32 timer that, when it expires, displays an | 154 /* If non-zero, a w32 timer that, when it expires, displays an |
155 hourglass cursor on all frames. */ | 155 hourglass cursor on all frames. */ |
156 static unsigned hourglass_timer = 0; | 156 static unsigned hourglass_timer = 0; |
157 static HWND hourglass_hwnd = NULL; | 157 static HWND hourglass_hwnd = NULL; |
158 | 158 |
159 #if 0 /* TODO: Mouse cursor customization. */ | |
159 /* The background and shape of the mouse pointer, and shape when not | 160 /* The background and shape of the mouse pointer, and shape when not |
160 over text or in the modeline. */ | 161 over text or in the modeline. */ |
161 | |
162 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape; | 162 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape; |
163 Lisp_Object Vx_hourglass_pointer_shape, Vx_window_horizontal_drag_shape; | 163 Lisp_Object Vx_hourglass_pointer_shape, Vx_window_horizontal_drag_shape; |
164 | 164 |
165 /* The shape when over mouse-sensitive text. */ | 165 /* The shape when over mouse-sensitive text. */ |
166 | 166 |
167 Lisp_Object Vx_sensitive_text_pointer_shape; | 167 Lisp_Object Vx_sensitive_text_pointer_shape; |
168 #endif | |
168 | 169 |
169 #ifndef IDC_HAND | 170 #ifndef IDC_HAND |
170 #define IDC_HAND MAKEINTRESOURCE(32649) | 171 #define IDC_HAND MAKEINTRESOURCE(32649) |
171 #endif | 172 #endif |
172 | 173 |
173 /* Color of chars displayed in cursor box. */ | 174 /* Color of chars displayed in cursor box. */ |
174 | |
175 Lisp_Object Vx_cursor_fore_pixel; | 175 Lisp_Object Vx_cursor_fore_pixel; |
176 | 176 |
177 /* Nonzero if using Windows. */ | 177 /* Nonzero if using Windows. */ |
178 | 178 |
179 static int w32_in_use; | 179 static int w32_in_use; |
1387 /* Don't let pointers be invisible. */ | 1387 /* Don't let pointers be invisible. */ |
1388 if (mask_color == f->output_data.w32->mouse_pixel | 1388 if (mask_color == f->output_data.w32->mouse_pixel |
1389 && mask_color == FRAME_BACKGROUND_PIXEL (f)) | 1389 && mask_color == FRAME_BACKGROUND_PIXEL (f)) |
1390 f->output_data.w32->mouse_pixel = FRAME_FOREGROUND_PIXEL (f); | 1390 f->output_data.w32->mouse_pixel = FRAME_FOREGROUND_PIXEL (f); |
1391 | 1391 |
1392 #if 0 /* TODO : cursor changes */ | 1392 #if 0 /* TODO : Mouse cursor customization. */ |
1393 BLOCK_INPUT; | 1393 BLOCK_INPUT; |
1394 | 1394 |
1395 /* It's not okay to crash if the user selects a screwy cursor. */ | 1395 /* It's not okay to crash if the user selects a screwy cursor. */ |
1396 count = x_catch_errors (FRAME_W32_DISPLAY (f)); | 1396 count = x_catch_errors (FRAME_W32_DISPLAY (f)); |
1397 | 1397 |
5409 bzero (f->output_data.w32, sizeof (struct w32_output)); | 5409 bzero (f->output_data.w32, sizeof (struct w32_output)); |
5410 | 5410 |
5411 FRAME_FONTSET (f) = -1; | 5411 FRAME_FONTSET (f) = -1; |
5412 f->icon_name = Qnil; | 5412 f->icon_name = Qnil; |
5413 | 5413 |
5414 #if 0 /* GLYPH_DEBUG TODO: image support. */ | 5414 #if GLYPH_DEBUG |
5415 image_cache_refcount = FRAME_IMAGE_CACHE (f)->refcount; | 5415 image_cache_refcount = FRAME_IMAGE_CACHE (f)->refcount; |
5416 dpyinfo_refcount = dpyinfo->reference_count; | 5416 dpyinfo_refcount = dpyinfo->reference_count; |
5417 #endif /* GLYPH_DEBUG */ | 5417 #endif /* GLYPH_DEBUG */ |
5418 FRAME_KBOARD (f) = kb; | 5418 FRAME_KBOARD (f) = kb; |
5419 f->output_data.w32->parent_desc = FRAME_W32_DISPLAY_INFO (f)->root_window; | 5419 f->output_data.w32->parent_desc = FRAME_W32_DISPLAY_INFO (f)->root_window; |
7077 volume-mute, volume-up, volume-down, | 7077 volume-mute, volume-up, volume-down, |
7078 mic-volume-mute, mic-volume-down, mic-volume-up, mic-toggle, | 7078 mic-volume-mute, mic-volume-down, mic-volume-up, mic-toggle, |
7079 bass-down, bass-boost, bass-up, treble-down, treble-up */); | 7079 bass-down, bass-boost, bass-up, treble-down, treble-up */); |
7080 w32_pass_multimedia_buttons_to_system = 1; | 7080 w32_pass_multimedia_buttons_to_system = 1; |
7081 | 7081 |
7082 #if 0 /* TODO: Mouse cursor customization. */ | |
7082 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape, | 7083 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape, |
7083 doc: /* The shape of the pointer when over text. | 7084 doc: /* The shape of the pointer when over text. |
7084 Changing the value does not affect existing frames | 7085 Changing the value does not affect existing frames |
7085 unless you set the mouse color. */); | 7086 unless you set the mouse color. */); |
7086 Vx_pointer_shape = Qnil; | 7087 Vx_pointer_shape = Qnil; |
7106 &Vx_window_horizontal_drag_shape, | 7107 &Vx_window_horizontal_drag_shape, |
7107 doc: /* Pointer shape to use for indicating a window can be dragged horizontally. | 7108 doc: /* Pointer shape to use for indicating a window can be dragged horizontally. |
7108 This variable takes effect when you create a new frame | 7109 This variable takes effect when you create a new frame |
7109 or when you set the mouse color. */); | 7110 or when you set the mouse color. */); |
7110 Vx_window_horizontal_drag_shape = Qnil; | 7111 Vx_window_horizontal_drag_shape = Qnil; |
7112 #endif | |
7111 | 7113 |
7112 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel, | 7114 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel, |
7113 doc: /* A string indicating the foreground color of the cursor box. */); | 7115 doc: /* A string indicating the foreground color of the cursor box. */); |
7114 Vx_cursor_fore_pixel = Qnil; | 7116 Vx_cursor_fore_pixel = Qnil; |
7115 | 7117 |