The R Project SVN R

Rev

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

Rev 27662 Rev 27686
Line 138... Line 138...
138 
    menubar mbar, mbarloc;
 138 
    menubar mbar, mbarloc;
139 
    menu  msubsave;
 139 
    menu  msubsave;
140 
    menuitem mpng, mbmp, mjpeg50, mjpeg75, mjpeg100;
 140 
    menuitem mpng, mbmp, mjpeg50, mjpeg75, mjpeg100;
141 
    menuitem mps, mpdf, mwm, mclpbm, mclpwm, mprint, mclose;
 141 
    menuitem mps, mpdf, mwm, mclpbm, mclpwm, mprint, mclose;
142 
    menuitem mrec, madd, mreplace, mprev, mnext, mclear, msvar, mgvar;
 142 
    menuitem mrec, madd, mreplace, mprev, mnext, mclear, msvar, mgvar;
143 
    menuitem mR, mfit, mfix;
 143 
    menuitem mR, mfit, mfix, grmenustayontop;
144 
    Rboolean recording, replaying, needsave;
 144 
    Rboolean recording, replaying, needsave;
145 
    bitmap bm;
 145 
    bitmap bm;
146 
  /* PNG and JPEG section */
 146 
  /* PNG and JPEG section */
147 
    FILE *fp;
 147 
    FILE *fp;
148 
    char filename[512];
 148 
    char filename[512];
Line 838... Line 838...
838 
static void menustayontop(control m)
 838 
static void menustayontop(control m)
839 
{
 839 
{
840 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
 840 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
841 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
 841 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
842 
 
 842 
 
843 
    if (ischecked(m)) {
 - 
 
844 
	uncheck(m);
 - 
 
845 
	BringToTop(xd->gawin, 0);
 843 
    BringToTop(xd->gawin, 2);
846 
    } else {
 - 
 
847 
	check(m);
 - 
 
848 
	BringToTop(xd->gawin, 1);
 - 
 
849 
    }
 - 
 
850 
}
 844 
}
851 
 
 845 
 
852 
static void menuprint(control m)
 846 
static void menuprint(control m)
853 
{
 847 
{
854 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
 848 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
855 
    SaveAsWin(dd, "win.print:");
 849 
    SaveAsWin(dd, "win.print:");
856 
}
 850 
}
857 
 
 851 
 
858 
 
 - 
 
859 
 
 - 
 
860 
static void menuclose(control m)
 852 
static void menuclose(control m)
861 
{
 853 
{
862 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
 854 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
863 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
 855 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
864 
 
 856 
 
865 
    HelpClose(xd->gawin);
 857 
    HelpClose(xd->gawin);
866 
}
 858 
}
867 
 
 859 
 
- 
 
 860 
static void grpopupact(control m)
- 
 
 861 
{
- 
 
 862 
    NewDevDesc *dd = (NewDevDesc *) getdata(m);
- 
 
 863 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
- 
 
 864 
 
- 
 
 865 
    if (ismdi())
- 
 
 866 
    	disable(xd->grmenustayontop);
- 
 
 867 
    else {
- 
 
 868 
    	if (isTopmost(xd->gawin))
- 
 
 869 
     	    check(xd->grmenustayontop);
- 
 
 870 
    	else
- 
 
 871 
    	    uncheck(xd->grmenustayontop);
- 
 
 872 
    }
- 
 
 873 
}
- 
 
 874 
 
868 
/* plot history */
 875 
/* plot history */
869 
 
 876 
 
870 
 
 877 
 
871 
#ifdef PLOTHISTORY
 878 
#ifdef PLOTHISTORY
872 
 
 879 
 
Line 1428... Line 1435...
1428 
    MCHECK(xd->mfix = newmenuitem("Fixed size", 0, menufix));
 1435 
    MCHECK(xd->mfix = newmenuitem("Fixed size", 0, menufix));
1429 
    if(resize == 3) check(xd->mfix);
 1436 
    if(resize == 3) check(xd->mfix);
1430 
    newmdimenu();
 1437 
    newmdimenu();
1431 
 
 1438 
 
1432 
    /* Normal popup */
 1439 
    /* Normal popup */
1433 
    MCHECK(xd->grpopup = newpopup(NULL));
 1440 
    MCHECK(xd->grpopup = newpopup(grpopupact));
- 
 
 1441 
    setdata(xd->grpopup, (void *) dd);
1434 
    MCHECK(m = newmenuitem("Copy as metafile", 0, menuclpwm));
 1442 
    MCHECK(m = newmenuitem("Copy as metafile", 0, menuclpwm));
1435 
    setdata(m, (void *) dd);
 1443 
    setdata(m, (void *) dd);
1436 
    MCHECK(m = newmenuitem("Copy as bitmap", 0, menuclpbm));
 1444 
    MCHECK(m = newmenuitem("Copy as bitmap", 0, menuclpbm));
1437 
    setdata(m, (void *) dd);
 1445 
    setdata(m, (void *) dd);
1438 
    MCHECK(newmenuitem("-", 0, NULL));
 1446 
    MCHECK(newmenuitem("-", 0, NULL));
1439 
    MCHECK(m = newmenuitem("Save as metafile...", 0, menuwm));
 1447 
    MCHECK(m = newmenuitem("Save as metafile...", 0, menuwm));
1440 
    setdata(m, (void *) dd);
 1448 
    setdata(m, (void *) dd);
1441 
    MCHECK(m = newmenuitem("Save as postscript...", 0, menups));
 1449 
    MCHECK(m = newmenuitem("Save as postscript...", 0, menups));
1442 
    setdata(m, (void *) dd);
 1450 
    setdata(m, (void *) dd);
1443 
    if (!ismdi()) {
 - 
 
1444 
	MCHECK(newmenuitem("-", 0, NULL));
 1451 
    MCHECK(newmenuitem("-", 0, NULL));
1445 
    	MCHECK(m = newmenuitem("Stay on top", 0, menustayontop));
 1452 
    MCHECK(xd->grmenustayontop = newmenuitem("Stay on top", 0, menustayontop));
1446 
    	setdata(m, (void *) dd);
 1453 
    setdata(xd->grmenustayontop, (void *) dd);
1447 
    }
 - 
 
1448 
    MCHECK(newmenuitem("-", 0, NULL));
 1454 
    MCHECK(newmenuitem("-", 0, NULL));
1449 
    MCHECK(m = newmenuitem("Print...", 0, menuprint));
 1455 
    MCHECK(m = newmenuitem("Print...", 0, menuprint));
1450 
    setdata(m, (void *) dd);
 1456 
    setdata(m, (void *) dd);
1451 
    gchangepopup(xd->gawin, xd->grpopup);
 1457 
    gchangepopup(xd->gawin, xd->grpopup);
1452 
 
 1458