Mercurial > hg > xemacs-beta

comparison src/scrollbar-msw.c @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents b2472a1930f2
children 57709be46d1b
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
25 25
26 #include <config.h> 26 #include <config.h>
27 #include "lisp.h" 27 #include "lisp.h"
28 28
29 #include "console-msw.h" 29 #include "console-msw.h"
30 #include "events.h"
31 #include "frame.h"
30 #include "scrollbar-msw.h" 32 #include "scrollbar-msw.h"
31 33 #include "scrollbar.h"
32 #include "frame.h" 34 #include "specifier.h"
33 #include "window.h" 35 #include "window.h"
34 #include "events.h"
35 36
36 /* This has really different semantics in Windows than in Motif. 37 /* This has really different semantics in Windows than in Motif.
37 There's no corresponding method; we just do not change slider 38 There's no corresponding method; we just do not change slider
38 size while dragging. It makes the scrollbar look smother and 39 size while dragging. It makes the scrollbar look smother and
39 prevents some weird behavior when scrolled near the bottom */ 40 prevents some weird behavior when scrolled near the bottom */
253 254
254 return total; 255 return total;
255 } 256 }
256 257
257 #endif /* MEMORY_USAGE_STATS */ 258 #endif /* MEMORY_USAGE_STATS */
258 259
260 /************************************************************************/
261 /* Device-specific ghost specifiers initialization */
262 /************************************************************************/
263
264 DEFUN ("mswindows-init-scrollbar-metrics", Fmswindows_init_scrollbar_metrics, 1, 1, 0, /*
265 */
266 (locale))
267 {
268 if (DEVICEP (locale))
269 {
270 add_spec_to_ghost_specifier (Vscrollbar_width,
271 make_int (GetSystemMetrics (SM_CXVSCROLL)),
272 locale, Qmswindows, Qnil);
273 add_spec_to_ghost_specifier (Vscrollbar_height,
274 make_int (GetSystemMetrics (SM_CYHSCROLL)),
275 locale, Qmswindows, Qnil);
276 }
277 return Qnil;
278 }
279
280
259 /************************************************************************/ 281 /************************************************************************/
260 /* initialization */ 282 /* initialization */
261 /************************************************************************/ 283 /************************************************************************/
262 284
263 void 285 void
273 CONSOLE_HAS_METHOD (mswindows, compute_scrollbar_instance_usage); 295 CONSOLE_HAS_METHOD (mswindows, compute_scrollbar_instance_usage);
274 #endif 296 #endif
275 } 297 }
276 298
277 void 299 void
300 syms_of_scrollbar_mswindows(void)
301 {
302 DEFSUBR (Fmswindows_init_scrollbar_metrics);
303 }
304
305 void
278 vars_of_scrollbar_mswindows(void) 306 vars_of_scrollbar_mswindows(void)
279 { 307 {
280 Fprovide (intern ("mswindows-scrollbars")); 308 Fprovide (intern ("mswindows-scrollbars"));
281 } 309 }
282 310