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