Mercurial > hg > xemacs-beta

comparison src/frame-msw.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents b2472a1930f2
children ca9a9ec9c1c1
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
23 23
24 /* Authorship: 24 /* Authorship:
25 25
26 Ultimately based on FSF. 26 Ultimately based on FSF.
27 Substantially rewritten for XEmacs by Ben Wing. 27 Substantially rewritten for XEmacs by Ben Wing.
28 Rewritten for mswindows by Jonathan Harris, November 1997 for 20.4. 28 Rewritten for mswindows by Jonathan Harris, November 1997 for 21.0.
29 */ 29 */
30 30
31 #include <config.h> 31 #include <config.h>
32 #include "lisp.h" 32 #include "lisp.h"
33 33
34 #include "buffer.h" 34 #include "buffer.h"
35 #include "console-msw.h" 35 #include "console-msw.h"
36 #include "glyphs-msw.h"
36 #include "events.h" 37 #include "events.h"
37 #include "faces.h" 38 #include "faces.h"
38 #include "frame.h" 39 #include "frame.h"
39 #include "redisplay.h" 40 #include "redisplay.h"
40 41
320 321
321 static int 322 static int
322 mswindows_frame_iconified_p (struct frame *f) 323 mswindows_frame_iconified_p (struct frame *f)
323 { 324 {
324 return IsIconic (FRAME_MSWINDOWS_HANDLE(f)); 325 return IsIconic (FRAME_MSWINDOWS_HANDLE(f));
326 }
327
328 static void
329 mswindows_set_frame_icon (struct frame *f)
330 {
331 if (IMAGE_INSTANCEP (f->icon)
332 && IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (f->icon)))
333 {
334 if (!XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon))
335 {
336 ICONINFO x_icon;
337
338 x_icon.fIcon=TRUE;
339 x_icon.xHotspot=XIMAGE_INSTANCE_PIXMAP_HOTSPOT_X (f->icon);
340 x_icon.yHotspot=XIMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (f->icon);
341 x_icon.hbmMask=XIMAGE_INSTANCE_MSWINDOWS_BITMAP (f->icon);
342 x_icon.hbmColor=XIMAGE_INSTANCE_MSWINDOWS_MASK (f->icon);
343
344 XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon)=
345 CreateIconIndirect (&x_icon);
346 }
347
348 SetClassLong (FRAME_MSWINDOWS_HANDLE (f), GCL_HICON,
349 (LONG) XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon));
350 }
351 }
352
353 static void
354 mswindows_set_frame_pointer (struct frame *f)
355 {
356 #if 0
357 XDefineCursor (XtDisplay (FRAME_X_TEXT_WIDGET (f)),
358 XtWindow (FRAME_X_TEXT_WIDGET (f)),
359 XIMAGE_INSTANCE_X_CURSOR (f->pointer));
360 XSync (XtDisplay (FRAME_X_TEXT_WIDGET (f)), 0);
361 #endif
325 } 362 }
326 363
327 static void 364 static void
328 mswindows_raise_frame (struct frame *f) 365 mswindows_raise_frame (struct frame *f)
329 { 366 {
528 CONSOLE_HAS_METHOD (mswindows, set_title_from_bufbyte); 565 CONSOLE_HAS_METHOD (mswindows, set_title_from_bufbyte);
529 /* CONSOLE_HAS_METHOD (mswindows, set_icon_name_from_bufbyte); */ 566 /* CONSOLE_HAS_METHOD (mswindows, set_icon_name_from_bufbyte); */
530 CONSOLE_HAS_METHOD (mswindows, frame_visible_p); 567 CONSOLE_HAS_METHOD (mswindows, frame_visible_p);
531 /* CONSOLE_HAS_METHOD (mswindows, frame_totally_visible_p); */ 568 /* CONSOLE_HAS_METHOD (mswindows, frame_totally_visible_p); */
532 CONSOLE_HAS_METHOD (mswindows, frame_iconified_p); 569 CONSOLE_HAS_METHOD (mswindows, frame_iconified_p);
533 /* CONSOLE_HAS_METHOD (mswindows, set_frame_pointer); */ 570 CONSOLE_HAS_METHOD (mswindows, set_frame_pointer);
534 /* CONSOLE_HAS_METHOD (mswindows, set_frame_icon); */ 571 CONSOLE_HAS_METHOD (mswindows, set_frame_icon);
535 CONSOLE_HAS_METHOD (mswindows, get_frame_parent); 572 CONSOLE_HAS_METHOD (mswindows, get_frame_parent);
536 CONSOLE_HAS_METHOD (mswindows, update_frame_external_traits); 573 CONSOLE_HAS_METHOD (mswindows, update_frame_external_traits);
537 } 574 }
538 575
539 void 576 void
540 syms_of_frame_mswindows (void) 577 syms_of_frame_mswindows (void)
541 { 578 {
542 #if 0 /* XXX these are in general.c */
543 defsymbol (&Qname, "name");
544 defsymbol (&Qheight, "height");
545 defsymbol (&Qwidth, "width");
546 defsymbol (&Qtop, "top");
547 defsymbol (&Qleft, "left");
548 #endif
549 defsymbol (&Qinitially_unmapped, "initially-unmapped");
550 defsymbol (&Qpopup, "popup");
551 } 579 }
552 580
553 void 581 void
554 vars_of_frame_mswindows (void) 582 vars_of_frame_mswindows (void)
555 { 583 {