static editor neweditor(void)
{
int x, y, w, h, w0, h0;
editor c;
menuitem m;
textbox t;
long flags;
font editorfn = (consolefn ? consolefn : FixedFont);
EditorData p = neweditordata(0, NULL);
DWORD rand;
w = (pagercol + 1)*fontwidth(editorfn);
h = (pagerrow + 1)*fontheight(editorfn) + 1;
#ifdef USE_MDI
if(ismdi()) {
RECT *pR = RgetMDIsize();
w0 = pR->right;
h0 = pR->bottom;
} else {
#endif
w0 = devicewidth(NULL);
h0 = deviceheight(NULL);
#ifdef USE_MDI
}
#endif
x = (w0 - w) / 2; x = x > 20 ? x : 20;
y = (h0 - h) / 2; y = y > 20 ? y : 20;
rand = GetTickCount();
w0 = 0.4*x; h0 = 0.4*y;
w0 = w0 > 20 ? w0 : 20;
h0 = h0 > 20 ? h0 : 20;
x += (rand % w0) - w0/2;
y += ((rand/w0) % h0) - h0/2;
flags = StandardWindow | Menubar;
#ifdef USE_MDI
if (ismdi()) flags |= Document;
#endif
c = (editor) newwindow("", rect(x, y, w, h), flags);
t = newrichtextarea(NULL, rect(0, 0, w, h));
setdata(c, t);
setdata(t, p);
gsetcursor(c, ArrowCursor);
setforeground(c, guiColors[editorfg]);
setbackground(c, guiColors[editorbg]);
setbackground(t, guiColors[editorbg]);
#ifdef USE_MDI
if (ismdi() && (RguiMDI & RW_TOOLBAR)) {
int btsize = 24;
rect r = rect(2, 2, btsize, btsize);
control tb, bt;
addto(c);
MCHECK(tb = newtoolbar(btsize + 4));
addto(tb);
MCHECK(bt = newtoolbutton(open_image, r, menueditoropen));
MCHECK(addtooltip(bt, G_("Open script")));
setdata(bt, c);
r.x += (btsize + 1) ;
MCHECK(bt = newtoolbutton(save_image, r, menueditorsave));
MCHECK(addtooltip(bt, G_("Save script")));
setdata(bt, c);
r.x += (btsize + 6);
MCHECK(bt = newtoolbutton(copy1_image, r, menueditorrun));
MCHECK(addtooltip(bt, G_("Run line or selection")));
setdata(bt, t);
r.x += (btsize + 6);
MCHECK(bt = newtoolbutton(console_image, r, editorconsole));
MCHECK(addtooltip(bt, G_("Return focus to Console")));
r.x += (btsize + 6);
MCHECK(bt = newtoolbutton(print_image, r, editorprint));
MCHECK(addtooltip(bt, G_("Print script")));
setdata(bt, t);
MCHECK(addtooltip(bt, G_("Print")));
}
#endif
addto(c);
/* Right-click context menu */
MCHECK(m = gpopup(editormenuact, EditorPopup));
setdata(m, t);
setdata(EditorPopup[0].m, t);
setdata(EditorPopup[2].m, t);
setdata(p->mpopcut = EditorPopup[4].m, t);
setdata(p->mpopcopy = EditorPopup[5].m, t);
setdata(EditorPopup[6].m, t);
setdata(p->mpopdelete = EditorPopup[7].m, t);
setdata(EditorPopup[9].m, t);
addto(c);
MCHECK(m = newmenubar(editormenuact));
setdata(m, t);
MCHECK(newmenu(G_("File")));
MCHECK(m = newmenuitem(G_("New script"), 'N', menueditornew));
setdata(m, c);
MCHECK(m = newmenuitem(G_("Open script..."), 'O', menueditoropen));
setdata(m, c);
MCHECK(m = newmenuitem(G_("Save"), 'S', menueditorsave));
setdata(m, c);
MCHECK(m = newmenuitem(G_("Save as..."), 0, menueditorsaveas));
setdata(m, c);
MCHECK(m = newmenuitem("-", 0, NULL));
MCHECK(m = newmenuitem(G_("Print..."), 0, editorprint));
setdata(m, t);
MCHECK(m = newmenuitem("-", 0, NULL));
MCHECK(m = newmenuitem(G_("Close script"), 0, menueditorclose));
setdata(m, c);
MCHECK(newmenu(G_("Edit")));
MCHECK(m = newmenuitem(G_("Undo"), 'Z', editorundo));
setdata(m, t);
MCHECK(m = newmenuitem("-", 0, NULL));
MCHECK(p->mcut = newmenuitem(G_("Cut"), 'X', editorcut));
setdata(p->mcut, t);
MCHECK(p->mcopy = newmenuitem(G_("Copy"), 'C', editorcopy));
setdata(p->mcopy, t);
MCHECK(m = newmenuitem(G_("Paste"), 'V', editorpaste));
setdata(m, t);
MCHECK(p->mdelete = newmenuitem(G_("Delete"), 0, editordelete));
setdata(p->mdelete, t);
MCHECK(m = newmenuitem(G_("Select all"), 'A', editorselectall));
setdata(m, t);
MCHECK(newmenuitem(G_("Clear console"), 'L', menuclear));
MCHECK(m = newmenuitem("-", 0, NULL));
MCHECK(m = newmenuitem(G_("Run line or selection"), 'R', menueditorrun));
setdata(m, t);
MCHECK(m = newmenuitem(G_("Run all"), 0, editorrunall));
setdata(m, t);
MCHECK(m = newmenuitem("-", 0, NULL));
MCHECK(p->mfind = newmenuitem(G_("Find..."), 'F', editorfind));
setdata(p->mfind, t);
MCHECK(p->mreplace = newmenuitem(G_("Replace..."), 'H', editorreplace));
setdata(p->mreplace, t);
MCHECK(m = newmenuitem("-", 0, NULL));
MCHECK(newmenuitem(G_("GUI preferences..."), 0, menuconfig));
/* Packages menu should go here */
p->pmenu = (PkgMenuItems) malloc(sizeof(struct structPkgMenuItems));
RguiPackageMenu(p->pmenu);
#ifdef USE_MDI
newmdimenu(); /* Create and fill the 'Window' menu */
#endif
MCHECK(m = newmenu(G_("Help")));
MCHECK(newmenuitem(G_("Editor"), 0, menueditorhelp));
MCHECK(newmenuitem("-", 0, NULL));
p->hmenu = (HelpMenuItems) malloc(sizeof(struct structHelpMenuItems));
RguiCommonHelp(m, p->hmenu);
settextfont(t, editorfn);
setforeground(t, guiColors[editorfg]);
setresize(c, editorresize);
setclose(c, editorclose);
setdel(c, editordel);
setdel(t, textboxdel);
setonfocus(c, editorfocus);
setkeyaction(t, editorcontrolkeydown);
setkeydown(t, editorasciikeydown);
/* Store pointer to new editor in global array */
REditors[neditors] = c;
++neditors;
return c;
}
int setupui(void)
{
char *p, *ctype, Rlocale[1000] = ""; /* Windows' locales can be very long */
initapp(0, 0);
/* set locale before doing anything with menus */
setlocale(LC_CTYPE, ""); /* necessary in case next fails to set
a valid locale */
if((p = getenv("LC_ALL"))) strcpy(Rlocale, p);
if((p = getenv("LC_CTYPE"))) strcpy(Rlocale, p);
if (strcmp(Rlocale, "C") == 0) strcpy(Rlocale, "en");
setlocale(LC_CTYPE, Rlocale);
mbcslocale = MB_CUR_MAX > 1;
ctype = setlocale(LC_CTYPE, NULL);
p = strrchr(ctype, '.');
if(p && isdigit(p[1])) localeCP = atoi(p+1); else localeCP = 1252;
readconsolecfg();
int flags = StandardWindow | Document | Menubar;
if(mbcslocale) flags |= UseUnicode;
if (RguiMDI & RW_MDI) {
TRACERUI("Rgui");
RFrame = newwindow(
#ifdef _WIN64
"RGui (64-bit)",
#else
"RGui (32-bit)",
#endif
MDIsize,
StandardWindow | Menubar | Workspace);
setclose(RFrame, closeconsole);
show(RFrame);
TRACERUI("Rgui done");
TRACERUI("Console");
if (!(RConsole = newconsole("R Console", flags ))) return 0;
TRACERUI("Console done");
} else {
TRACERUI("Console");
#ifdef _WIN64
if (!(RConsole = newconsole("R Console (64-bit)", flags ))) return 0;
#else
if (!(RConsole = newconsole("R Console (32-bit)", flags ))) return 0;
#endif
TRACERUI("Console done");
}
if (ismdi()) {
int btsize = 24;
rect r = rect(2, 2, btsize, btsize);
control tb, bt;
MCHECK(tb = newtoolbar(btsize + 4));
addto(tb);
MCHECK(bt = newtoolbutton(open_image, r, menueditoropen));
MCHECK(addtooltip(bt, G_("Open script")));
r.x += (btsize + 1) ;
MCHECK(bt = newtoolbutton(open1_image, r, menuloadimage));
MCHECK(addtooltip(bt, G_("Load workspace")));
r.x += (btsize + 1) ;
MCHECK(bt = newtoolbutton(save_image, r, menusaveimage));
MCHECK(addtooltip(bt, G_("Save workspace")));
r.x += (btsize + 6);
MCHECK(bt = newtoolbutton(copy_image, r, buttoncopy));
MCHECK(addtooltip(bt, G_("Copy")));
r.x += (btsize + 1);
MCHECK(bt = newtoolbutton(paste_image, r, buttonpaste));
MCHECK(addtooltip(bt, G_("Paste")));
r.x += (btsize + 1);
MCHECK(bt = newtoolbutton(copypaste_image, r, buttoncopypaste));
MCHECK(addtooltip(bt, G_("Copy and paste")));
r.x += (btsize + 6);
MCHECK(bt = newtoolbutton(stop_image, r, buttonkill));
MCHECK(addtooltip(bt, G_("Stop current computation")));
r.x += (btsize + 6) ;
MCHECK(bt = newtoolbutton(print_image, r, menuprint));
MCHECK(addtooltip(bt, G_("Print")));
}
if (ismdi() && (RguiMDI & RW_STATUSBAR)) {
TRACERUI("status bar");
addstatusbar();
addto(RConsole);
TRACERUI("status bar done");
}
if (ismdi()) {
char s[256];
PrintVersionString(s, 256);
setstatus(s);
}
addto(RConsole);
setclose(RConsole, closeconsole);
setdrop(RConsole, dropconsole);
MCHECK(RConsolePopup = gpopup(popupact, ConsolePopup));
MCHECK(RMenuBar = newmenubar(menuact));
MCHECK(newmenu(G_("File")));
MCHECK(msource = newmenuitem(G_("Source R code..."), 0, menusource));
MCHECK(newmenuitem(G_("New script"), 0, menueditornew));
MCHECK(newmenuitem(G_("Open script..."), 0, menueditoropen));
MCHECK(mdisplay = newmenuitem(G_("Display file(s)..."), 0, menudisplay));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(mload = newmenuitem(G_("Load Workspace..."), 0, menuloadimage));
MCHECK(msave = newmenuitem(G_("Save Workspace..."), 'S', menusaveimage));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(mloadhistory = newmenuitem(G_("Load History..."), 0,
menuloadhistory));
MCHECK(msavehistory = newmenuitem(G_("Save History..."), 0,
menusavehistory));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(newmenuitem(G_("Change dir..."), 0, menuchangedir));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(newmenuitem(G_("Print..."), 'P', menuprint));
MCHECK(newmenuitem(G_("Save to File..."), 0, menusavefile));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(newmenuitem(G_("Exit"), 0, menuexit));
MCHECK(newmenu(G_("Edit")));
MCHECK(mcopy = newmenuitem(G_("Copy"), 'C', menucopy));
MCHECK(mpaste = newmenuitem(G_("Paste"), 'V', menupaste));
MCHECK(mpastecmds = newmenuitem(G_("Paste commands only"), 0,
menupastecmds));
MCHECK(mcopypaste = newmenuitem(G_("Copy and Paste"), 'X', menucopypaste));
MCHECK(newmenuitem(G_("Select all"), 0, menuselectall));
MCHECK(newmenuitem(G_("Clear console"), 'L', menuclear));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(mde = newmenuitem(G_("Data editor..."), 0, menude));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(mconfig = newmenuitem(G_("GUI preferences..."), 0, menuconfig));
if (ismdi()) {
MCHECK(newmenu(G_("View")));
MCHECK(mtools = newmenuitem(G_("Toolbar"), 0, menutools));
MCHECK(mstatus = newmenuitem(G_("Statusbar"), 0, menustatus));
if(RguiMDI & RW_TOOLBAR) check(mtools);
if(RguiMDI & RW_STATUSBAR) check(mstatus);
}
MCHECK(newmenu(G_("Misc")));
MCHECK(newmenuitem(G_("Stop current computation \tESC"), 0,
menukill));
MCHECK(newmenuitem(G_("Stop all computations"), 0, menukillall));
if (DebugMenuitem || isdebuggerpresent())
MCHECK(newmenuitem(G_("Break to debugger"), 0, menudebug));
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(mlazy = newmenuitem(G_("Buffered output"), 'W', menulazy));
MCHECK(mcomplete = newmenuitem(G_("Word completion"), 0, menucomplete));
check(mcomplete);
MCHECK(mfncomplete = newmenuitem(G_("Filename completion"), 0,
menufncomplete));
if(check_file_completion())
check(mfncomplete);
else
uncheck(mfncomplete);
MCHECK(newmenuitem("-", 0, NULL));
MCHECK(mls = newmenuitem(G_("List objects"), 0, menuls));
MCHECK(mrm = newmenuitem(G_("Remove all objects"), 0, menurm));
MCHECK(msearch = newmenuitem(G_("List search &path"), 0, menusearch));
pmenu = (PkgMenuItems) malloc(sizeof(struct structPkgMenuItems));
RguiPackageMenu(pmenu);
RguiWindowMenu();
MCHECK(m = newmenu(G_("Help")));
MCHECK(newmenuitem(G_("Console"), 0, menuconsolehelp));
MCHECK(newmenuitem("-", 0, NULL));
CheckForManuals();
hmenu = (HelpMenuItems) malloc(sizeof(struct structHelpMenuItems));
RguiCommonHelp(m, hmenu);
consolesetbrk(RConsole, menukill, ESC, 0);
wgl_hist_init(R_HistorySize, 0);
if (R_RestoreHistory) wgl_loadhistory(R_HistoryFile);
if (ismdi() && !(RguiMDI & RW_TOOLBAR)) toolbar_hide();
show(RConsole);
return 1;
}