Mercurial > hg > xemacs-beta
comparison src/redisplay-msw.c @ 286:57709be46d1b r21-0b41
Import from CVS: tag r21-0b41
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:35:03 +0200 |
parents | 558f606b08ae |
children | e11d67e05968 |
comparison
equal
deleted
inserted
replaced
285:9a3756523c1b | 286:57709be46d1b |
---|---|
1333 struct window *w; | 1333 struct window *w; |
1334 struct frame *f; | 1334 struct frame *f; |
1335 Lisp_Object background_pixmap = Qunbound; | 1335 Lisp_Object background_pixmap = Qunbound; |
1336 Lisp_Object temp; | 1336 Lisp_Object temp; |
1337 RECT rect = { x, y, x+width, y+height }; | 1337 RECT rect = { x, y, x+width, y+height }; |
1338 HBRUSH brush; | |
1339 | 1338 |
1340 if (!(width && height)) /* We often seem to get called with width==0 */ | 1339 if (!(width && height)) /* We often seem to get called with width==0 */ |
1341 return; | 1340 return; |
1342 | 1341 |
1343 if (WINDOWP (locale)) | 1342 if (WINDOWP (locale)) |
1394 mswindows_update_dc (FRAME_MSWINDOWS_DC (f), | 1393 mswindows_update_dc (FRAME_MSWINDOWS_DC (f), |
1395 Qnil, fcolor, bcolor, background_pixmap); | 1394 Qnil, fcolor, bcolor, background_pixmap); |
1396 | 1395 |
1397 if (XIMAGE_INSTANCE_PIXMAP_DEPTH (background_pixmap) == 0) | 1396 if (XIMAGE_INSTANCE_PIXMAP_DEPTH (background_pixmap) == 0) |
1398 { | 1397 { |
1398 /* is this expensive? - I haven't seen it used as yet. */ | |
1399 HBRUSH brush = CreateSolidBrush | |
1400 (COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (bcolor))); | |
1399 FillRect (FRAME_MSWINDOWS_DC(f), &rect, brush); | 1401 FillRect (FRAME_MSWINDOWS_DC(f), &rect, brush); |
1402 DeleteObject (brush); | |
1400 } | 1403 } |
1401 else | 1404 else |
1402 { | 1405 { |
1403 mswindows_output_dibitmap_region | 1406 mswindows_output_dibitmap_region |
1404 ( f, XIMAGE_INSTANCE (background_pixmap), | 1407 ( f, XIMAGE_INSTANCE (background_pixmap), |