capturing the current display

[stla]

Here Michael Lawrence has provided a way to capture the current display of Ggobi, and after having used it, I can guarantee it works very well. It would be nice to include it in the package.

currentDisplay <- function(x) UseMethod("currentDisplay")
currentDisplay.GGobi <- function(x) {
 rggobi:::.GGobiCall("getCurrentDisplay", .gobi = x)
}