static void menupaste(control m) { if (consolecanpaste(RConsole)) consolepaste(RConsole); else askok(G_("No text available")); /* show(RConsole); */ }
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 menucopypaste(control m) { if (consolecancopy(RConsole)) { consolecopy(RConsole); consolepaste(RConsole); } else askok(G_("No selection")); /* show(RConsole); */ }
static void pagerpaste(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)) { consolepaste(RConsole); show(RConsole); } }