The R Project SVN R

Rev

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

Rev 27357 Rev 27686
Line 661... Line 661...
661 
int devicewidthmm(drawing dev) MEASUREDEV(HORZSIZE)
 661 
int devicewidthmm(drawing dev) MEASUREDEV(HORZSIZE)
662 
int deviceheightmm(drawing dev) MEASUREDEV(VERTSIZE)
 662 
int deviceheightmm(drawing dev) MEASUREDEV(VERTSIZE)
663 
int devicepixelsx(drawing dev) MEASUREDEV(LOGPIXELSX)
 663 
int devicepixelsx(drawing dev) MEASUREDEV(LOGPIXELSX)
664 
int devicepixelsy(drawing dev) MEASUREDEV(LOGPIXELSY)
 664 
int devicepixelsy(drawing dev) MEASUREDEV(LOGPIXELSY)
665 
 
 665 
 
666 
void BringToTop(window c, int stay)
 666 
int isTopmost(window c)
- 
 
 667 
{
- 
 
 668 
    return GetWindowLong(c->handle, GWL_EXSTYLE) & WS_EX_TOPMOST;
- 
 
 669 
}
- 
 
 670 
 
- 
 
 671 
void BringToTop(window c, int stay) /* stay=0 for regular, 1 for topmost, 2 for toggle */
667 
{
 672 
{
668 
    SetForegroundWindow(c->handle); /* needed in Rterm */
 673 
    SetForegroundWindow(c->handle); /* needed in Rterm */
669 
    BringWindowToTop(c->handle);    /* needed in Rgui --mdi */
 674 
    BringWindowToTop(c->handle);    /* needed in Rgui --mdi */
- 
 
 675 
 
- 
 
 676 
    if (stay == 2) stay = !isTopmost(c);
- 
 
 677 
 
670 
    if (stay) SetWindowPos(c->handle, HWND_TOPMOST, 0, 0, 0, 0,
 678 
    if (stay) SetWindowPos(c->handle, HWND_TOPMOST, 0, 0, 0, 0,
671 
    				SWP_NOMOVE | SWP_NOSIZE);
 679 
    				SWP_NOMOVE | SWP_NOSIZE);
672 
    else SetWindowPos(c->handle, HWND_NOTOPMOST, 0, 0, 0, 0,
 680 
    else SetWindowPos(c->handle, HWND_NOTOPMOST, 0, 0, 0, 0,
673 
    				SWP_NOMOVE | SWP_NOSIZE);
 681 
    				SWP_NOMOVE | SWP_NOSIZE);
674 
}
 682 
}