static void pagercopy(control m)
{
control c = getdata(m);
if (consolecancopy(c)) consolecopy(c);
else R_ShowMessage(G_("No selection"));
}
static void pagermenuact(control m)
{
control c = getdata(m);
ConsoleData p = getdata(c);
if (consolecancopy(c)) {
enable(p->mcopy);
enable(p->mpopcopy);
if (CharacterMode == RGui) {
enable(p->mpaste);
enable(p->mpastecmds);
enable(p->mpoppaste);
enable(p->mpoppastecmds);
}
} else {
disable(p->mcopy);
disable(p->mpopcopy);
disable(p->mpaste);
disable(p->mpastecmds);
disable(p->mpoppaste);
disable(p->mpoppastecmds);
}
if (ismdi())
disable(PagerPopup[5].m);
else {
enable(PagerPopup[5].m);
if (isTopmost(c))
check(PagerPopup[5].m);
else
uncheck(PagerPopup[5].m);
}
}
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 menucopy(control m)
{
if (consolecancopy(RConsole))
consolecopy(RConsole);
else
askok(G_("No selection"));
/* show(RConsole); */
}
static void menucopypaste(control m)
{
if (consolecancopy(RConsole)) {
consolecopy(RConsole);
consolepaste(RConsole);
} else
askok(G_("No selection"));
/* show(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);
}
}