Nothing
# reason: generator leaves off 'width' parameter thinking it holds the length of 'data'
gdkBitmapCreateFromData <-
function(drawable = NULL, data, width, height)
{
if (!is.null( drawable )) checkPtrType(drawable, "GdkDrawable")
data <- as.list(as.raw(data))
height <- as.integer(height)
width <- as.integer(width)
w <- .RGtkCall("S_gdk_bitmap_create_from_data", drawable, data, width, height)
return(w)
}
# reason: need to include the rowstride param (it is not length of buffer)
gdkDrawRgbImage <-
function (object, gc, x, y, width, height, dith, rgb.buf, rowstride)
{
checkPtrType(object, "GdkDrawable")
checkPtrType(gc, "GdkGC")
x <- as.integer(x)
y <- as.integer(y)
width <- as.integer(width)
height <- as.integer(height)
rgb.buf <- as.list(as.integer(rgb.buf))
rowstride <- as.integer(rowstride)
w <- .RGtkCall("S_gdk_draw_rgb_image", object, gc, x, y,
width, height, dith, rgb.buf, rowstride, PACKAGE = "RGtk2")
return(w)
}
# reason: need to omit the GdkWindowHints flags
gdkWindowConstrainSize <-
function(geometry, width, height)
{
geometry <- as.GdkGeometry(geometry)
width <- as.integer(width)
height <- as.integer(height)
w <- .RGtkCall("S_gdk_window_constrain_size", geometry, width, height)
return(invisible(w))
}
# reason: need to omit memory handling stuff
gdkPixbufNewFromData <-
function(data, colorspace, has.alpha, bits.per.sample, width, height, rowstride)
{
data <- as.raw(data)
has.alpha <- as.logical(has.alpha)
bits.per.sample <- as.integer(bits.per.sample)
width <- as.integer(width)
height <- as.integer(height)
rowstride <- as.integer(rowstride)
w <- .RGtkCall("S_gdk_pixbuf_new_from_data", data, colorspace, has.alpha, bits.per.sample, width, height, rowstride)
return(w)
}
# reason: omit the GdkWindowAttr mask
gdkWindowNew <-
function(parent = NULL, attributes)
{
checkPtrType(parent, "GdkWindow", nullOk = T)
attributes <- as.GdkWindowAttr(attributes)
w <- .RGtkCall("S_gdk_window_new", parent, attributes)
return(w)
}
# reason: calculating the text length in bytes is a pain, it's a null-terminated string so..
gdkTextExtents <- gdkStringExtents
# reason: the API defines the callback in a weird way
gdkWindowInvalidateMaybeRecurse <-
function(object, region, child.func, user.data)
{
checkPtrType(object, "GdkWindow")
checkPtrType(region, "GdkRegion")
child.func <- as.function(child.func)
w <- .RGtkCall("S_gdk_window_invalidate_maybe_recurse", object, region, child.func, user.data, PACKAGE = "RGtk2")
return(invisible(w))
}
# reason: collect var-args and send to gdkPixbufSavev
gdkPixbufSave <-
function(object, filename, type, ..., .errwarn = TRUE)
{
checkPtrType(object, "GdkPixbuf")
filename <- as.character(filename)
type <- as.character(type)
args <- c(...)
w <- gdkPixbufSavev(object, filename, type, names(args), args, .errwarn)
return(w)
}
# reason: collect var-args and send to gdkPixbufSaveToCallbackv
gdkPixbufSaveToCallback <-
function(object, save.func, user.data, type, ..., .errwarn = TRUE)
{
checkPtrType(object, "GdkPixbuf")
save.func <- as.function(save.func)
type <- as.character(type)
args <- c(...)
w <- gdkPixbufSaveToCallbackv(object, save.func, user.data, type, names(args), args, .errwarn)
return(w)
}
gdkColormapAllocColors <-
function(colormap, colors, writeable, best.match)
{
checkPtrType(colormap, "GdkColormap")
writeable <- as.logical(writeable)
best.match <- as.logical(best.match)
sapply(colors, function(color) gdkColormapAllocColor(colormap, color, writeable, best.match))
}
# reason: handle var-args by passing to save_to_bufferv
gdkPixbufSaveToBuffer <-
function(object, type, ..., .errwarn = TRUE)
{
checkPtrType(object, "GdkPixbuf")
type <- as.character(type)
args <- c(...)
w <- object$saveToBufferv(type, names(args), args, .errwarn)
return(invisible(w))
}
# reason: allow access to the GdkPixbuf error domain quark
GDK_PIXBUF_ERROR <- gdkPixbufErrorQuark <-
function()
{
w <- .RGtkCall("S_gdk_pixbuf_error_quark", PACKAGE = "RGtk2")
return(w)
}
# these virtual wrappers have capitalization issues:
gdkGCClassGetValues <- function(object.class, object)
gdkGCclassGetValues(object.class, object)
gdkGCClassSetDashes <- function(object.class, object, values)
gdkGCclassSetDashes(object.class, object, values)
gdkGCClassSetValues <- function(object.class, object, dash.list)
gdkGCclassSetValues(object.class, object, dash.list)
gdkDisplaySetPointerHooks <-
function(object, new.hooks)
{
.notimplemented("does not have user data for the hooks. What are you trying to do... implement an event system in R? Come on")
}
gdkSetPointerHooks <-
function(object, new.hooks)
{
.notimplemented("does not have user data for the hooks. What are you trying to do... implement an event system in R? Come on")
}
gdkColorsStore <-
function(object, colors)
{
.notimplemented("is obsolete and would probably break things if you used it. Just use a new colormap or something")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.