The R Project SVN R

Rev

Rev 4394 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4394 Rev 31702
Line 24... Line 24...
24 
   WITHOUT ANY WARRANTY.
 24 
   WITHOUT ANY WARRANTY.
25 
 
 25 
 
26 
   See the file COPYLIB.TXT for details.
 26 
   See the file COPYLIB.TXT for details.
27 
*/
 27 
*/
28 
 
 28 
 
- 
 
 29 
/*  Copyright (C) 2004 	The R Foundation
- 
 
 30 
 
- 
 
 31 
    Changes for R:
- 
 
 32 
 
- 
 
 33 
    Remove assumption of current->dest being non-NULL
- 
 
 34 
 
- 
 
 35 
 */
- 
 
 36 
 
29 
#include "internal.h"
 37 
#include "internal.h"
30 
 
 38 
 
31 
#if (WINVER < 0x030a)
 39 
#if (WINVER < 0x030a)
32 
 
 40 
 
33 
	#define MoveToEx move_to_ex
 41 
	#define MoveToEx move_to_ex
Line 234... Line 242...
234 
		copy_mode[mode&0x0F]);
 242 
		copy_mode[mode&0x0F]);
235 
}
 243 
}
236 
 
 244 
 
237 
void scrollrect(point dp, rect r)
 245 
void scrollrect(point dp, rect r)
238 
{
 246 
{
- 
 
 247 
	rect cliprect;
239 
	rect cliprect = getrect(current->dest);
 248 
	if (current->dest) cliprect = getrect(current->dest);
- 
 
 249 
	else return;
240 
 
 250 
 
241 
	enable_drawing();
 251 
	enable_drawing();
242 
	ScrollDC(dc, dp.x-r.x, dp.y-r.y,
 252 
	ScrollDC(dc, dp.x-r.x, dp.y-r.y,
243 
		(RECT *)&r, (RECT *) &cliprect, 0, NULL);
 253 
		(RECT *)&r, (RECT *) &cliprect, 0, NULL);
244 
}
 254 
}
245 
 
 255 
 
246 
void copyrect(bitmap sb, point p, rect r)
 256 
void copyrect(bitmap sb, point p, rect r)
247 
{
 257 
{
248 
	enable_drawing();
 258 
	enable_drawing();
249 
	bitblt(current->dest, sb, p, r, S);
 259 
	if (current->dest) bitblt(current->dest, sb, p, r, S);
250 
}
 260 
}
251 
 
 261 
 
252 
void texturerect(bitmap sb, rect dr)
 262 
void texturerect(bitmap sb, rect dr)
253 
{
 263 
{
254 
	long x, y, sw, sh, sdx, sdy;
 264 
	long x, y, sw, sh, sdx, sdy;