The R Project SVN R

Rev

Rev 6098 | Rev 9237 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6098 Rev 8641
Line 36... Line 36...
36 
    HDC h = (HDC) obj->handle;
 36 
    HDC h = (HDC) obj->handle;
37 
    if (!obj || !h || (obj->kind != PrinterObject)) return;
 37 
    if (!obj || !h || (obj->kind != PrinterObject)) return;
38 
    EndPage(h);
 38 
    EndPage(h);
39 
    EndDoc(h);
 39 
    EndDoc(h);
40 
    DeleteDC(h);
 40 
    DeleteDC(h);
- 
 
 41 
    Rwin_fpset();
41 
    return;
 42 
    return;
42 
}
 43 
}
43 
 
 44 
 
44 
/*
 45 
/*
45 
 *  Create/return the base printer object.
 46 
 *  Create/return the base printer object.
Line 140... Line 141...
140 
	del(obj);
 141 
	del(obj);
141 
	return NULL;
 142 
	return NULL;
142 
    }
 143 
    }
143 
 
 144 
 
144 
    StartPage(hDC);
 145 
    StartPage(hDC);
145 
 
 - 
 
- 
 
 146 
    Rwin_fpset();
146 
    return obj;
 147 
    return obj;
147 
}
 148 
}
148 
 
 149 
 
149 
 
 150 
 
150 
void nextpage(printer p)
 151 
void nextpage(printer p)
151 
{
 152 
{
152 
    if (!p || (p->kind != PrinterObject)) return;
 153 
    if (!p || (p->kind != PrinterObject)) return;
153 
    EndPage((HDC) p->handle);
 154 
    EndPage((HDC) p->handle);
154 
    StartPage((HDC) p->handle);
 155 
    StartPage((HDC) p->handle);
- 
 
 156 
    Rwin_fpset();
155 
}
 157 
}