gtkObjectFlags <-
function(object)
{
checkPtrType(object, "GtkObject")
w <- .RGtkCall("S_GTK_OBJECT_FLAGS", object, PACKAGE = "RGtk2")
return(w)
}
gtkWidgetSetFlags <-
function(wid, flags)
{
checkPtrType(wid, "GtkWidget")
w <- .RGtkCall("S_GTK_WIDGET_SET_FLAGS", wid, flags, PACKAGE = "RGtk2")
return(w)
}
gtkWidgetUnsetFlags <-
function(wid, flags)
{
checkPtrType(wid, "GtkWidget")
w <- .RGtkCall("S_GTK_WIDGET_UNSET_FLAGS", wid, flags, PACKAGE = "RGtk2")
return(w)
}
gtkWidgetIsSensitive <-
function(wid)
{
checkPtrType(wid, "GtkWidget")
w <- .RGtkCall("S_GTK_WIDGET_IS_SENSITIVE", wid, PACKAGE = "RGtk2")
return(w)
}
gtkWidgetState <-
function(wid)
{
checkPtrType(wid, "GtkWidget")
w <- .RGtkCall("S_GTK_WIDGET_STATE", wid, PACKAGE = "RGtk2")
return(w)
}
gtkWidgetSavedState <-
function(wid)
{
checkPtrType(wid, "GtkWidget")
w <- .RGtkCall("S_GTK_WIDGET_SAVED_STATE", wid, PACKAGE = "RGtk2")
return(w)
}
gtkCTreeRow <-
function(node)
{
checkPtrType(node, "GtkCTreeNode")
w <- .RGtkCall("S_GTK_CTREE_ROW", node, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogGetType <-
function()
{
w <- .RGtkCall("S_gtk_about_dialog_get_type", PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogNew <-
function(show = TRUE)
{
w <- .RGtkCall("S_gtk_about_dialog_new", PACKAGE = "RGtk2")
if(show)
gtkWidgetShowAll(w)
return(w)
}
gtkAboutDialogGetName <-
function(object)
{
if(getOption("depwarn"))
.Deprecated("getProgramName", "RGtk2")
checkPtrType(object, "GtkAboutDialog")
w <- .RGtkCall("S_gtk_about_dialog_get_name", object, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogSetName <-
function(object, name = NULL)
{
if(getOption("depwarn"))
.Deprecated("setProgramName", "RGtk2")
checkPtrType(object, "GtkAboutDialog")
if (!is.null( name )) name <- as.character(name)
w <- .RGtkCall("S_gtk_about_dialog_set_name", object, name, PACKAGE = "RGtk2")
return(invisible(w))
}
gtkAboutDialogGetVersion <-
function(object)
{
checkPtrType(object, "GtkAboutDialog")
w <- .RGtkCall("S_gtk_about_dialog_get_version", object, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogSetVersion <-
function(object, version = NULL)
{
checkPtrType(object, "GtkAboutDialog")
if (!is.null( version )) version <- as.character(version)
w <- .RGtkCall("S_gtk_about_dialog_set_version", object, version, PACKAGE = "RGtk2")
return(invisible(w))
}
gtkAboutDialogGetCopyright <-
function(object)
{
checkPtrType(object, "GtkAboutDialog")
w <- .RGtkCall("S_gtk_about_dialog_get_copyright", object, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogSetCopyright <-
function(object, copyright = NULL)
{
checkPtrType(object, "GtkAboutDialog")
if (!is.null( copyright )) copyright <- as.character(copyright)
w <- .RGtkCall("S_gtk_about_dialog_set_copyright", object, copyright, PACKAGE = "RGtk2")
return(invisible(w))
}
gtkAboutDialogGetComments <-
function(object)
{
checkPtrType(object, "GtkAboutDialog")
w <- .RGtkCall("S_gtk_about_dialog_get_comments", object, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogSetComments <-
function(object, comments = NULL)
{
checkPtrType(object, "GtkAboutDialog")
if (!is.null( comments )) comments <- as.character(comments)
w <- .RGtkCall("S_gtk_about_dialog_set_comments", object, comments, PACKAGE = "RGtk2")
return(invisible(w))
}
gtkAboutDialogGetLicense <-
function(object)
{
checkPtrType(object, "GtkAboutDialog")
w <- .RGtkCall("S_gtk_about_dialog_get_license", object, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogSetLicense <-
function(object, license = NULL)
{
checkPtrType(object, "GtkAboutDialog")
if (!is.null( license )) license <- as.character(license)
w <- .RGtkCall("S_gtk_about_dialog_set_license", object, license, PACKAGE = "RGtk2")
return(invisible(w))
}
gtkAboutDialogGetWrapLicense <-
function(object)
{
checkPtrType(object, "GtkAboutDialog")
w <- .RGtkCall("S_gtk_about_dialog_get_wrap_license", object, PACKAGE = "RGtk2")
return(w)
}
gtkAboutDialogSetWrapLicense <-
function(object, wrap.license