R/pangoCoerce.R

Defines functions as.PangoRectangle

Documented in as.PangoRectangle

#as.PangoMatrix <-
#function(x)
#{
#    x <- as.struct(x, "PangoMatrix", c("xx", "xy", "yx", "yy", "x0", "y0"))
#    x[[1]] <- as.numeric(x[[1]])
#    x[[2]] <- as.numeric(x[[2]])
#    x[[3]] <- as.numeric(x[[3]])
#    x[[4]] <- as.numeric(x[[4]])
#    x[[5]] <- as.numeric(x[[5]])
#    x[[6]] <- as.numeric(x[[6]])
#
#    return(x)
#}

as.PangoRectangle <- function(x)
{
	x <- as.GdkRectangle(x)
	class(x) <- "PangoRectangle"
	x
}

Try the RGtk2 package in your browser

Any scripts or data that you put into this service are public.

RGtk2 documentation built on Oct. 14, 2021, 5:08 p.m.