static void popupact(control m)
{
if (consolegetlazy(RConsole))
check(ConsolePopup[9].m);
else
uncheck(ConsolePopup[9].m);
if (consolecancopy(RConsole)) {
enable(ConsolePopup[0].m);
enable(ConsolePopup[3].m);
} else {
disable(ConsolePopup[0].m);
disable(ConsolePopup[3].m);
}
if (consolecanpaste(RConsole)) {
enable(ConsolePopup[1].m);
enable(ConsolePopup[2].m);
} else {
disable(ConsolePopup[1].m);
disable(ConsolePopup[2].m);
}
if (ismdi())
disable(ConsolePopup[10].m);
else {
if (isTopmost(RConsole))
check(ConsolePopup[10].m);
else
uncheck(ConsolePopup[10].m);
}
}
static void menupastecmds(control m)
{
if (consolecanpaste(RConsole))
consolepastecmds(RConsole);
else
askok(G_("No text available"));
}
static void editorrunselection(textbox t, long start, long end)
{
copytext(t);
if (consolecanpaste(RConsole)) {
consolepaste(RConsole);
if (gettext(t)[end-1] != '\n')
consolenewline(RConsole);
}
}
static void menuact(control m)
{
if (consolegetlazy(RConsole)) check(mlazy); else uncheck(mlazy);
/* display needs pager set */
if (R_is_running) enable(mdisplay); else disable(mdisplay);
if (ConsoleAcceptCmd) {
enable(msource);
enable(mload);
enable(msave);
enable(mls);
enable(mrm);
enable(msearch);
} else {
disable(msource);
disable(mload);
disable(msave);
disable(mls);
disable(mrm);
disable(msearch);
}
if (consolecancopy(RConsole)) {
enable(mcopy);
enable(mcopypaste);
} else {
disable(mcopy);
disable(mcopypaste);
}
if (consolecanpaste(RConsole)) {
enable(mpaste);
enable(mpastecmds);
}
else {
disable(mpaste);
disable(mpastecmds);
}
helpmenuact(hmenu);
pkgmenuact(pmenu);
draw(RMenuBar);
}
static void pagerpastecmds(control m)
{
control c = getdata(m);
if (CharacterMode != RGui) {
R_ShowMessage(G_("No RGui console to paste to"));
return;
}
if (!consolecancopy(c)) {
R_ShowMessage(G_("No selection"));
return;
} else {
consolecopy(c);
}
if (consolecanpaste(RConsole)) {
consolepastecmds(RConsole);
show(RConsole);
}
}
