getGraphicsEvent <- function(prompt = "Waiting for input", 
                 onMouseDown = NULL, onMouseMove = NULL, onMouseUp = NULL, onKeybd = NULL)
    .Internal(getGraphicsEvent(prompt, onMouseDown, onMouseMove, onMouseUp, onKeybd))
