strwidth <- function(s, units="user", cex=NULL)
	.Internal(strwidth(s, pmatch(units, c("user", "figure", "inches")), cex))
