The R Project SVN R

Rev

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

Rev 9184 Rev 9236
Line 182... Line 182...
182 
{
 182 
{
183 
	clear(obj);
 183 
	clear(obj);
184 
	draw(obj);
 184 
	draw(obj);
185 
}
 185 
}
186 
 
 186 
 
187 
void getscreenrect(control obj, rect *r)
 187 
/*  void getscreenrect(control obj, rect *r) */
188 
{
 188 
/*  { */
189 
    RECT W;
 189 
/*      RECT W; */
190 
    GetWindowRect(obj->handle, &W);
 190 
/*      GetWindowRect(obj->handle, &W); */
191 
    r->x = W.left;
 191 
/*      r->x = W.left; */
192 
    r->y = W.top;
 192 
/*      r->y = W.top; */
193 
    r->width = W.right - W.left;
 193 
/*      r->width = W.right - W.left; */
194 
    r->height = W.bottom - W.top;
 194 
/*      r->height = W.bottom - W.top; */
195 
}
 195 
/*  } */
196 
 
 196 
 
197 
 
 197 
 
198 
/* The original here used GetWindowRect (which used screen coordinates)
 198 
/* The original here used GetWindowRect (which used screen coordinates)
199 
   and MoveWindow (which uses client coordinates) so got the positioning
 199 
   and MoveWindow (which uses client coordinates) so got the positioning
200 
   hopelessly wrong.  This version works for WindowObjects, but I would be
 200 
   hopelessly wrong.  This version works for WindowObjects, but I would be