ug <- utextStatic("underlined text")
grid.draw(ug)


grid.edit("utext", label="le texte soulign\U00E9")


postscript("Figures/interactgrid-utexttreehigh%1d.eps",
  paper="special", 
  onefile=FALSE, width=2, height=1, horizontal=FALSE)
grid.rect(gp=gpar(col="grey"))
ug <- utextStatic("underlined text")
grid.draw(ug)
grid.edit("utext", label="le texte soulign\U00E9")
dev.off()
pdf("Figures/interactgrid-utexttreehigh%1d.pdf",
  onefile=FALSE, width=2, height=1)
grid.rect(gp=gpar(col="grey"))
ug <- utextStatic("underlined text")
grid.draw(ug)
grid.edit("utext", label="le texte soulign\U00E9")
dev.off()
png("Web/interactgrid-utexttreehigh%1d.png",
    width=137, height=69)
grid.rect(gp=gpar(col="grey"))
ug <- utextStatic("underlined text")
grid.draw(ug)
grid.edit("utext", label="le texte soulign\U00E9")
dev.off()