Re: [Rd] Windows RConsole Focus - oops, thanks!

2003-11-02 Thread James Wettenhall
Prof Ripley,

On Sun, 2 Nov 2003, Prof Brian D Ripley wrote:
> ?bringToTop

Oops.  It's right there in help.search("focus"), 
help.search("window") etc.  Sorry I missed it.

Thanks for your help,
James

__
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-devel


Re: [Rd] Windows RConsole Focus

2003-11-02 Thread Prof Brian D Ripley
?bringToTop

On Wed, 22 Oct 2003, James Wettenhall wrote:

> Hi,
>
> I was looking for a Windows-specific R function to focus the
> console window and couldn't find one.  The motivation is that
> after loading the tcltk package, the "main" Tk window "." is
> presumably focused but then immediately withdrawn (hidden) so
> the RConsole loses its focus and you have to click on it to
> continue typing.
>
> Would there be any interest in including a winConsoleFocus()
> function in R at some stage or is it already there?
>
> I tried implementing a quick solution (below) which seemes
> to work.
>
> Regards,
> James
>
> src/gnuwin32/rui.c
> --
> int winconsolefocus()
> {
> show(RConsole);
> return 0;
> }
>
> src/gnuwin32/rui.h
> --
> int winconsolefocus(void);
>
> src/gnuwin32/extra.c
> 
> SEXP do_winconsolefocus(SEXP call, SEXP op, SEXP args, SEXP rho)
> {
> SEXP ans;
> Rboolean success = TRUE;
> winconsolefocus();
> PROTECT(ans = allocVector(LGLSXP, 1));
> LOGICAL(ans)[0] = success;
> UNPROTECT(1);
> return ans;
> }
>
> src/main/names.c
> 
> {"winConsoleFocus",do_winconsolefocus,0,11, 0,
> {PP_FUNCALL, PREC_FN,   0}},
>
> src/include/Internal.h
> --
> SEXP do_winconsolefocus(SEXP, SEXP, SEXP, SEXP);
>
> src/library/base/R/windows/winDialog.R
> ---
> winConsoleFocus <- function()
> invisible(.Internal(winConsoleFocus()))
>
> __
> [EMAIL PROTECTED] mailing list
> https://www.stat.math.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 272860 (secr)
Oxford OX1 3TG, UKFax:  +44 1865 272595

__
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-devel