R devel - Oct 2003 - Windows RConsole Focus

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()))

?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()))
>
> ______________________________________________
> R-devel@stat.math.ethz.ch mailing list
> https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
>
>
-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
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, UK                Fax:  +44 1865 272595