> 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
