The R Project SVN R

Rev

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

Rev 36820 Rev 37462
Line 38... Line 38...
38 
    HDC h = (HDC) obj->handle;
 38 
    HDC h = (HDC) obj->handle;
39 
    if (!obj || !h || (obj->kind != PrinterObject)) return;
 39 
    if (!obj || !h || (obj->kind != PrinterObject)) return;
40 
    EndPage(h);
 40 
    EndPage(h);
41 
    EndDoc(h);
 41 
    EndDoc(h);
42 
    DeleteDC(h);
 42 
    DeleteDC(h);
43 
    Rwin_fpset();
 - 
 
44 
    return;
 43 
    return;
45 
}
 44 
}
46 
 
 45 
 
47 
/*
 46 
/*
48 
 *  Create/return the base printer object.
 47 
 *  Create/return the base printer object.
Line 154... Line 153...
154 
	del(obj);
 153 
	del(obj);
155 
	return NULL;
 154 
	return NULL;
156 
    }
 155 
    }
157 
 
 156 
 
158 
    StartPage(hDC);
 157 
    StartPage(hDC);
159 
    Rwin_fpset();
 - 
 
160 
    return obj;
 158 
    return obj;
161 
}
 159 
}
162 
 
 160 
 
163 
 
 161 
 
164 
void nextpage(printer p)
 162 
void nextpage(printer p)
165 
{
 163 
{
166 
    if (!p || (p->kind != PrinterObject)) return;
 164 
    if (!p || (p->kind != PrinterObject)) return;
167 
    EndPage((HDC) p->handle);
 165 
    EndPage((HDC) p->handle);
168 
    StartPage((HDC) p->handle);
 166 
    StartPage((HDC) p->handle);
169 
    Rwin_fpset();
 - 
 
170 
}
 167 
}