> From: Prof Brian Ripley > > On Tue, 12 Apr 2005, Liaw, Andy wrote: > > > Please consider adding the following to the next R release > (I understand > > that it's too late for R-2.1.0). It adds the menu item > `Search R Site' in > > the `Help' menu in Rgui (which calls RSiteSearch() on the > input string). > > Can you or someone else think of a better name? That sounds like it > searches www.r-project.org. I think even 'R Sites Search' would be > better.
I can't (sorry, not very imaginative...). Your suggestion is as good as I can see. I guess I can also add more descriptive phrase, e.g., s = askstring(G_("Search in R documentations and R-help archive"), olds); Any other suggestions? Best, Andy > Yes, it is too late: we need lead time for the translators these days. > (RGui has Chinese, German, Italian and Japanese menus available.) > > > > > Best, > > Andy > > > > --- R-beta/src/gnuwin32/rui.c 2005-03-06 > 09:41:40.000000000 -0500 > > +++ R-beta-new/src/gnuwin32/rui.c 2005-04-12 > 08:21:55.001824500 -0400 > > @@ -65,7 +65,8 @@ > > static menuitem msource, mdisplay, mload, msave, mloadhistory, > > msavehistory, mpaste, mpastecmds, mcopy, mcopypaste, > mlazy, mconfig, > > mls, mrm, msearch, mhelp, mmanintro, mmanref, mmandata, > > - mmanext, mmanlang, mmanadmin, mman0, mapropos, > mhelpstart, mhelpsearch, > > > > + mmanext, mmanlang, mmanadmin, mman0, mapropos, > mhelpstart, mhelpsearch, > > + msearchRsite, > > mFAQ, mrwFAQ, mpkgl, mpkgm, mpkgi, mpkgil, mpkgu, > /*mpkgb, mpkgbu,*/ > > mde, mCRAN, mrepos; > > static int lmanintro, lmanref, lmandata, lmanlang, lmanext, > lmanadmin; > > @@ -485,6 +486,21 @@ > > } > > } > > > > +static void menusearchRsite(control m) > > +{ > > + char *s; > > + static char olds[256] = ""; > > + > > + if (!ConsoleAcceptCmd) return; > > + s = askstring(G_("Search R Site"), olds); > > + if (s && strlen(s)) { > > + snprintf(cmd, 1024, "RSiteSearch(\"%s\")", s); > > + if (strlen(s) > 255) s[255] = '\0'; > > + strcpy(olds, s); > > + consolecmd(RConsole, cmd); > > + } > > +} > > + > > static void menuapropos(control m) > > { > > char *s; > > @@ -560,6 +576,7 @@ > > enable(msearch); > > enable(mhelp); > > enable(mhelpsearch); > > + enable(msearchRsite); > > enable(mapropos); > > enable(mpkgl); > > enable(mpkgm); > > @@ -579,6 +596,7 @@ > > disable(msearch); > > disable(mhelp); > > disable(mhelpsearch); > > + disable(msearchRsite); > > disable(mapropos); > > disable(mpkgl); > > disable(mpkgm); > > @@ -985,6 +1003,7 @@ > > MCHECK(mhelpstart = newmenuitem(G_("Html help"), 0, > menuhelpstart)); > > if (!check_doc_file("doc\\html\\rwin.html")) > disable(mhelpstart); > > MCHECK(mhelpsearch = newmenuitem(G_("Search help..."), 0, > > menuhelpsearch)); > > + MCHECK(msearchRsite = newmenuitem(G_("Search R Site..."), 0, > > menusearchRsite)); > > MCHECK(newmenuitem("-", 0, NULL)); > > MCHECK(mapropos = newmenuitem(G_("Apropos..."), 0, > menuapropos)); > > MCHECK(newmenuitem("-", 0, NULL)); > > > > ______________________________________________ > > R-devel@stat.math.ethz.ch mailing list > > https://stat.ethz.ch/mailman/listinfo/r-devel > > > > > > -- > Brian D. Ripley, [EMAIL PROTECTED] > Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/ > University of Oxford, Tel: +44 1865 272861 (self) > 1 South Parks Road, +44 1865 272866 (PA) > Oxford OX1 3TG, UK Fax: +44 1865 272595 > > > ______________________________________________ R-devel@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-devel