R/atkCoerce.R

In RGtk2: R Bindings for Gtk 2.8.0 and Above

Defines functions as.AtkRectangle as.AtkTextRectangle as.AtkAttribute as.AtkAttributeSet

Documented in as.AtkAttribute as.AtkAttributeSet as.AtkRectangle as.AtkTextRectangle

as.AtkAttributeSet <-
function(x)
{
	x <- as.GSList(x)
	class(x) <- "AtkAttributeSet"
	x
}
as.AtkAttribute <-
function(x)
{
	attr <- as.character(x)
	names(attr) <- names(x)
	attr
}

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

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

Try the RGtk2 package in your browser