initGrobAutoName <- function() {
function(prefix="GRID", suffix="GROB") {
paste(prefix, suffix, index, sep=".")
grobAutoName <- initGrobAutoName()
grobName <- function(grob=NULL, prefix="GRID") {
stop("Invalid 'grob' argument")
grobAutoName(prefix, class(grob)[1L])