splitTextGrob <- function(text, ...) {
    gTree(text=text, cl="splitText", ...)
}

makeContent.splitText <- function(x) {
    setChildren(x, gList(textGrob(splitString(x$text),
                                  x=0, y=1, 
                                  just=c("left", "top"))))
}