From romain.francois at dbmail.com  Fri Aug  7 11:33:58 2009
From: romain.francois at dbmail.com (Romain Francois)
Date: Fri, 07 Aug 2009 11:33:58 +0200
Subject: [Rd] options( "menu" )
Message-ID: <4A7BF506.60302@dbmail.com>

Hello,

The current implementation of the menu function (in utils) makes it 
difficult for front-ends to hook in and propose an alternative display.

Can there be something like options( "menu" ) to give control over it in 
case graphics = TRUE. The default could be then be factored out of the 
current menu :

default.menu <- function( choices, multiple = FALSE, title ){
	if(.Platform$OS.type == "windows" || .Platform$GUI == "AQUA") {
             res <- select.list(choices = choices, multiple=multiple, 
title=title)
             return(match(res, choices, nomatch = 0L))
         } else if(.Platform$OS.type == "unix"
                 && capabilities("tcltk") && capabilities("X11")
                 && nzchar(Sys.getenv("DISPLAY"))) {
             res <- tcltk::tk_select.list(choices, multiple=multiple, 
title=title)
             return(match(res, choices, nomatch = 0L))
         }
options( menu = default.menu )

... or maybe this should be done at the select.list level

Romain

-- 
Romain Francois
Professional R Enthusiast
+33(0) 6 28 91 30 30
http://romainfrancois.blog.free.fr
|- http://tr.im/vzip : Code Snippet : List of CRAN packages
|- http://tr.im/vsK1 : R parser package on CRAN
`- http://tr.im/vshK : Transfer files through Rserve



[Rd] options( "menu" )
Romain Francois