.packageName <- "RGtk"
gdkGetWindowSize <-
function(w)
{
 gtkCheckInherits(w, "GdkWindow")
 .Call("S_gdk_window_get_size", w)
}  



gtkComboSetPopdownStrings <-
  #
  # strings should be a character vector
  #
function(combo, strings, .flush = TRUE)
{
  gtkCheckInherits(combo, "GtkCombo")
  strings <- as.character(strings)
  .GtkCall("R_gtkComboSetPopdownStrings", combo, strings)
}





gtkTextGetText <-
function(w)
{
 .Call("R_gtk_getTextContents", w)
}

gtkTextClearText <-
function(w, start=0, end=-1)
{
 .Call("R_gtk_clearTextContents", w, as.integer(c(start, end)))
}

gtkTextSetText <-
function(w, contents="", append = FALSE)
{
 if(append == FALSE) {
   gtkClearText(w, )
 }

 .Call("R_gtk_setTextContents", w, as.character(contents), as.logical(append))
}



gtkObjectRef =
function(obj)
{
  gtkCheckInherits(combo, "GtkObject")  
 .GtkCall("R_gtk_object_ref", obj, TRUE) 
}

gtkObjectUnref =
function(obj)
{
  gtkCheckInherits(combo, "GtkObject")  
 .GtkCall("R_gtk_object_ref", obj, FALSE) 
}



findWidgetByType =
  #
  # Recursively search a widget tree for the first occurence of
  # a widget of the specified type.
  #
function(win, gtkType = "GtkMenuBar", verbose = FALSE)
{
 if(verbose)
   print(class(win))

 if(is.function(gtkType)) {
   if(gtkType(win))
     return(win)
 } else if(as.character(gtkType) %in% class(win)) {
     return(win)
 } 

 if("GtkContainer" %in% class(win)) {
  for(i in win$GetChildren()) {
   tmp = findWidgetByType(i, gtkType, verbose = verbose)
   if(!is.null(tmp))
     return(tmp)
  }
 }
 
 return(NULL)
}


gtkWidgetSetFlags =
function(w, val, flags = .GtkWidgetFlags)
{
  if(is.character(val)) {
     which = match(val, names(flags))
     if(any(is.na(which)))
       stop("Unrecognized flags", paste(val[is.na(which)], collapse=", "))

     which = flags[which]
  } else
     which = val


  if(! ("GtkWidget" %in% class(w)))
    stop("Expecting a GtkWidget object")
  
  .Call("R_gtkWidgetSetFlags", w, as.integer(which))
}

gtkWidgetGetFlags =
function(w)
{
  gtkWidgetSetFlags(w, integer(0))
}


gtkContainerGetChildren <- gtkChildren <-
function(w, full = TRUE)
{
  gtkCheckInherits(w, "GtkContainer")
  kids <- .Call("R_gtkGetChildren", w)
  if(full && length(kids) > 0) {
   kids <- lapply(kids, function(x) {
                          class(x) <- gtkObjectGetClasses(x)
                          x})
 }

 kids
}


gtkWidgetGetParent <- gtkParent <-
function(w, full = TRUE)
{
 gtkCheckInherits(w, "GtkWidget")  
 p <- .Call("R_gtkGetParent", w)
 if(full && !is.null(p)) {
   class(p) <- gtkObjectGetClasses(p)
 }
 p
}
gdkVisualGetType <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetType', obj)
  v
} 
gdkVisualGetDepth <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetDepth', obj)
  v
} 
gdkVisualGetByteOrder <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetByteOrder', obj)
  v
} 
gdkVisualGetColormapSize <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetColormapSize', obj)
  v
} 
gdkVisualGetBitsPerRgb <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetBitsPerRgb', obj)
  v
} 
gdkVisualGetRedMask <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetRedMask', obj)
  v
} 
gdkVisualGetRedShift <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetRedShift', obj)
  v
} 
gdkVisualGetRedPrec <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetRedPrec', obj)
  v
} 
gdkVisualGetGreenMask <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetGreenMask', obj)
  v
} 
gdkVisualGetGreenShift <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetGreenShift', obj)
  v
} 
gdkVisualGetGreenPrec <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetGreenPrec', obj)
  v
} 
gdkVisualGetBlueMask <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetBlueMask', obj)
  v
} 
gdkVisualGetBlueShift <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetBlueShift', obj)
  v
} 
gdkVisualGetBluePrec <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkVisual')
  v <- .Call('S_GdkVisualGetBluePrec', obj)
  v
} 
gdkEventMotionGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventMotionGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetSendEvent', obj)
  v
} 
gdkEventMotionGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetTime', obj)
  v
} 
gdkEventMotionGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetX', obj)
  v
} 
gdkEventMotionGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetY', obj)
  v
} 
gdkEventMotionGetPressure <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetPressure', obj)
  v
} 
gdkEventMotionGetXtilt <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetXtilt', obj)
  v
} 
gdkEventMotionGetYtilt <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetYtilt', obj)
  v
} 
gdkEventMotionGetState <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetState', obj)
  v
} 
gdkEventMotionGetIsHint <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetIsHint', obj)
  v
} 
gdkEventMotionGetSource <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetSource', obj)
  v
} 
gdkEventMotionGetDeviceid <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetDeviceid', obj)
  v
} 
gdkEventMotionGetXRoot <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetXRoot', obj)
  v
} 
gdkEventMotionGetYRoot <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventMotion')
  v <- .Call('S_GdkEventMotionGetYRoot', obj)
  v
} 
gdkEventSelectionGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventSelectionGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetSendEvent', obj)
  v
} 
gdkEventSelectionGetSelection <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetSelection', obj)
  v
} 
gdkEventSelectionGetTarget <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetTarget', obj)
  v
} 
gdkEventSelectionGetProperty <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetProperty', obj)
  v
} 
gdkEventSelectionGetRequestor <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetRequestor', obj)
  v
} 
gdkEventSelectionGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventSelection')
  v <- .Call('S_GdkEventSelectionGetTime', obj)
  v
} 
gdkEventConfigureGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventConfigure')
  v <- .Call('S_GdkEventConfigureGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventConfigureGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventConfigure')
  v <- .Call('S_GdkEventConfigureGetSendEvent', obj)
  v
} 
gdkEventConfigureGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventConfigure')
  v <- .Call('S_GdkEventConfigureGetX', obj)
  v
} 
gdkEventConfigureGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventConfigure')
  v <- .Call('S_GdkEventConfigureGetY', obj)
  v
} 
gdkEventConfigureGetWidth <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventConfigure')
  v <- .Call('S_GdkEventConfigureGetWidth', obj)
  v
} 
gdkEventConfigureGetHeight <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventConfigure')
  v <- .Call('S_GdkEventConfigureGetHeight', obj)
  v
} 
gdkEventCrossingGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventCrossingGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetSendEvent', obj)
  v
} 
gdkEventCrossingGetSubwindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetSubwindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventCrossingGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetTime', obj)
  v
} 
gdkEventCrossingGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetX', obj)
  v
} 
gdkEventCrossingGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetY', obj)
  v
} 
gdkEventCrossingGetXRoot <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetXRoot', obj)
  v
} 
gdkEventCrossingGetYRoot <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetYRoot', obj)
  v
} 
gdkEventCrossingGetMode <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetMode', obj)
  v
} 
gdkEventCrossingGetDetail <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetDetail', obj)
  v
} 
gdkEventCrossingGetFocus <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetFocus', obj)
  v
} 
gdkEventCrossingGetState <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventCrossing')
  v <- .Call('S_GdkEventCrossingGetState', obj)
  v
} 
gdkEventExposeGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventExpose')
  v <- .Call('S_GdkEventExposeGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventExposeGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventExpose')
  v <- .Call('S_GdkEventExposeGetSendEvent', obj)
  v
} 
gdkEventExposeGetCount <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventExpose')
  v <- .Call('S_GdkEventExposeGetCount', obj)
  v
} 
gdkRectangleGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkRectangle')
  v <- .Call('S_GdkRectangleGetX', obj)
  v
} 
gdkRectangleGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkRectangle')
  v <- .Call('S_GdkRectangleGetY', obj)
  v
} 
gdkRectangleGetWidth <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkRectangle')
  v <- .Call('S_GdkRectangleGetWidth', obj)
  v
} 
gdkRectangleGetHeight <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkRectangle')
  v <- .Call('S_GdkRectangleGetHeight', obj)
  v
} 
gdkEventFocusGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventFocus')
  v <- .Call('S_GdkEventFocusGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventFocusGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventFocus')
  v <- .Call('S_GdkEventFocusGetSendEvent', obj)
  v
} 
gdkEventFocusGetIn <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventFocus')
  v <- .Call('S_GdkEventFocusGetIn', obj)
  v
} 
gdkEventKeyGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventKeyGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetSendEvent', obj)
  v
} 
gdkEventKeyGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetTime', obj)
  v
} 
gdkEventKeyGetState <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetState', obj)
  v
} 
gdkEventKeyGetKeyval <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetKeyval', obj)
  v
} 
gdkEventKeyGetLength <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetLength', obj)
  v
} 
gdkEventKeyGetString <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventKey')
  v <- .Call('S_GdkEventKeyGetString', obj)
  v
} 
gdkEventGetType <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEvent')
  v <- .Call('S_GdkEventGetType', obj)
  v
} 
gdkEventAnyGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventAny')
  v <- .Call('S_GdkEventAnyGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventAnyGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventAny')
  v <- .Call('S_GdkEventAnyGetSendEvent', obj)
  v
} 
gdkWindowAttrGetTitle <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetTitle', obj)
  v
} 
gdkWindowAttrGetEventMask <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetEventMask', obj)
  v
} 
gdkWindowAttrGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetX', obj)
  v
} 
gdkWindowAttrGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetY', obj)
  v
} 
gdkWindowAttrGetWidth <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetWidth', obj)
  v
} 
gdkWindowAttrGetHeight <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetHeight', obj)
  v
} 
gdkWindowAttrGetWclass <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetWclass', obj)
  v
} 
gdkWindowAttrGetVisual <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetVisual', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkWindowAttrGetColormap <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetColormap', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkWindowAttrGetWindowType <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetWindowType', obj)
  v
} 
gdkWindowAttrGetCursor <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetCursor', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkWindowAttrGetWmclassName <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetWmclassName', obj)
  v
} 
gdkWindowAttrGetWmclassClass <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetWmclassClass', obj)
  v
} 
gdkWindowAttrGetOverrideRedirect <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkWindowAttr')
  v <- .Call('S_GdkWindowAttrGetOverrideRedirect', obj)
  v
} 
gdkEventProximityGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProximity')
  v <- .Call('S_GdkEventProximityGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventProximityGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProximity')
  v <- .Call('S_GdkEventProximityGetSendEvent', obj)
  v
} 
gdkEventProximityGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProximity')
  v <- .Call('S_GdkEventProximityGetTime', obj)
  v
} 
gdkEventProximityGetSource <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProximity')
  v <- .Call('S_GdkEventProximityGetSource', obj)
  v
} 
gdkEventProximityGetDeviceid <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProximity')
  v <- .Call('S_GdkEventProximityGetDeviceid', obj)
  v
} 
gdkEventVisibilityGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventVisibility')
  v <- .Call('S_GdkEventVisibilityGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventVisibilityGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventVisibility')
  v <- .Call('S_GdkEventVisibilityGetSendEvent', obj)
  v
} 
gdkEventVisibilityGetState <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventVisibility')
  v <- .Call('S_GdkEventVisibilityGetState', obj)
  v
} 
gdkPointGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkPoint')
  v <- .Call('S_GdkPointGetX', obj)
  v
} 
gdkPointGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkPoint')
  v <- .Call('S_GdkPointGetY', obj)
  v
} 
gdkFontGetType <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkFont')
  v <- .Call('S_GdkFontGetType', obj)
  v
} 
gdkFontGetAscent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkFont')
  v <- .Call('S_GdkFontGetAscent', obj)
  v
} 
gdkFontGetDescent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkFont')
  v <- .Call('S_GdkFontGetDescent', obj)
  v
} 
gdkEventButtonGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventButtonGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetSendEvent', obj)
  v
} 
gdkEventButtonGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetTime', obj)
  v
} 
gdkEventButtonGetX <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetX', obj)
  v
} 
gdkEventButtonGetY <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetY', obj)
  v
} 
gdkEventButtonGetPressure <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetPressure', obj)
  v
} 
gdkEventButtonGetXtilt <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetXtilt', obj)
  v
} 
gdkEventButtonGetYtilt <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetYtilt', obj)
  v
} 
gdkEventButtonGetState <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetState', obj)
  v
} 
gdkEventButtonGetButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetButton', obj)
  v
} 
gdkEventButtonGetSource <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetSource', obj)
  v
} 
gdkEventButtonGetDeviceid <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetDeviceid', obj)
  v
} 
gdkEventButtonGetXRoot <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetXRoot', obj)
  v
} 
gdkEventButtonGetYRoot <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventButton')
  v <- .Call('S_GdkEventButtonGetYRoot', obj)
  v
} 
gdkEventPropertyGetWindow <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProperty')
  v <- .Call('S_GdkEventPropertyGetWindow', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkEventPropertyGetSendEvent <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProperty')
  v <- .Call('S_GdkEventPropertyGetSendEvent', obj)
  v
} 
gdkEventPropertyGetAtom <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProperty')
  v <- .Call('S_GdkEventPropertyGetAtom', obj)
  v
} 
gdkEventPropertyGetTime <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProperty')
  v <- .Call('S_GdkEventPropertyGetTime', obj)
  v
} 
gdkEventPropertyGetState <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkEventProperty')
  v <- .Call('S_GdkEventPropertyGetState', obj)
  v
} 
gdkCursorGetType <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkCursor')
  v <- .Call('S_GdkCursorGetType', obj)
  v
} 
gdkImageGetType <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetType', obj)
  v
} 
gdkImageGetVisual <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetVisual', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gdkImageGetByteOrder <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetByteOrder', obj)
  v
} 
gdkImageGetWidth <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetWidth', obj)
  v
} 
gdkImageGetHeight <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetHeight', obj)
  v
} 
gdkImageGetDepth <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetDepth', obj)
  v
} 
gdkImageGetBpp <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetBpp', obj)
  v
} 
gdkImageGetBpl <-
function(obj)
{
  gtkCheckInherits(obj, 'GdkImage')
  v <- .Call('S_GdkImageGetBpl', obj)
  v
} 
gdkVisualGetBestDepth <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_visual_get_best_depth", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkImageGetPixel <-
function(image = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(image, "GdkImage")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gdk_image_get_pixel", image, x, y, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkColormapGetSystem <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_colormap_get_system", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkVisualGetSystem <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_visual_get_system", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkWindowHide <-
function(window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")

	 w <- .GtkCall("S_gdk_window_hide", window, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkWindowSetCursor <-
function(win = NULL, cursor = NULL, .flush = TRUE)
{
	 gtkCheckInherits(win, "GdkWindow")
	 gtkCheckInherits(cursor, "GdkCursor")

	 w <- .GtkCall("S_gdk_window_set_cursor", win, cursor, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkFontId <-
function(font = NULL, .flush = TRUE)
{
	 gtkCheckInherits(font, "GdkFont")

	 w <- .GtkCall("S_gdk_font_id", font, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRegionRectIn <-
function(region = NULL, rect = NULL, .flush = TRUE)
{
	 gtkCheckInherits(region, "GdkRegion")
	 gtkCheckInherits(rect, "GdkRectangle")

	 w <- .GtkCall("S_gdk_region_rect_in", region, rect, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRegionNew <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_region_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkRegion")
	 return(w)

}
 

gdkRegionPointIn <-
function(region = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(region, "GdkRegion")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gdk_region_point_in", region, x, y, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRegionUnionWithRect <-
function(region = NULL, rect = NULL, .flush = TRUE)
{
	 gtkCheckInherits(region, "GdkRegion")
	 gtkCheckInherits(rect, "GdkRectangle")

	 w <- .GtkCall("S_gdk_region_union_with_rect", region, rect, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRegionShrink <-
function(region = NULL, dx, dy, .flush = TRUE)
{
	 gtkCheckInherits(region, "GdkRegion")
	 dx <- as.integer(dx)
	 dy <- as.integer(dy)

	 w <- .GtkCall("S_gdk_region_shrink", region, dx, dy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkPixmapNew <-
function(window = NULL, width, height, depth, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")
	 width <- as.integer(width)
	 height <- as.integer(height)
	 depth <- as.integer(depth)

	 w <- .GtkCall("S_gdk_pixmap_new", window, width, height, depth, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkPixmap")
	 return(w)

}
 

gdkColormapAllocColor <-
function(colormap = NULL, color, writable = false, best.match = true, .flush = TRUE)
{
	 gtkCheckInherits(colormap, "GdkColormap")
	 gtkCheckInherits(color, "GdkColor")
	 writable <- as.logical(writable)
	 best.match <- as.logical(best.match)

	 w <- .GtkCall("S_gdk_colormap_alloc_color", colormap, color, writable, best.match, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkColormapNew <-
function(visual = NULL, allocate, .flush = TRUE)
{
	 gtkCheckInherits(visual, "GdkVisual")
	 allocate <- as.integer(allocate)

	 w <- .GtkCall("S_gdk_colormap_new", visual, allocate, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkColormap")
	 return(w)

}
 

gdkRectangleUnion <-
function(src1 = NULL, src2 = NULL, dest = NULL, .flush = TRUE)
{
	 gtkCheckInherits(src1, "GdkRectangle")
	 gtkCheckInherits(src2, "GdkRectangle")
	 gtkCheckInherits(dest, "GdkRectangle")

	 w <- .GtkCall("S_gdk_rectangle_union", src1, src2, dest, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkWindowShow <-
function(window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")

	 w <- .GtkCall("S_gdk_window_show", window, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkImageNew <-
function(type = GdkImageType[1], visual = NULL, width, height, .flush = TRUE)
{
	 type  <- mapGdkImageType(type)
	 gtkCheckInherits(visual, "GdkVisual")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gdk_image_new", type, visual, width, height, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkImage")
	 return(w)

}
 

gdkColormapGetVisual <-
function(colormap = NULL, .flush = TRUE)
{
	 gtkCheckInherits(colormap, "GdkColormap")

	 w <- .GtkCall("S_gdk_colormap_get_visual", colormap, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRegionOffset <-
function(region = NULL, dx, dy, .flush = TRUE)
{
	 gtkCheckInherits(region, "GdkRegion")
	 dx <- as.integer(dx)
	 dy <- as.integer(dy)

	 w <- .GtkCall("S_gdk_region_offset", region, dx, dy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkWindowNew <-
function(parent = NULL, attributes = NULL, attributes.mask, .flush = TRUE)
{
	 gtkCheckInherits(parent, "GdkWindow")
	 gtkCheckInherits(attributes, "GdkWindowAttr")
	 attributes.mask <- as.integer(attributes.mask)

	 w <- .GtkCall("S_gdk_window_new", parent, attributes, attributes.mask, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkWindow")
	 return(w)

}
 

gdkImageGet <-
function(window = NULL, x, y, width, height, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gdk_image_get", window, x, y, width, height, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkWindowClearAreaE <-
function(window = NULL, x, y, width, height, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gdk_window_clear_area_e", window, x, y, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkVisualGetBestType <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_visual_get_best_type", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkFontEqual <-
function(fonta = NULL, fontb = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fonta, "GdkFont")
	 gtkCheckInherits(fontb, "GdkFont")

	 w <- .GtkCall("S_gdk_font_equal", fonta, fontb, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkWindowClearArea <-
function(window = NULL, x, y, width, height, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gdk_window_clear_area", window, x, y, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkRegionEmpty <-
function(region = NULL, .flush = TRUE)
{
	 gtkCheckInherits(region, "GdkRegion")

	 w <- .GtkCall("S_gdk_region_empty", region, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkWindowGetParent <-
function(window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(window, "GdkWindow")

	 w <- .GtkCall("S_gdk_window_get_parent", window, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkImagePutPixel <-
function(image = NULL, x, y, pixel, .flush = TRUE)
{
	 gtkCheckInherits(image, "GdkImage")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 pixel <- as.integer(pixel)

	 w <- .GtkCall("S_gdk_image_put_pixel", image, x, y, pixel, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkColormapGetSystemSize <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_colormap_get_system_size", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRegionEqual <-
function(region1 = NULL, region2 = NULL, .flush = TRUE)
{
	 gtkCheckInherits(region1, "GdkRegion")
	 gtkCheckInherits(region2, "GdkRegion")

	 w <- .GtkCall("S_gdk_region_equal", region1, region2, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkRectangleIntersect <-
function(src1 = NULL, src2 = NULL, dest = NULL, .flush = TRUE)
{
	 gtkCheckInherits(src1, "GdkRectangle")
	 gtkCheckInherits(src2, "GdkRectangle")
	 gtkCheckInherits(dest, "GdkRectangle")

	 w <- .GtkCall("S_gdk_rectangle_intersect", src1, src2, dest, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 



.GdkClasses  <- c( "GdkBitmap", "GdkColormap", "GdkCursor", "GdkEvent", "GdkEventAny", "GdkEventButton", "GdkEventConfigure", "GdkEventCrossing", "GdkEventExpose", "GdkEventFocus", "GdkEventKey", "GdkEventMotion", "GdkEventProperty", "GdkEventProximity", "GdkEventSelection", "GdkEventVisibility", "GdkFont", "GdkImage", "GdkPixmap", "GdkPoint", "GdkRectangle", "GdkRegion", "GdkVisual", "GdkWindow", "GdkWindowAttr" )

getSignalInfo <-
function(classes = .GtkClasses, load  = TRUE)
{
    if(load && is.loaded("loadGtkTypes"))
      .C("loadGtkTypes")

    info <- list()
    for(i in classes) {
      tmp <- lapply(gtkTypeGetSignals(i), gtkSignalGetInfo)
      if(length(tmp))
        info[[i]] <- tmp
    }

    info
}


if(FALSE) {
getSignalHandlerCalls <-
function(sigs, className)
{
  v <- list()
  for(i in names(sigs)) {
    sig <- sigs[[i]]
    v[[i]] <- c(as.character(names(sig$returnType)), sapply(sig$parameters, names))
  }

  v
}
}

#sapply(names(info), function(x) {
#                    getSignalHandleCall(info[[x]], x)
#                   })

gtkObjectSignalEmit <-
function(obj, signal, ..., .flush = TRUE)
{
  gtkCheckInherits(obj, "GtkObject")
  args <- list(...)
  .GtkCall("S_gtkSignalEmit", obj, as.character(signal), args, .flush = .flush)
}  


gnomeDialogGetVbox <-
function(obj)
{
  gtkCheckInherits(obj, 'GnomeDialog')
  v <- .Call('S_GnomeDialogGetVbox', obj)
  v
} 
gnomeCalculatorGetResult <-
function(obj)
{
  gtkCheckInherits(obj, 'GnomeCalculator')
  v <- .Call('S_GnomeCalculatorGetResult', obj)
  v
} 
gnomeDruidPageStandardGetVbox <-
function(obj)
{
  gtkCheckInherits(obj, 'GnomeDruidPageStandard')
  v <- .Call('S_GnomeDruidPageStandardGetVbox', obj)
  v
} 
GnomeClientState <- c( "idle" = 0,
	"saving-phase-1" = 1,
	"waiting-for-phase-2" = 2,
	"saving-phase-2" = 3,
	"frozen" = 4,
	"disconnected" = 5 )
storage.mode( GnomeClientState ) <- 'integer'
.GnomeClientState <- c( "GNOME_CLIENT_IDLE" = 0,
	"GNOME_CLIENT_SAVING_PHASE_1" = 1,
	"GNOME_CLIENT_WAITING_FOR_PHASE_2" = 2,
	"GNOME_CLIENT_SAVING_PHASE_2" = 3,
	"GNOME_CLIENT_FROZEN" = 4,
	"GNOME_CLIENT_DISCONNECTED" = 5 )
storage.mode( .GnomeClientState ) <- 'integer'
 

GnomeUIInfoType <- c( "endofinfo" = 0,
	"item" = 1,
	"toggleitem" = 2,
	"radioitems" = 3,
	"subtree" = 4,
	"separator" = 5,
	"help" = 6,
	"builder-data" = 7 )
storage.mode( GnomeUIInfoType ) <- 'integer'
.GnomeUIInfoType <- c( "GNOME_APP_UI_ENDOFINFO" = 0,
	"GNOME_APP_UI_ITEM" = 1,
	"GNOME_APP_UI_TOGGLEITEM" = 2,
	"GNOME_APP_UI_RADIOITEMS" = 3,
	"GNOME_APP_UI_SUBTREE" = 4,
	"GNOME_APP_UI_SEPARATOR" = 5,
	"GNOME_APP_UI_HELP" = 6,
	"GNOME_APP_UI_BUILDER_DATA" = 7 )
storage.mode( .GnomeUIInfoType ) <- 'integer'
 

GnomeCalculatorMode <- c( "deg" = 0,
	"rad" = 1,
	"grad" = 2 )
storage.mode( GnomeCalculatorMode ) <- 'integer'
.GnomeCalculatorMode <- c( "GNOME_CALCULATOR_DEG" = 0,
	"GNOME_CALCULATOR_RAD" = 1,
	"GNOME_CALCULATOR_GRAD" = 2 )
storage.mode( .GnomeCalculatorMode ) <- 'integer'
 

GnomeSaveStyle <- c( "global" = 0,
	"local" = 1,
	"both" = 2 )
storage.mode( GnomeSaveStyle ) <- 'integer'
.GnomeSaveStyle <- c( "GNOME_SAVE_GLOBAL" = 0,
	"GNOME_SAVE_LOCAL" = 1,
	"GNOME_SAVE_BOTH" = 2 )
storage.mode( .GnomeSaveStyle ) <- 'integer'
 

GtkClockType <- c( "increasing" = 0,
	"decreasing" = 1,
	"realtime" = 2 )
storage.mode( GtkClockType ) <- 'integer'
.GtkClockType <- c( "GTK_CLOCK_INCREASING" = 0,
	"GTK_CLOCK_DECREASING" = 1,
	"GTK_CLOCK_REALTIME" = 2 )
storage.mode( .GtkClockType ) <- 'integer'
 

GnomeAnimatorStatus <- c( "stopped" = 0,
	"running" = 1 )
storage.mode( GnomeAnimatorStatus ) <- 'integer'
.GnomeAnimatorStatus <- c( "GNOME_ANIMATOR_STATUS_STOPPED" = 0,
	"GNOME_ANIMATOR_STATUS_RUNNING" = 1 )
storage.mode( .GnomeAnimatorStatus ) <- 'integer'
 

GnomeDialogType <- c( "error" = 0,
	"normal" = 1 )
storage.mode( GnomeDialogType ) <- 'integer'
.GnomeDialogType <- c( "GNOME_DIALOG_ERROR" = 0,
	"GNOME_DIALOG_NORMAL" = 1 )
storage.mode( .GnomeDialogType ) <- 'integer'
 

GnomeDockPlacement <- c( "top" = 0,
	"right" = 1,
	"bottom" = 2,
	"left" = 3,
	"floating" = 4 )
storage.mode( GnomeDockPlacement ) <- 'integer'
.GnomeDockPlacement <- c( "GNOME_DOCK_TOP" = 0,
	"GNOME_DOCK_RIGHT" = 1,
	"GNOME_DOCK_BOTTOM" = 2,
	"GNOME_DOCK_LEFT" = 3,
	"GNOME_DOCK_FLOATING" = 4 )
storage.mode( .GnomeDockPlacement ) <- 'integer'
 

GnomeWinLayer <- c( "desktop" = 0,
	"below" = 1,
	"normal" = 2,
	"ontop" = 3,
	"dock" = 4,
	"above-dock" = 5 )
storage.mode( GnomeWinLayer ) <- 'integer'
.GnomeWinLayer <- c( "WIN_LAYER_DESKTOP" = 0,
	"WIN_LAYER_BELOW" = 1,
	"WIN_LAYER_NORMAL" = 2,
	"WIN_LAYER_ONTOP" = 3,
	"WIN_LAYER_DOCK" = 4,
	"WIN_LAYER_ABOVE_DOCK" = 5 )
storage.mode( .GnomeWinLayer ) <- 'integer'
 

GnomeUIPixmapType <- c( "none" = 0,
	"stock" = 1,
	"data" = 2,
	"filename" = 3 )
storage.mode( GnomeUIPixmapType ) <- 'integer'
.GnomeUIPixmapType <- c( "GNOME_APP_PIXMAP_NONE" = 0,
	"GNOME_APP_PIXMAP_STOCK" = 1,
	"GNOME_APP_PIXMAP_DATA" = 2,
	"GNOME_APP_PIXMAP_FILENAME" = 3 )
storage.mode( .GnomeUIPixmapType ) <- 'integer'
 

GnomeStockPixmapType <- c( "none" = 0,
	"data" = 1,
	"file" = 2,
	"path" = 3,
	"widget" = 4,
	"imlib" = 5,
	"imlib-scaled" = 6,
	"gpixmap" = 7 )
storage.mode( GnomeStockPixmapType ) <- 'integer'
.GnomeStockPixmapType <- c( "GNOME_STOCK_PIXMAP_TYPE_NONE" = 0,
	"GNOME_STOCK_PIXMAP_TYPE_DATA" = 1,
	"GNOME_STOCK_PIXMAP_TYPE_FILE" = 2,
	"GNOME_STOCK_PIXMAP_TYPE_PATH" = 3,
	"GNOME_STOCK_PIXMAP_TYPE_WIDGET" = 4,
	"GNOME_STOCK_PIXMAP_TYPE_IMLIB" = 5,
	"GNOME_STOCK_PIXMAP_TYPE_IMLIB_SCALED" = 6,
	"GNOME_STOCK_PIXMAP_TYPE_GPIXMAP" = 7 )
storage.mode( .GnomeStockPixmapType ) <- 'integer'
 

GnomeWinAppState <- c( "none" = 0,
	"active1" = 1,
	"active2" = 2,
	"error1" = 3,
	"error2" = 4,
	"fatal-error1" = 5,
	"fatal-error2" = 6,
	"idle1" = 7,
	"idle2" = 8,
	"waiting1" = 9,
	"waiting2" = 10,
	"working1" = 11,
	"working2" = 12,
	"need-user-input1" = 13,
	"need-user-input2" = 14,
	"struggling1" = 15,
	"struggling2" = 16,
	"disk-traffic1" = 17,
	"disk-traffic2" = 18,
	"network-traffic1" = 19,
	"network-traffic2" = 20,
	"overloaded1" = 21,
	"overloaded2" = 22,
	"percent000-1" = 23,
	"percent000-2" = 24,
	"percent010-1" = 25,
	"percent010-2" = 26,
	"percent020-1" = 27,
	"percent020-2" = 28,
	"percent030-1" = 29,
	"percent030-2" = 30,
	"percent040-1" = 31,
	"percent040-2" = 32,
	"percent050-1" = 33,
	"percent050-2" = 34,
	"percent060-1" = 35,
	"percent060-2" = 36,
	"percent070-1" = 37,
	"percent070-2" = 38,
	"percent080-1" = 39,
	"percent080-2" = 40,
	"percent090-1" = 41,
	"percent090-2" = 42,
	"percent100-1" = 43,
	"percent100-2" = 44 )
storage.mode( GnomeWinAppState ) <- 'integer'
.GnomeWinAppState <- c( "WIN_APP_STATE_NONE" = 0,
	"WIN_APP_STATE_ACTIVE1" = 1,
	"WIN_APP_STATE_ACTIVE2" = 2,
	"WIN_APP_STATE_ERROR1" = 3,
	"WIN_APP_STATE_ERROR2" = 4,
	"WIN_APP_STATE_FATAL_ERROR1" = 5,
	"WIN_APP_STATE_FATAL_ERROR2" = 6,
	"WIN_APP_STATE_IDLE1" = 7,
	"WIN_APP_STATE_IDLE2" = 8,
	"WIN_APP_STATE_WAITING1" = 9,
	"WIN_APP_STATE_WAITING2" = 10,
	"WIN_APP_STATE_WORKING1" = 11,
	"WIN_APP_STATE_WORKING2" = 12,
	"WIN_APP_STATE_NEED_USER_INPUT1" = 13,
	"WIN_APP_STATE_NEED_USER_INPUT2" = 14,
	"WIN_APP_STATE_STRUGGLING1" = 15,
	"WIN_APP_STATE_STRUGGLING2" = 16,
	"WIN_APP_STATE_DISK_TRAFFIC1" = 17,
	"WIN_APP_STATE_DISK_TRAFFIC2" = 18,
	"WIN_APP_STATE_NETWORK_TRAFFIC1" = 19,
	"WIN_APP_STATE_NETWORK_TRAFFIC2" = 20,
	"WIN_APP_STATE_OVERLOADED1" = 21,
	"WIN_APP_STATE_OVERLOADED2" = 22,
	"WIN_APP_STATE_PERCENT000_1" = 23,
	"WIN_APP_STATE_PERCENT000_2" = 24,
	"WIN_APP_STATE_PERCENT010_1" = 25,
	"WIN_APP_STATE_PERCENT010_2" = 26,
	"WIN_APP_STATE_PERCENT020_1" = 27,
	"WIN_APP_STATE_PERCENT020_2" = 28,
	"WIN_APP_STATE_PERCENT030_1" = 29,
	"WIN_APP_STATE_PERCENT030_2" = 30,
	"WIN_APP_STATE_PERCENT040_1" = 31,
	"WIN_APP_STATE_PERCENT040_2" = 32,
	"WIN_APP_STATE_PERCENT050_1" = 33,
	"WIN_APP_STATE_PERCENT050_2" = 34,
	"WIN_APP_STATE_PERCENT060_1" = 35,
	"WIN_APP_STATE_PERCENT060_2" = 36,
	"WIN_APP_STATE_PERCENT070_1" = 37,
	"WIN_APP_STATE_PERCENT070_2" = 38,
	"WIN_APP_STATE_PERCENT080_1" = 39,
	"WIN_APP_STATE_PERCENT080_2" = 40,
	"WIN_APP_STATE_PERCENT090_1" = 41,
	"WIN_APP_STATE_PERCENT090_2" = 42,
	"WIN_APP_STATE_PERCENT100_1" = 43,
	"WIN_APP_STATE_PERCENT100_2" = 44 )
storage.mode( .GnomeWinAppState ) <- 'integer'
 

GnomeIconListMode <- c( "icons" = 0,
	"text-below" = 1,
	"text-right" = 2 )
storage.mode( GnomeIconListMode ) <- 'integer'
.GnomeIconListMode <- c( "GNOME_ICON_LIST_ICONS" = 0,
	"GNOME_ICON_LIST_TEXT_BELOW" = 1,
	"GNOME_ICON_LIST_TEXT_RIGHT" = 2 )
storage.mode( .GnomeIconListMode ) <- 'integer'
 

GnomeFontPickerMode <- c( "pixmap" = 0,
	"font-info" = 1,
	"user-widget" = 2 )
storage.mode( GnomeFontPickerMode ) <- 'integer'
.GnomeFontPickerMode <- c( "GNOME_FONT_PICKER_MODE_PIXMAP" = 0,
	"GNOME_FONT_PICKER_MODE_FONT_INFO" = 1,
	"GNOME_FONT_PICKER_MODE_USER_WIDGET" = 2 )
storage.mode( .GnomeFontPickerMode ) <- 'integer'
 

GnomeAnimatorLoopType <- c( "none" = 0,
	"restart" = 1,
	"ping-pong" = 2 )
storage.mode( GnomeAnimatorLoopType ) <- 'integer'
.GnomeAnimatorLoopType <- c( "GNOME_ANIMATOR_LOOP_NONE" = 0,
	"GNOME_ANIMATOR_LOOP_RESTART" = 1,
	"GNOME_ANIMATOR_LOOP_PING_PONG" = 2 )
storage.mode( .GnomeAnimatorLoopType ) <- 'integer'
 

GnomeRestartStyle <- c( "if-running" = 0,
	"anyway" = 1,
	"immediately" = 2,
	"never" = 3 )
storage.mode( GnomeRestartStyle ) <- 'integer'
.GnomeRestartStyle <- c( "GNOME_RESTART_IF_RUNNING" = 0,
	"GNOME_RESTART_ANYWAY" = 1,
	"GNOME_RESTART_IMMEDIATELY" = 2,
	"GNOME_RESTART_NEVER" = 3 )
storage.mode( .GnomeRestartStyle ) <- 'integer'
 

GnomePreferencesType <- c( "never" = 0,
	"user" = 1,
	"always" = 2 )
storage.mode( GnomePreferencesType ) <- 'integer'
.GnomePreferencesType <- c( "GNOME_PREFERENCES_NEVER" = 0,
	"GNOME_PREFERENCES_USER" = 1,
	"GNOME_PREFERENCES_ALWAYS" = 2 )
storage.mode( .GnomePreferencesType ) <- 'integer'
 

GnomePropertyAction <- c( "apply" = 0,
	"update" = 1,
	"load" = 2,
	"save" = 3,
	"load-temp" = 4,
	"save-temp" = 5,
	"discard-temp" = 6,
	"changed" = 7 )
storage.mode( GnomePropertyAction ) <- 'integer'
.GnomePropertyAction <- c( "GNOME_PROPERTY_ACTION_APPLY" = 0,
	"GNOME_PROPERTY_ACTION_UPDATE" = 1,
	"GNOME_PROPERTY_ACTION_LOAD" = 2,
	"GNOME_PROPERTY_ACTION_SAVE" = 3,
	"GNOME_PROPERTY_ACTION_LOAD_TEMP" = 4,
	"GNOME_PROPERTY_ACTION_SAVE_TEMP" = 5,
	"GNOME_PROPERTY_ACTION_DISCARD_TEMP" = 6,
	"GNOME_PROPERTY_ACTION_CHANGED" = 7 )
storage.mode( .GnomePropertyAction ) <- 'integer'
 

GnomeInteractStyle <- c( "none" = 0,
	"errors" = 1,
	"any" = 2 )
storage.mode( GnomeInteractStyle ) <- 'integer'
.GnomeInteractStyle <- c( "GNOME_INTERACT_NONE" = 0,
	"GNOME_INTERACT_ERRORS" = 1,
	"GNOME_INTERACT_ANY" = 2 )
storage.mode( .GnomeInteractStyle ) <- 'integer'
 

GnomeMDIMode <- c( "notebook" = 0,
	"toplevel" = 1,
	"modal" = 2,
	"default-mode" = 3 )
storage.mode( GnomeMDIMode ) <- 'integer'
.GnomeMDIMode <- c( "GNOME_MDI_NOTEBOOK" = 0,
	"GNOME_MDI_TOPLEVEL" = 1,
	"GNOME_MDI_MODAL" = 2,
	"GNOME_MDI_DEFAULT_MODE" = 3 )
storage.mode( .GnomeMDIMode ) <- 'integer'
 

GnomeDateEditFlags <- c( "show-time" = 1,
	"a-24-hr" = 2,
	"week-starts-on-monday" = 4 )
storage.mode( GnomeDateEditFlags ) <- 'integer'
.GnomeDateEditFlags <- c( "GNOME_DATE_EDIT_SHOW_TIME" = 1,
	"GNOME_DATE_EDIT_24_HR" = 2,
	"GNOME_DATE_EDIT_WEEK_STARTS_ON_MONDAY" = 4 )
storage.mode( .GnomeDateEditFlags ) <- 'integer'
 

GnomeWinState <- c( "sticky" = 1,
	"minimized" = 2,
	"maximized-vert" = 4,
	"maximized-horiz" = 8,
	"hidden" = 16,
	"shaded" = 32,
	"hid-workspace" = 64,
	"hid-transient" = 128,
	"fixed-position" = 256,
	"arrange-ignore" = 512 )
storage.mode( GnomeWinState ) <- 'integer'
.GnomeWinState <- c( "WIN_STATE_STICKY" = 1,
	"WIN_STATE_MINIMIZED" = 2,
	"WIN_STATE_MAXIMIZED_VERT" = 4,
	"WIN_STATE_MAXIMIZED_HORIZ" = 8,
	"WIN_STATE_HIDDEN" = 16,
	"WIN_STATE_SHADED" = 32,
	"WIN_STATE_HID_WORKSPACE" = 64,
	"WIN_STATE_HID_TRANSIENT" = 128,
	"WIN_STATE_FIXED_POSITION" = 256,
	"WIN_STATE_ARRANGE_IGNORE" = 512 )
storage.mode( .GnomeWinState ) <- 'integer'
 

GnomeWinHints <- c( "skip-focus" = 1,
	"skip-winlist" = 2,
	"skip-taskbar" = 4,
	"group-transient" = 8,
	"focus-on-click" = 16 )
storage.mode( GnomeWinHints ) <- 'integer'
.GnomeWinHints <- c( "WIN_HINTS_SKIP_FOCUS" = 1,
	"WIN_HINTS_SKIP_WINLIST" = 2,
	"WIN_HINTS_SKIP_TASKBAR" = 4,
	"WIN_HINTS_GROUP_TRANSIENT" = 8,
	"WIN_HINTS_FOCUS_ON_CLICK" = 16 )
storage.mode( .GnomeWinHints ) <- 'integer'
 

GnomeDockItemBehavior <- c( "normal" = 1,
	"exclusive" = 2,
	"never-floating" = 4,
	"never-vertical" = 8,
	"never-horizontal" = 16,
	"locked" = 32 )
storage.mode( GnomeDockItemBehavior ) <- 'integer'
.GnomeDockItemBehavior <- c( "GNOME_DOCK_ITEM_BEH_NORMAL" = 1,
	"GNOME_DOCK_ITEM_BEH_EXCLUSIVE" = 2,
	"GNOME_DOCK_ITEM_BEH_NEVER_FLOATING" = 4,
	"GNOME_DOCK_ITEM_BEH_NEVER_VERTICAL" = 8,
	"GNOME_DOCK_ITEM_BEH_NEVER_HORIZONTAL" = 16,
	"GNOME_DOCK_ITEM_BEH_LOCKED" = 32 )
storage.mode( .GnomeDockItemBehavior ) <- 'integer'
 

mapGnomeClientState<-
function(val)
{
  if(inherits(val, "GnomeClientState"))
    return(val)
  .Call("S_check_GnomeClientState_value", val)
}
 

mapGnomeUIInfoType<-
function(val)
{
  if(inherits(val, "GnomeUIInfoType"))
    return(val)
  .Call("S_check_GnomeUIInfoType_value", val)
}
 

mapGnomeCalculatorMode<-
function(val)
{
  if(inherits(val, "GnomeCalculatorMode"))
    return(val)
  .Call("S_check_GnomeCalculatorMode_value", val)
}
 

mapGnomeSaveStyle<-
function(val)
{
  if(inherits(val, "GnomeSaveStyle"))
    return(val)
  .Call("S_check_GnomeSaveStyle_value", val)
}
 

mapGtkClockType<-
function(val)
{
  if(inherits(val, "GtkClockType"))
    return(val)
  .Call("S_check_GtkClockType_value", val)
}
 

mapGnomeAnimatorStatus<-
function(val)
{
  if(inherits(val, "GnomeAnimatorStatus"))
    return(val)
  .Call("S_check_GnomeAnimatorStatus_value", val)
}
 

mapGnomeDialogType<-
function(val)
{
  if(inherits(val, "GnomeDialogType"))
    return(val)
  .Call("S_check_GnomeDialogType_value", val)
}
 

mapGnomeDockPlacement<-
function(val)
{
  if(inherits(val, "GnomeDockPlacement"))
    return(val)
  .Call("S_check_GnomeDockPlacement_value", val)
}
 

mapGnomeWinLayer<-
function(val)
{
  if(inherits(val, "GnomeWinLayer"))
    return(val)
  .Call("S_check_GnomeWinLayer_value", val)
}
 

mapGnomeUIPixmapType<-
function(val)
{
  if(inherits(val, "GnomeUIPixmapType"))
    return(val)
  .Call("S_check_GnomeUIPixmapType_value", val)
}
 

mapGnomeStockPixmapType<-
function(val)
{
  if(inherits(val, "GnomeStockPixmapType"))
    return(val)
  .Call("S_check_GnomeStockPixmapType_value", val)
}
 

mapGnomeWinAppState<-
function(val)
{
  if(inherits(val, "GnomeWinAppState"))
    return(val)
  .Call("S_check_GnomeWinAppState_value", val)
}
 

mapGnomeIconListMode<-
function(val)
{
  if(inherits(val, "GnomeIconListMode"))
    return(val)
  .Call("S_check_GnomeIconListMode_value", val)
}
 

mapGnomeFontPickerMode<-
function(val)
{
  if(inherits(val, "GnomeFontPickerMode"))
    return(val)
  .Call("S_check_GnomeFontPickerMode_value", val)
}
 

mapGnomeAnimatorLoopType<-
function(val)
{
  if(inherits(val, "GnomeAnimatorLoopType"))
    return(val)
  .Call("S_check_GnomeAnimatorLoopType_value", val)
}
 

mapGnomeRestartStyle<-
function(val)
{
  if(inherits(val, "GnomeRestartStyle"))
    return(val)
  .Call("S_check_GnomeRestartStyle_value", val)
}
 

mapGnomePreferencesType<-
function(val)
{
  if(inherits(val, "GnomePreferencesType"))
    return(val)
  .Call("S_check_GnomePreferencesType_value", val)
}
 

mapGnomePropertyAction<-
function(val)
{
  if(inherits(val, "GnomePropertyAction"))
    return(val)
  .Call("S_check_GnomePropertyAction_value", val)
}
 

mapGnomeInteractStyle<-
function(val)
{
  if(inherits(val, "GnomeInteractStyle"))
    return(val)
  .Call("S_check_GnomeInteractStyle_value", val)
}
 

mapGnomeMDIMode<-
function(val)
{
  if(inherits(val, "GnomeMDIMode"))
    return(val)
  .Call("S_check_GnomeMDIMode_value", val)
}
 

mapGnomeDateEditFlags<-
function(val)
{
  if(inherits(val, "GnomeDateEditFlags"))
    return(val)
  .Call("S_check_GnomeDateEditFlags_value", val)
}
 

mapGnomeWinState<-
function(val)
{
  if(inherits(val, "GnomeWinState"))
    return(val)
  .Call("S_check_GnomeWinState_value", val)
}
 

mapGnomeWinHints<-
function(val)
{
  if(inherits(val, "GnomeWinHints"))
    return(val)
  .Call("S_check_GnomeWinHints_value", val)
}
 

mapGnomeDockItemBehavior<-
function(val)
{
  if(inherits(val, "GnomeDockItemBehavior"))
    return(val)
  .Call("S_check_GnomeDockItemBehavior_value", val)
}
 

gnomeDialogSetDefault <-
function(dialog = NULL, button, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 button <- as.integer(button)

	 w <- .GtkCall("S_gnome_dialog_set_default", dialog, button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeScoresSetDefColor <-
function(gs = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_scores_set_def_color", gs, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppSetToolbar <-
function(app = NULL, toolbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(toolbar, "GtkToolbar")

	 w <- .GtkCall("S_gnome_app_set_toolbar", app, toolbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDISetChildListPath <-
function(mdi = NULL, path, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 path <- as.character(path)

	 w <- .GtkCall("S_gnome_mdi_set_child_list_path", mdi, path, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockGetClientArea <-
function(dock = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dock, "GnomeDock")

	 w <- .GtkCall("S_gnome_dock_get_client_area", dock, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIGetActiveView <-
function(mdi = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")

	 w <- .GtkCall("S_gnome_mdi_get_active_view", mdi, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDEntryEditClear <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_edit_clear", dee, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListUnselectIcon <-
function(gil = NULL, pos, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)

	 w <- .GtkCall("S_gnome_icon_list_unselect_icon", gil, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDateEditSetPopupRange <-
function(gde = NULL, low.hour, up.hour, .flush = TRUE)
{
	 gtkCheckInherits(gde, "GnomeDateEdit")
	 low.hour <- as.integer(low.hour)
	 up.hour <- as.integer(up.hour)

	 w <- .GtkCall("S_gnome_date_edit_set_popup_range", gde, low.hour, up.hour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppError <-
function(app = NULL, error, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 error <- as.character(error)

	 w <- .GtkCall("S_gnome_app_error", app, error, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDISetActiveView <-
function(mdi = NULL, view = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(view, "GtkWidget")

	 w <- .GtkCall("S_gnome_mdi_set_active_view", mdi, view, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkClockStart <-
function(gclock = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gclock, "GtkClock")

	 w <- .GtkCall("S_gtk_clock_start", gclock, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerSetPreviewText <-
function(gfp = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_font_picker_set_preview_text", gfp, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gNOMEAPPBARINTERACTIVE <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_GNOME_APPBAR_INTERACTIVE", appbar, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDEntryEditGetIcon <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_edit_get_icon", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAnimatorGetStatus <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_get_status", animator, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDEntryEditChild2 <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_edit_child2", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDEntryEditChild1 <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_edit_child1", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeColorPickerSetD <-
function(cp = NULL, r, g, b, a, .flush = TRUE)
{
	 gtkCheckInherits(cp, "GnomeColorPicker")
	 gtkCheckInherits(r, "double")
	 gtkCheckInherits(g, "double")
	 gtkCheckInherits(b, "double")
	 gtkCheckInherits(a, "double")

	 w <- .GtkCall("S_gnome_color_picker_set_d", cp, r, g, b, a, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeHRefGetLabel <-
function(href = NULL, .flush = TRUE)
{
	 gtkCheckInherits(href, "GnomeHRef")

	 w <- .GtkCall("S_gnome_href_get_label", href, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconEntryGtkEntry <-
function(ientry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ientry, "GnomeIconEntry")

	 w <- .GtkCall("S_gnome_icon_entry_gtk_entry", ientry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeScoresSetCurrentPlayer <-
function(gs = NULL, index, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 index <- as.integer(index)

	 w <- .GtkCall("S_gnome_scores_set_current_player", gs, index, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePaperSelectorGetLeftMargin <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_left_margin", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDialogEditableEnters <-
function(dialog = NULL, editable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 gtkCheckInherits(editable, "GtkEditable")

	 w <- .GtkCall("S_gnome_dialog_editable_enters", dialog, editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientSetCurrentDirectory <-
function(client = NULL, dir, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 dir <- as.character(dir)

	 w <- .GtkCall("S_gnome_client_set_current_directory", client, dir, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeLessShowFile <-
function(less = NULL, path, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 path <- as.character(path)

	 w <- .GtkCall("S_gnome_less_show_file", less, path, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePaperSelectorGetName <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_name", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeWarningDialog <-
function(message, .flush = TRUE)
{
	 message <- as.character(message)

	 w <- .GtkCall("S_gnome_warning_dialog", message, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppBarRefresh <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_gnome_appbar_refresh", appbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCalculatorClear <-
function(calc = NULL, reset, .flush = TRUE)
{
	 gtkCheckInherits(calc, "GnomeCalculator")
	 reset <- as.logical(reset)

	 w <- .GtkCall("S_gnome_calculator_clear", calc, reset, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorGetPlaybackDirection <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_get_playback_direction", animator, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIUnregister <-
function(mdi = NULL, obj = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(obj, "GtkObject")

	 w <- .GtkCall("S_gnome_mdi_unregister", mdi, obj, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeSpellKill <-
function(spell = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spell, "GnomeSpell")

	 w <- .GtkCall("S_gnome_spell_kill", spell, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorSetPlaybackDirection <-
function(animator = NULL, playback.direction, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 playback.direction <- as.integer(playback.direction)

	 w <- .GtkCall("S_gnome_animator_set_playback_direction", animator, playback.direction, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDEntryEditGetName <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_edit_get_name", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClonedClient <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gnome_cloned_client", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDialSetPercentage <-
function(dial = NULL, percent, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")
	 percent <- as.numeric(percent)

	 w <- .GtkCall("S_gtk_dial_set_percentage", dial, percent, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetTextColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_text_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeLessNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_less_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeLess", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeAppBarSetPrompt <-
function(appbar = NULL, prompt, modal, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")
	 prompt <- as.character(prompt)
	 modal <- as.logical(modal)

	 w <- .GtkCall("S_gnome_appbar_set_prompt", appbar, prompt, modal, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerUwSetWidget <-
function(gfp = NULL, widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gnome_font_picker_uw_set_widget", gfp, widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppRemoveMenuRange <-
function(app = NULL, path, start, items, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 path <- as.character(path)
	 start <- as.integer(start)
	 items <- as.integer(items)

	 w <- .GtkCall("S_gnome_app_remove_menu_range", app, path, start, items, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePropertyBoxAppendPage <-
function(property.box = NULL, child = NULL, tab.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(property.box, "GnomePropertyBox")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")

	 w <- .GtkCall("S_gnome_property_box_append_page", property.box, child, tab.label, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCanvasItemGrab <-
function(item = NULL, mask, cursor = NULL, etime, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")
	 mask  <- mapGdkEventMask(mask)
	 gtkCheckInherits(cursor, "GdkCursor")
	 etime <- as.integer(etime)

	 w <- .GtkCall("S_gnome_canvas_item_grab", item, mask, cursor, etime, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageBack <-
function(druid.page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid.page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_page_back", druid.page, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIGetViewFromWindow <-
function(mdi = NULL, app.win = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(app.win, "GnomeApp")

	 w <- .GtkCall("S_gnome_mdi_get_view_from_window", mdi, app.win, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIAddToplevelView <-
function(mdi = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(child, "GnomeMDIChild")

	 w <- .GtkCall("S_gnome_mdi_add_toplevel_view", mdi, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDialSetUpdatePolicy <-
function(dial = NULL, policy = GtkUpdateType[1], .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")
	 policy  <- mapGtkUpdateType(policy)

	 w <- .GtkCall("S_gtk_dial_set_update_policy", dial, policy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorAppendFramesFromFileAtSize <-
function(animator = NULL, name, x.offset, y.offset, interval, x.unit, width, height, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 name <- as.character(name)
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)
	 x.unit <- as.integer(x.unit)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_animator_append_frames_from_file_at_size", animator, name, x.offset, y.offset, interval, x.unit, width, height, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePaperSelectorGetWidth <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_width", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockItemSetShadowType <-
function(item = NULL, type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")
	 type  <- mapGtkShadowType(type)

	 w <- .GtkCall("S_gnome_dock_item_set_shadow_type", item, type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkClockSetFormat <-
function(gclock = NULL, fmt, .flush = TRUE)
{
	 gtkCheckInherits(gclock, "GtkClock")
	 fmt <- as.character(fmt)

	 w <- .GtkCall("S_gtk_clock_set_format", gclock, fmt, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeNumberEntrySetTitle <-
function(nentry = NULL, calc.dialog.title, .flush = TRUE)
{
	 gtkCheckInherits(nentry, "GnomeNumberEntry")
	 calc.dialog.title <- as.character(calc.dialog.title)

	 w <- .GtkCall("S_gnome_number_entry_set_title", nentry, calc.dialog.title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorAppendFrameFromFile <-
function(animator = NULL, name, x.offset, y.offset, interval, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 name <- as.character(name)
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)

	 w <- .GtkCall("S_gnome_animator_append_frame_from_file", animator, name, x.offset, y.offset, interval, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientGetGlobalConfigPrefix <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_get_global_config_prefix", client, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeStockOrOrdinaryButton <-
function(type, .flush = TRUE)
{
	 type <- as.character(type)

	 w <- .GtkCall("S_gnome_stock_or_ordinary_button", type, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockBandPrepend <-
function(band = NULL, child = NULL, offset, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(child, "GtkWidget")
	 offset <- as.integer(offset)

	 w <- .GtkCall("S_gnome_dock_band_prepend", band, child, offset, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockBandInsert <-
function(band = NULL, child = NULL, offset, position, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(child, "GtkWidget")
	 offset <- as.integer(offset)
	 position <- as.integer(position)

	 w <- .GtkCall("S_gnome_dock_band_insert", band, child, offset, position, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDentryGetTryexecEntry <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_get_tryexec_entry", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_druid_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruid", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkDialGetAdjustment <-
function(dial = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")

	 w <- .GtkCall("S_gtk_dial_get_adjustment", dial, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientSetEnvironment <-
function(client = NULL, name, value, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 name <- as.character(name)
	 value <- as.character(value)

	 w <- .GtkCall("S_gnome_client_set_environment", client, name, value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarSetProgress <-
function(appbar = NULL, percentage, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")
	 percentage <- as.numeric(percentage)

	 w <- .GtkCall("S_gnome_appbar_set_progress", appbar, percentage, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidAppendPage <-
function(druid = NULL, page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid, "GnomeDruid")
	 gtkCheckInherits(page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_append_page", druid, page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogSetAccelerator <-
function(dialog = NULL, button, accelerator.key, accelerator.mods, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 button <- as.integer(button)
	 accelerator.key <- as.integer(accelerator.key)
	 accelerator.mods  <- mapGdkModifierType(accelerator.mods)

	 w <- .GtkCall("S_gnome_dialog_set_accelerator", dialog, button, accelerator.key, accelerator.mods, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeStockTransparentWindow <-
function(icon, subtype, .flush = TRUE)
{
	 icon <- as.character(icon)
	 subtype <- as.character(subtype)

	 w <- .GtkCall("S_gnome_stock_transparent_window", icon, subtype, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeEntryLoadHistory <-
function(gentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gentry, "GnomeEntry")

	 w <- .GtkCall("S_gnome_entry_load_history", gentry, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePaperSelectorGetTopMargin <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_top_margin", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeNumberEntryGnomeEntry <-
function(nentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(nentry, "GnomeNumberEntry")

	 w <- .GtkCall("S_gnome_number_entry_gnome_entry", nentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconTextItemGetText <-
function(iti = NULL, .flush = TRUE)
{
	 gtkCheckInherits(iti, "GnomeIconTextItem")

	 w <- .GtkCall("S_gnome_icon_text_item_get_text", iti, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeColorPickerSetUseAlpha <-
function(cp = NULL, use.alpha, .flush = TRUE)
{
	 gtkCheckInherits(cp, "GnomeColorPicker")
	 use.alpha <- as.logical(use.alpha)

	 w <- .GtkCall("S_gnome_color_picker_set_use_alpha", cp, use.alpha, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetText <-
function(page = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_druid_page_finish_set_text", page, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIRemoveView <-
function(mdi = NULL, view = NULL, force, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(view, "GtkWidget")
	 force <- as.integer(force)

	 w <- .GtkCall("S_gnome_mdi_remove_view", mdi, view, force, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStartSetWatermark <-
function(page = NULL, image, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_druid_page_start_set_watermark", page, image, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapEntryNew <-
function(history.id, browse.dialog.title, do.preview, show = TRUE, .flush = TRUE)
{
	 history.id <- as.character(history.id)
	 browse.dialog.title <- as.character(browse.dialog.title)
	 do.preview <- as.logical(do.preview)

	 w <- .GtkCall("S_gnome_pixmap_entry_new", history.id, browse.dialog.title, do.preview, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePixmapEntry", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeClientConnect <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_connect", client, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapEntryGnomeEntry <-
function(pentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")

	 w <- .GtkCall("S_gnome_pixmap_entry_gnome_entry", pentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDialGetValue <-
function(dial = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")

	 w <- .GtkCall("S_gtk_dial_get_value", dial, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockBandGetNumChildren <-
function(band = NULL, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")

	 w <- .GtkCall("S_gnome_dock_band_get_num_children", band, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAnimatorAdvance <-
function(animator = NULL, num, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 num <- as.integer(num)

	 w <- .GtkCall("S_gnome_animator_advance", animator, num, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientSetProgram <-
function(client = NULL, program, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 program <- as.character(program)

	 w <- .GtkCall("S_gnome_client_set_program", client, program, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientGetId <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_get_id", client, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppRemoveMenus <-
function(app = NULL, path, items, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 path <- as.character(path)
	 items <- as.integer(items)

	 w <- .GtkCall("S_gnome_app_remove_menus", app, path, items, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeEntrySetHistoryId <-
function(gentry = NULL, history.id, .flush = TRUE)
{
	 gtkCheckInherits(gentry, "GnomeEntry")
	 history.id <- as.character(history.id)

	 w <- .GtkCall("S_gnome_entry_set_history_id", gentry, history.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeSpellNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_spell_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeSpell", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDockNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_dock_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDock", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomePixmapEntrySetPreview <-
function(pentry = NULL, do.preview, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")
	 do.preview <- as.logical(do.preview)

	 w <- .GtkCall("S_gnome_pixmap_entry_set_preview", pentry, do.preview, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemUngrab <-
function(item = NULL, etime, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")
	 etime <- as.integer(etime)

	 w <- .GtkCall("S_gnome_canvas_item_ungrab", item, etime, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorNewWithSize <-
function(width, height, show = TRUE, .flush = TRUE)
{
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_animator_new_with_size", width, height, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeAnimator", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeLessSetFixedFont <-
function(less = NULL, fixed, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 fixed <- as.logical(fixed)

	 w <- .GtkCall("S_gnome_less_set_fixed_font", less, fixed, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStartSetBgColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_start_set_bg_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_dock_band_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDockBand", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeIconSelectionShowIcons <-
function(gis = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gis, "GnomeIconSelection")

	 w <- .GtkCall("S_gnome_icon_selection_show_icons", gis, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemGrabFocus <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")

	 w <- .GtkCall("S_gnome_canvas_item_grab_focus", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerSetTitle <-
function(gfp = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_font_picker_set_title", gfp, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarGetResponse <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_gnome_appbar_get_response", appbar, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppBarPop <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_gnome_appbar_pop", appbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeNumberEntryGetNumber <-
function(nentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(nentry, "GnomeNumberEntry")

	 w <- .GtkCall("S_gnome_number_entry_get_number", nentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStandardSetTitle <-
function(page = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStandard")
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_druid_page_standard_set_title", page, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandDragEnd <-
function(band = NULL, item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_band_drag_end", band, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppGetDockItemByName <-
function(app = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 name <- as.character(name)

	 w <- .GtkCall("S_gnome_app_get_dock_item_by_name", app, name, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeHRefNew <-
function(url, label = NULL, show = TRUE, .flush = TRUE)
{
	 url <- as.character(url)
	 label <- as.character(label)

	 w <- .GtkCall("S_gnome_href_new", url, label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeHRef", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeStockNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_stock_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeStock", "GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeFontPickerFiSetShowSize <-
function(gfp = NULL, show.size, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 show.size <- as.logical(show.size)

	 w <- .GtkCall("S_gnome_font_picker_fi_set_show_size", gfp, show.size, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFileEntrySetDefaultPath <-
function(fentry = NULL, path, .flush = TRUE)
{
	 gtkCheckInherits(fentry, "GnomeFileEntry")
	 path <- as.character(path)

	 w <- .GtkCall("S_gnome_file_entry_set_default_path", fentry, path, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIAddChild <-
function(mdi = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(child, "GnomeMDIChild")

	 w <- .GtkCall("S_gnome_mdi_add_child", mdi, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientSetId <-
function(client = NULL, client.id, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 client.id <- as.character(client.id)

	 w <- .GtkCall("S_gnome_client_set_id", client, client.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeLessShowFilestream <-
function(less = NULL, fp, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 gtkCheckInherits(fp, "FILE")

	 w <- .GtkCall("S_gnome_less_show_filestream", less, fp, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIGetActiveChild <-
function(mdi = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")

	 w <- .GtkCall("S_gnome_mdi_get_active_child", mdi, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDateEditGetFlags <-
function(gde = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gde, "GnomeDateEdit")

	 w <- .GtkCall("S_gnome_date_edit_get_flags", gde, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockItemGetChild <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_item_get_child", item, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTedAdd <-
function(ted = NULL, widget = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(ted, "GtkTed")
	 gtkCheckInherits(widget, "GtkWidget")
	 name <- as.character(name)

	 w <- .GtkCall("S_gtk_ted_add", ted, widget, name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientGetPreviousId <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_get_previous_id", client, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientSetPriority <-
function(client = NULL, priority, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 priority <- as.integer(priority)

	 w <- .GtkCall("S_gnome_client_set_priority", client, priority, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeInteractionKeyReturn <-
function(key, cancel.shutdown, .flush = TRUE)
{
	 key <- as.integer(key)
	 cancel.shutdown <- as.logical(cancel.shutdown)

	 w <- .GtkCall("S_gnome_interaction_key_return", key, cancel.shutdown, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageCancel <-
function(druid.page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid.page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_page_cancel", druid.page, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCalculatorSet <-
function(calc = NULL, result, .flush = TRUE)
{
	 gtkCheckInherits(calc, "GnomeCalculator")
	 gtkCheckInherits(result, "double")

	 w <- .GtkCall("S_gnome_calculator_set", calc, result, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetIconWidth <-
function(gil = NULL, width, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 width <- as.integer(width)

	 w <- .GtkCall("S_gnome_icon_list_set_icon_width", gil, width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetWatermark <-
function(page = NULL, image, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_watermark", page, image, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasUpdateNow <-
function(canvas = NULL, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")

	 w <- .GtkCall("S_gnome_canvas_update_now", canvas, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListAppendImlib <-
function(gil = NULL, image, text, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 gtkCheckInherits(image, "GdkImlibImage")
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_icon_list_append_imlib", gil, image, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientSetRestartStyle <-
function(client = NULL, style = GnomeRestartStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 style  <- mapGnomeRestartStyle(style)

	 w <- .GtkCall("S_gnome_client_set_restart_style", client, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIRegister <-
function(mdi = NULL, obj = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(obj, "GtkObject")

	 w <- .GtkCall("S_gnome_mdi_register", mdi, obj, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_font_picker_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeFontPicker", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageStartSetTitleColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_start_set_title_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeEntryGtkEntry <-
function(gentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gentry, "GnomeEntry")

	 w <- .GtkCall("S_gnome_entry_gtk_entry", gentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStandardSetTitleColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStandard")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_standard_set_title_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemLowerToBottom <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")

	 w <- .GtkCall("S_gnome_canvas_item_lower_to_bottom", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetTextboxColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_textbox_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetLogoBgColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_logo_bg_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDialSetViewOnly <-
function(dial = NULL, view.only, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")
	 view.only <- as.logical(view.only)

	 w <- .GtkCall("S_gtk_dial_set_view_only", dial, view.only, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorAppendFrameFromImlib <-
function(animator = NULL, image, x.offset, y.offset, interval, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 gtkCheckInherits(image, "GdkImlibImage")
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)

	 w <- .GtkCall("S_gnome_animator_append_frame_from_imlib", animator, image, x.offset, y.offset, interval, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconEntryNew <-
function(history.id, browse.dialog.title, show = TRUE, .flush = TRUE)
{
	 history.id <- as.character(history.id)
	 browse.dialog.title <- as.character(browse.dialog.title)

	 w <- .GtkCall("S_gnome_icon_entry_new", history.id, browse.dialog.title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeIconEntry", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDockBandGetChildOffset <-
function(band = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gnome_dock_band_get_child_offset", band, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientDisconnect <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_disconnect", client, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppAddDockItem <-
function(app = NULL, item = NULL, placement = GnomeDockPlacement[1], band.num, band.position, offset, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(item, "GnomeDockItem")
	 placement  <- mapGnomeDockPlacement(placement)
	 band.num <- as.integer(band.num)
	 band.position <- as.integer(band.position)
	 offset <- as.integer(offset)

	 w <- .GtkCall("S_gnome_app_add_dock_item", app, item, placement, band.num, band.position, offset, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockItemGetBehavior <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_item_get_behavior", item, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppBarSetStatus <-
function(appbar = NULL, status, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")
	 status <- as.character(status)

	 w <- .GtkCall("S_gnome_appbar_set_status", appbar, status, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStartSetText <-
function(page = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_druid_page_start_set_text", page, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconTextItemSelect <-
function(iti = NULL, sel, .flush = TRUE)
{
	 gtkCheckInherits(iti, "GnomeIconTextItem")
	 sel <- as.integer(sel)

	 w <- .GtkCall("S_gnome_icon_text_item_select", iti, sel, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerSetMode <-
function(gfp = NULL, mode = GnomeFontPickerMode[1], .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 mode  <- mapGnomeFontPickerMode(mode)

	 w <- .GtkCall("S_gnome_font_picker_set_mode", gfp, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListRemove <-
function(gil = NULL, pos, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)

	 w <- .GtkCall("S_gnome_icon_list_remove", gil, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeLessSetFont <-
function(less = NULL, font = NULL, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 gtkCheckInherits(font, "GdkFont")

	 w <- .GtkCall("S_gnome_less_set_font", less, font, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListGetIconAt <-
function(gil = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gnome_icon_list_get_icon_at", gil, x, y, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidSetPage <-
function(druid = NULL, page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid, "GnomeDruid")
	 gtkCheckInherits(page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_set_page", druid, page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerGetFontName <-
function(gfp = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")

	 w <- .GtkCall("S_gnome_font_picker_get_font_name", gfp, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIChildRemoveView <-
function(mdic = NULL, view = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdic, "GnomeMDIChild")
	 gtkCheckInherits(view, "GtkWidget")

	 w <- .GtkCall("S_gnome_mdi_child_remove_view", mdic, view, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorGetLoopType <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_get_loop_type", animator, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkClockSetSeconds <-
function(gclock = NULL, seconds, .flush = TRUE)
{
	 gtkCheckInherits(gclock, "GtkClock")
	 seconds <- as.integer(seconds)

	 w <- .GtkCall("S_gtk_clock_set_seconds", gclock, seconds, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapEntryGnomeFileEntry <-
function(pentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")

	 w <- .GtkCall("S_gnome_pixmap_entry_gnome_file_entry", pentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAnimatorAppendFrameFromGnomePixmap <-
function(animator = NULL, pixmap = NULL, x.offset, y.offset, interval, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 gtkCheckInherits(pixmap, "GnomePixmap")
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)

	 w <- .GtkCall("S_gnome_animator_append_frame_from_gnome_pixmap", animator, pixmap, x.offset, y.offset, interval, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIGenericChildNew <-
function(name, .flush = TRUE)
{
	 name <- as.character(name)

	 w <- .GtkCall("S_gnome_mdi_generic_child_new", name, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeMDIGenericChild", "GnomeMDIChild", "GtkObject")
	 return(w)

}
 

gnomeDruidPageStandardSetBgColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStandard")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_standard_set_bg_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDateEditSetFlags <-
function(gde = NULL, flags, .flush = TRUE)
{
	 gtkCheckInherits(gde, "GnomeDateEdit")
	 flags  <- mapGnomeDateEditFlags(flags)

	 w <- .GtkCall("S_gnome_date_edit_set_flags", gde, flags, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDINew <-
function(appname, title, .flush = TRUE)
{
	 appname <- as.character(appname)
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_mdi_new", appname, title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeMDI", "GtkObject")
	 return(w)

}
 

gnomeOkDialogParented <-
function(message, parent = NULL, .flush = TRUE)
{
	 message <- as.character(message)
	 gtkCheckInherits(parent, "GtkWindow")

	 w <- .GtkCall("S_gnome_ok_dialog_parented", message, parent, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStartSetLogoBgColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_start_set_logo_bg_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkClockNew <-
function(type = GtkClockType[1], show = TRUE, .flush = TRUE)
{
	 type  <- mapGtkClockType(type)

	 w <- .GtkCall("S_gtk_clock_new", type, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkClock", "GtkLabel", "GtkMisc", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeClientRequestPhase2 <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_request_phase_2", client, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppFlash <-
function(app = NULL, flash, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 flash <- as.character(flash)

	 w <- .GtkCall("S_gnome_app_flash", app, flash, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasScrollTo <-
function(canvas = NULL, cx, cy, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")
	 cx <- as.integer(cx)
	 cy <- as.integer(cy)

	 w <- .GtkCall("S_gnome_canvas_scroll_to", canvas, cx, cy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeErrorDialog <-
function(message, .flush = TRUE)
{
	 message <- as.character(message)

	 w <- .GtkCall("S_gnome_error_dialog", message, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeStockMenuItem <-
function(type, text, .flush = TRUE)
{
	 type <- as.character(type)
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_stock_menu_item", type, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppEnableLayoutConfig <-
function(app = NULL, enable, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 enable <- as.logical(enable)

	 w <- .GtkCall("S_gnome_app_enable_layout_config", app, enable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageNext <-
function(druid.page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid.page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_page_next", druid.page, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePaperSelectorNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_paper_selector_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePaperSelector", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomePixmapLoadImlib <-
function(gpixmap = NULL, image, .flush = TRUE)
{
	 gtkCheckInherits(gpixmap, "GnomePixmap")
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_pixmap_load_imlib", gpixmap, image, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarClearPrompt <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_gnome_appbar_clear_prompt", appbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDentryGetExecEntry <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_get_exec_entry", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIOpenToplevel <-
function(mdi = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")

	 w <- .GtkCall("S_gnome_mdi_open_toplevel", mdi, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconEntrySetPixmapSubdir <-
function(ientry = NULL, subdir, .flush = TRUE)
{
	 gtkCheckInherits(ientry, "GnomeIconEntry")
	 subdir <- as.character(subdir)

	 w <- .GtkCall("S_gnome_icon_entry_set_pixmap_subdir", ientry, subdir, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTedSetAppName <-
function(appname, .flush = TRUE)
{
	 appname <- as.character(appname)

	 w <- .GtkCall("S_gtk_ted_set_app_name", appname, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeColorPickerNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_color_picker_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeColorPicker", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageFinishNewWithVals <-
function(title = NULL, text = NULL, logo = NULL, watermark = NULL, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)
	 text <- as.character(text)
	 gtkCheckInherits(logo, "GdkImlibImage", nullOk = TRUE)
	 gtkCheckInherits(watermark, "GdkImlibImage", nullOk = TRUE)

	 w <- .GtkCall("S_gnome_druid_page_finish_new_with_vals", title, text, logo, watermark, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruidPageFinish", "GnomeDruidPage", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDEntryEditNew <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gnome_dentry_edit_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDEntryEdit", "GtkObject")
	 return(w)

}
 

gnomeAnimatorGetPlaybackSpeed <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_get_playback_speed", animator, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStandardSetLogoBgColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStandard")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_standard_set_logo_bg_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockItemNew <-
function(name, behavior, show = TRUE, .flush = TRUE)
{
	 name <- as.character(name)
	 behavior  <- mapGnomeDockItemBehavior(behavior)

	 w <- .GtkCall("S_gnome_dock_item_new", name, behavior, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDockItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomePaperSelectorGetRightMargin <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_right_margin", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockAddItem <-
function(dock = NULL, item = NULL, placement = GnomeDockPlacement[1], band.num, position, offset, in.new.band, .flush = TRUE)
{
	 gtkCheckInherits(dock, "GnomeDock")
	 gtkCheckInherits(item, "GnomeDockItem")
	 placement  <- mapGnomeDockPlacement(placement)
	 band.num <- as.integer(band.num)
	 position <- as.integer(position)
	 offset <- as.integer(offset)
	 in.new.band <- as.logical(in.new.band)

	 w <- .GtkCall("S_gnome_dock_add_item", dock, item, placement, band.num, position, offset, in.new.band, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeStockNewWithIcon <-
function(icon, show = TRUE, .flush = TRUE)
{
	 icon <- as.character(icon)

	 w <- .GtkCall("S_gnome_stock_new_with_icon", icon, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeStock", "GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageFinishSetTitle <-
function(page = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_druid_page_finish_set_title", page, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetSeparators <-
function(gil = NULL, separators, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 separators <- as.character(separators)

	 w <- .GtkCall("S_gnome_icon_list_set_separators", gil, separators, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDialGetPercentage <-
function(dial = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")

	 w <- .GtkCall("S_gtk_dial_get_percentage", dial, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDentryGetDocEntry <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_get_doc_entry", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconListSetColSpacing <-
function(gil = NULL, pixels, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pixels <- as.integer(pixels)

	 w <- .GtkCall("S_gnome_icon_list_set_col_spacing", gil, pixels, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeScoresSetColor <-
function(gs = NULL, pos, colour, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 pos <- as.integer(pos)
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_scores_set_color", gs, pos, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapLoadFileAtSize <-
function(gpixmap = NULL, filename, width, height, .flush = TRUE)
{
	 gtkCheckInherits(gpixmap, "GnomePixmap")
	 filename <- as.character(filename)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_pixmap_load_file_at_size", gpixmap, filename, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasSetPixelsPerUnit <-
function(canvas = NULL, n, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")
	 gtkCheckInherits(n, "double")

	 w <- .GtkCall("S_gnome_canvas_set_pixels_per_unit", canvas, n, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogCloseHides <-
function(dialog = NULL, just.hide, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 just.hide <- as.logical(just.hide)

	 w <- .GtkCall("S_gnome_dialog_close_hides", dialog, just.hide, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeScoresDisplay <-
function(title, app.name, level, pos, .flush = TRUE)
{
	 title <- as.character(title)
	 app.name <- as.character(app.name)
	 level <- as.character(level)
	 pos <- as.integer(pos)

	 w <- .GtkCall("S_gnome_scores_display", title, app.name, level, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDISetMode <-
function(mdi = NULL, mode = GnomeMDIMode[1], .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 mode  <- mapGnomeMDIMode(mode)

	 w <- .GtkCall("S_gnome_mdi_set_mode", mdi, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconEntryGetFilename <-
function(ientry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ientry, "GnomeIconEntry")

	 w <- .GtkCall("S_gnome_icon_entry_get_filename", ientry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePropertyBoxChanged <-
function(property.box = NULL, .flush = TRUE)
{
	 gtkCheckInherits(property.box, "GnomePropertyBox")

	 w <- .GtkCall("S_gnome_property_box_changed", property.box, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorGetCurrentFrameNumber <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_get_current_frame_number", animator, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockItemGetOrientation <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_item_get_orientation", item, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeFileEntrySetModal <-
function(fentry = NULL, is.modal, .flush = TRUE)
{
	 gtkCheckInherits(fentry, "GnomeFileEntry")
	 is.modal <- as.logical(is.modal)

	 w <- .GtkCall("S_gnome_file_entry_set_modal", fentry, is.modal, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientNew <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gnome_client_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeClient", "GtkObject")
	 return(w)

}
 

gnomeDruidSetButtonsSensitive <-
function(druid = NULL, back.sensitive, next.sensitive, cancel.sensitive, .flush = TRUE)
{
	 gtkCheckInherits(druid, "GnomeDruid")
	 back.sensitive <- as.logical(back.sensitive)
	 next.sensitive <- as.logical(next.sensitive)
	 cancel.sensitive <- as.logical(cancel.sensitive)

	 w <- .GtkCall("S_gnome_druid_set_buttons_sensitive", druid, back.sensitive, next.sensitive, cancel.sensitive, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockSetClientArea <-
function(dock = NULL, widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dock, "GnomeDock")
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gnome_dock_set_client_area", dock, widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFileEntryNew <-
function(history.id, browse.dialog.title, show = TRUE, .flush = TRUE)
{
	 history.id <- as.character(history.id)
	 browse.dialog.title <- as.character(browse.dialog.title)

	 w <- .GtkCall("S_gnome_file_entry_new", history.id, browse.dialog.title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeFileEntry", "GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeHRefGetUrl <-
function(href = NULL, .flush = TRUE)
{
	 gtkCheckInherits(href, "GnomeHRef")

	 w <- .GtkCall("S_gnome_href_get_url", href, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDialNew <-
function(adjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_dial_new", adjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkDial", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeLessShowCommand <-
function(less = NULL, command.line, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 command.line <- as.character(command.line)

	 w <- .GtkCall("S_gnome_less_show_command", less, command.line, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIGetAppFromView <-
function(view = NULL, .flush = TRUE)
{
	 gtkCheckInherits(view, "GtkWidget")

	 w <- .GtkCall("S_gnome_mdi_get_app_from_view", view, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeNumberEntryNew <-
function(history.id, calc.dialog.title, show = TRUE, .flush = TRUE)
{
	 history.id <- as.character(history.id)
	 calc.dialog.title <- as.character(calc.dialog.title)

	 w <- .GtkCall("S_gnome_number_entry_new", history.id, calc.dialog.title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeNumberEntry", "GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDialogSetClose <-
function(dialog = NULL, click.closes, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 click.closes <- as.logical(click.closes)

	 w <- .GtkCall("S_gnome_dialog_set_close", dialog, click.closes, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkClockStop <-
function(gclock = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gclock, "GtkClock")

	 w <- .GtkCall("S_gtk_clock_stop", gclock, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemShow <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")

	 w <- .GtkCall("S_gnome_canvas_item_show", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconSelectionAddDirectory <-
function(gis = NULL, dir, .flush = TRUE)
{
	 gtkCheckInherits(gis, "GnomeIconSelection")
	 dir <- as.character(dir)

	 w <- .GtkCall("S_gnome_icon_selection_add_directory", gis, dir, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStartNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_druid_page_start_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruidPageStart", "GnomeDruidPage", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeCanvasItemLower <-
function(item = NULL, positions, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")
	 positions <- as.integer(positions)

	 w <- .GtkCall("S_gnome_canvas_item_lower", item, positions, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogSetSensitive <-
function(dialog = NULL, button, setting, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 button <- as.integer(button)
	 setting <- as.logical(setting)

	 w <- .GtkCall("S_gnome_dialog_set_sensitive", dialog, button, setting, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapNewFromGnomePixmap <-
function(gpixmap = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(gpixmap, "GnomePixmap")

	 w <- .GtkCall("S_gnome_pixmap_new_from_gnome_pixmap", gpixmap, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDockItemSetOrientation <-
function(item = NULL, orientation = GtkOrientation[1], .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")
	 orientation  <- mapGtkOrientation(orientation)

	 w <- .GtkCall("S_gnome_dock_item_set_orientation", item, orientation, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconSelectionClear <-
function(gis = NULL, not.shown, .flush = TRUE)
{
	 gtkCheckInherits(gis, "GnomeIconSelection")
	 not.shown <- as.logical(not.shown)

	 w <- .GtkCall("S_gnome_icon_selection_clear", gis, not.shown, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorStop <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_stop", animator, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppNew <-
function(appname, title, show = TRUE, .flush = TRUE)
{
	 appname <- as.character(appname)
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_app_new", appname, title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeApp", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDockAddFloatingItem <-
function(dock = NULL, item = NULL, x, y, orientation = GtkOrientation[1], .flush = TRUE)
{
	 gtkCheckInherits(dock, "GnomeDock")
	 gtkCheckInherits(item, "GnomeDockItem")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 orientation  <- mapGtkOrientation(orientation)

	 w <- .GtkCall("S_gnome_dock_add_floating_item", dock, item, x, y, orientation, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasREquestRedraw <-
function(canvas = NULL, x1, y1, x2, y2, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")
	 x1 <- as.integer(x1)
	 y1 <- as.integer(y1)
	 x2 <- as.integer(x2)
	 y2 <- as.integer(y2)

	 w <- .GtkCall("S_gnome_canvas_request_redraw", canvas, x1, y1, x2, y2, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetVadjustment <-
function(gil = NULL, vadj = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 gtkCheckInherits(vadj, "GtkAdjustment")

	 w <- .GtkCall("S_gnome_icon_list_set_vadjustment", gil, vadj, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandDragBegin <-
function(band = NULL, item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_band_drag_begin", band, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetSelectionMode <-
function(gil = NULL, mode = GtkSelectionMode[1], .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 mode  <- mapGtkSelectionMode(mode)

	 w <- .GtkCall("S_gnome_icon_list_set_selection_mode", gil, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorSetPlaybackSpeed <-
function(animator = NULL, speed, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 gtkCheckInherits(speed, "double")

	 w <- .GtkCall("S_gnome_animator_set_playback_speed", animator, speed, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeGuruCurrentPage <-
function(guru = NULL, .flush = TRUE)
{
	 gtkCheckInherits(guru, "GnomeGuru")

	 w <- .GtkCall("S_gnome_guru_current_page", guru, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCanvasNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_canvas_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeCanvas", "GtkLayout", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkDialSetAdjustment <-
function(dial = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_dial_set_adjustment", dial, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIGetActiveWindow <-
function(mdi = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")

	 w <- .GtkCall("S_gnome_mdi_get_active_window", mdi, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDialogRunAndClose <-
function(dialog = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")

	 w <- .GtkCall("S_gnome_dialog_run_and_close", dialog, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppAddDocked <-
function(app = NULL, widget = NULL, name, behavior, placement = GnomeDockPlacement[1], band.num, band.position, offset, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(widget, "GtkWidget")
	 name <- as.character(name)
	 behavior  <- mapGnomeDockItemBehavior(behavior)
	 placement  <- mapGnomeDockPlacement(placement)
	 band.num <- as.integer(band.num)
	 band.position <- as.integer(band.position)
	 offset <- as.integer(offset)

	 w <- .GtkCall("S_gnome_app_add_docked", app, widget, name, behavior, placement, band.num, band.position, offset, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppWarning <-
function(app = NULL, warning, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 warning <- as.character(warning)

	 w <- .GtkCall("S_gnome_app_warning", app, warning, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapButton <-
function(pixmap = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(pixmap, "GtkWidget")
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_pixmap_button", pixmap, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCanvasRoot <-
function(canvas = NULL, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")

	 w <- .GtkCall("S_gnome_canvas_root", canvas, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconListClear <-
function(gil = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")

	 w <- .GtkCall("S_gnome_icon_list_clear", gil, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapLoadImlibAtSize <-
function(gpixmap = NULL, image, width, height, .flush = TRUE)
{
	 gtkCheckInherits(gpixmap, "GnomePixmap")
	 gtkCheckInherits(image, "GdkImlibImage")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_pixmap_load_imlib_at_size", gpixmap, image, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockAllowFloatingItems <-
function(dock = NULL, enable, .flush = TRUE)
{
	 gtkCheckInherits(dock, "GnomeDock")
	 enable <- as.logical(enable)

	 w <- .GtkCall("S_gnome_dock_allow_floating_items", dock, enable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogNew <-
function(title, b1 = NULL, b2 = NULL, b3 = NULL, b4 = NULL, b5 = NULL, b6 = NULL, b7 = NULL, b8 = NULL, b9 = NULL, b10 = NULL, b11 = NULL, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)
	 b1 <- as.character(b1)
	 b2 <- as.character(b2)
	 b3 <- as.character(b3)
	 b4 <- as.character(b4)
	 b5 <- as.character(b5)
	 b6 <- as.character(b6)
	 b7 <- as.character(b7)
	 b8 <- as.character(b8)
	 b9 <- as.character(b9)
	 b10 <- as.character(b10)
	 b11 <- as.character(b11)

	 w <- .GtkCall("S_gnome_dialog_new", title, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkDialSetValue <-
function(dial = NULL, value, .flush = TRUE)
{
	 gtkCheckInherits(dial, "GtkDial")
	 value <- as.numeric(value)

	 w <- .GtkCall("S_gtk_dial_set_value", dial, value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPrependPage <-
function(druid = NULL, page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid, "GnomeDruid")
	 gtkCheckInherits(page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_prepend_page", druid, page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePaperSelectorGetHeight <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_height", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTedNew <-
function(dialog.name, show = TRUE, .flush = TRUE)
{
	 dialog.name <- as.character(dialog.name)

	 w <- .GtkCall("S_gtk_ted_new", dialog.name, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTed", "GtkTable", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageStandardNewWithVals <-
function(title, logo, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)
	 gtkCheckInherits(logo, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_druid_page_standard_new_with_vals", title, logo, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruidPageStandard", "GnomeDruidPage", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidSetShowFinish <-
function(druid = NULL, show.finish, .flush = TRUE)
{
	 gtkCheckInherits(druid, "GnomeDruid")
	 show.finish <- as.logical(show.finish)

	 w <- .GtkCall("S_gnome_druid_set_show_finish", druid, show.finish, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeSpellCheck <-
function(spell = NULL, str, .flush = TRUE)
{
	 gtkCheckInherits(spell, "GnomeSpell")
	 str <- as.character(str)

	 w <- .GtkCall("S_gnome_spell_check", spell, str, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTedPrepare <-
function(ted = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ted, "GtkTed")

	 w <- .GtkCall("S_gtk_ted_prepare", ted, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetTextSpacing <-
function(gil = NULL, pixels, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pixels <- as.integer(pixels)

	 w <- .GtkCall("S_gnome_icon_list_set_text_spacing", gil, pixels, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientRequestSave <-
function(client = NULL, save.style = GnomeSaveStyle[1], shutdown, interact.style = GnomeInteractStyle[1], fast, global, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 save.style  <- mapGnomeSaveStyle(save.style)
	 shutdown <- as.logical(shutdown)
	 interact.style  <- mapGnomeInteractStyle(interact.style)
	 fast <- as.logical(fast)
	 global <- as.logical(global)

	 w <- .GtkCall("S_gnome_client_request_save", client, save.style, shutdown, interact.style, fast, global, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconSelectionGetIcon <-
function(gis = NULL, full.path, .flush = TRUE)
{
	 gtkCheckInherits(gis, "GnomeIconSelection")
	 full.path <- as.logical(full.path)

	 w <- .GtkCall("S_gnome_icon_selection_get_icon", gis, full.path, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAnimatorAppendFrameFromFileAtSize <-
function(animator = NULL, name, x.offset, y.offset, interval, width, height, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 name <- as.character(name)
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_animator_append_frame_from_file_at_size", animator, name, x.offset, y.offset, interval, width, height, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconListFreeze <-
function(gil = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")

	 w <- .GtkCall("S_gnome_icon_list_freeze", gil, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarSetDefault <-
function(appbar = NULL, default.status, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")
	 default.status <- as.character(default.status)

	 w <- .GtkCall("S_gnome_appbar_set_default", appbar, default.status, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapLoadFile <-
function(gpixmap = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(gpixmap, "GnomePixmap")
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gnome_pixmap_load_file", gpixmap, filename, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogAppendButtons <-
function(dialog = NULL, b1 = NULL, b2 = NULL, b3 = NULL, b4 = NULL, b5 = NULL, b6 = NULL, b7 = NULL, b8 = NULL, b9 = NULL, b10 = NULL, b11 = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 b1 <- as.character(b1)
	 b2 <- as.character(b2)
	 b3 <- as.character(b3)
	 b4 <- as.character(b4)
	 b5 <- as.character(b5)
	 b6 <- as.character(b6)
	 b7 <- as.character(b7)
	 b8 <- as.character(b8)
	 b9 <- as.character(b9)
	 b10 <- as.character(b10)
	 b11 <- as.character(b11)

	 w <- .GtkCall("S_gnome_dialog_append_buttons", dialog, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStartSetLogo <-
function(page = NULL, image, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_druid_page_start_set_logo", page, image, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconSelectionAddDefaults <-
function(gis = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gis, "GnomeIconSelection")

	 w <- .GtkCall("S_gnome_icon_selection_add_defaults", gis, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeStockSetIcon <-
function(stock = NULL, icon, .flush = TRUE)
{
	 gtkCheckInherits(stock, "GnomeStock")
	 icon <- as.character(icon)

	 w <- .GtkCall("S_gnome_stock_set_icon", stock, icon, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeFileEntrySetDirectory <-
function(fentry = NULL, directory.entry, .flush = TRUE)
{
	 gtkCheckInherits(fentry, "GnomeFileEntry")
	 directory.entry <- as.logical(directory.entry)

	 w <- .GtkCall("S_gnome_file_entry_set_directory", fentry, directory.entry, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandGetOrientation <-
function(band = NULL, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")

	 w <- .GtkCall("S_gnome_dock_band_get_orientation", band, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconListAppend <-
function(gil = NULL, icon.filename, text, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 icon.filename <- as.character(icon.filename)
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_icon_list_append", gil, icon.filename, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDISetChildMenuPath <-
function(mdi = NULL, path, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 path <- as.character(path)

	 w <- .GtkCall("S_gnome_mdi_set_child_menu_path", mdi, path, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetIconBorder <-
function(gil = NULL, pixels, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pixels <- as.integer(pixels)

	 w <- .GtkCall("S_gnome_icon_list_set_icon_border", gil, pixels, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListInsertImlib <-
function(gil = NULL, pos, image, text, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)
	 gtkCheckInherits(image, "GdkImlibImage")
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_icon_list_insert_imlib", gil, pos, image, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetRowSpacing <-
function(gil = NULL, pixels, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pixels <- as.integer(pixels)

	 w <- .GtkCall("S_gnome_icon_list_set_row_spacing", gil, pixels, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeColorPickerSetI8 <-
function(cp = NULL, r, g, b, a, .flush = TRUE)
{
	 gtkCheckInherits(cp, "GnomeColorPicker")
	 r <- as.integer(r)
	 g <- as.integer(g)
	 b <- as.integer(b)
	 a <- as.integer(a)

	 w <- .GtkCall("S_gnome_color_picker_set_i8", cp, r, g, b, a, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeLessWriteFile <-
function(less = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gnome_less_write_file", less, filename, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePaperSelectorGetBottomMargin <-
function(gspaper = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gspaper, "GnomePaperSelector")

	 w <- .GtkCall("S_gnome_paper_selector_get_bottom_margin", gspaper, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeLessReshow <-
function(less = NULL, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")

	 w <- .GtkCall("S_gnome_less_reshow", less, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListIconIsVisible <-
function(gil = NULL, pos, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)

	 w <- .GtkCall("S_gnome_icon_list_icon_is_visible", gil, pos, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppSetStatusbar <-
function(app = NULL, statusbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(statusbar, "GtkWidget")

	 w <- .GtkCall("S_gnome_app_set_statusbar", app, statusbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconEntryGnomeFileEntry <-
function(ientry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ientry, "GnomeIconEntry")

	 w <- .GtkCall("S_gnome_icon_entry_gnome_file_entry", ientry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeIconListMoveto <-
function(gil = NULL, pos, yalign, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)
	 gtkCheckInherits(yalign, "double")

	 w <- .GtkCall("S_gnome_icon_list_moveto", gil, pos, yalign, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerFiSetUseFontInLabel <-
function(gfp = NULL, use.font.in.label, size, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 use.font.in.label <- as.logical(use.font.in.label)
	 size <- as.integer(size)

	 w <- .GtkCall("S_gnome_font_picker_fi_set_use_font_in_label", gfp, use.font.in.label, size, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIRemoveChild <-
function(mdi = NULL, child = NULL, force, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(child, "GnomeMDIChild")
	 force <- as.integer(force)

	 w <- .GtkCall("S_gnome_mdi_remove_child", mdi, child, force, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIAddView <-
function(mdi = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(child, "GnomeMDIChild")

	 w <- .GtkCall("S_gnome_mdi_add_view", mdi, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeEntryPrependHistory <-
function(gentry = NULL, save, text, .flush = TRUE)
{
	 gtkCheckInherits(gentry, "GnomeEntry")
	 save <- as.integer(save)
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_entry_prepend_history", gentry, save, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeEntryAppendHistory <-
function(gentry = NULL, save, text, .flush = TRUE)
{
	 gtkCheckInherits(gentry, "GnomeEntry")
	 save <- as.integer(save)
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_entry_append_history", gentry, save, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinish <-
function(druid.page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid.page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_page_finish", druid.page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeGuruBackSetSensitive <-
function(guru = NULL, sensitivity, .flush = TRUE)
{
	 gtkCheckInherits(guru, "GnomeGuru")
	 sensitivity <- as.logical(sensitivity)

	 w <- .GtkCall("S_gnome_guru_back_set_sensitive", guru, sensitivity, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandDragTo <-
function(band = NULL, item = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(item, "GnomeDockItem")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gnome_dock_band_drag_to", band, item, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListInsert <-
function(gil = NULL, pos, icon.filename, text, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)
	 icon.filename <- as.character(icon.filename)
	 text <- as.character(text)

	 w <- .GtkCall("S_gnome_icon_list_insert", gil, pos, icon.filename, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeHRefSetLabel <-
function(href = NULL, label, .flush = TRUE)
{
	 gtkCheckInherits(href, "GnomeHRef")
	 label <- as.character(label)

	 w <- .GtkCall("S_gnome_href_set_label", href, label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCalculatorNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_calculator_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeCalculator", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeClientGetConfigPrefix <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_get_config_prefix", client, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPagePrepare <-
function(druid.page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid.page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_page_prepare", druid.page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDateEditGetDate <-
function(gde = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gde, "GnomeDateEdit")

	 w <- .GtkCall("S_gnome_date_edit_get_date", gde, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockItemGetName <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_item_get_name", item, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStartNewWithVals <-
function(title = NULL, text = NULL, logo = NULL, watermark = NULL, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)
	 text <- as.character(text)
	 gtkCheckInherits(logo, "GdkImlibImage", nullOk = TRUE)
	 gtkCheckInherits(watermark, "GdkImlibImage", nullOk = TRUE)

	 w <- .GtkCall("S_gnome_druid_page_start_new_with_vals", title, text, logo, watermark, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruidPageStart", "GnomeDruidPage", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeWidgetAddHelp <-
function(widget = NULL, help, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 help <- as.character(help)

	 w <- .GtkCall("S_gnome_widget_add_help", widget, help, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconTextItemStopEditing <-
function(iti = NULL, accept, .flush = TRUE)
{
	 gtkCheckInherits(iti, "GnomeIconTextItem")
	 accept <- as.logical(accept)

	 w <- .GtkCall("S_gnome_icon_text_item_stop_editing", iti, accept, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDentryGetIconEntry <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_get_icon_entry", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientSetProcessId <-
function(client = NULL, pid, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 pid <- as.integer(pid)

	 w <- .GtkCall("S_gnome_client_set_process_id", client, pid, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeColorPickerSetDither <-
function(cp = NULL, dither, .flush = TRUE)
{
	 gtkCheckInherits(cp, "GnomeColorPicker")
	 dither <- as.logical(dither)

	 w <- .GtkCall("S_gnome_color_picker_set_dither", cp, dither, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStartSetTextColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_start_set_text_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeColorPickerSetTitle <-
function(cp = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(cp, "GnomeColorPicker")
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_color_picker_set_title", cp, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeStockButton <-
function(type, .flush = TRUE)
{
	 type <- as.character(type)

	 w <- .GtkCall("S_gnome_stock_button", type, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAnimatorAppendFrameFromImlibAtSize <-
function(animator = NULL, image, x.offset, y.offset, interval, width, height, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 gtkCheckInherits(image, "GdkImlibImage")
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_animator_append_frame_from_imlib_at_size", animator, image, x.offset, y.offset, interval, width, height, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockBandSetOrientation <-
function(band = NULL, orientation = GtkOrientation[1], .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 orientation  <- mapGtkOrientation(orientation)

	 w <- .GtkCall("S_gnome_dock_band_set_orientation", band, orientation, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSelectIcon <-
function(gil = NULL, pos, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 pos <- as.integer(pos)

	 w <- .GtkCall("S_gnome_icon_list_select_icon", gil, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconTextItemSetxy <-
function(iti = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(iti, "GnomeIconTextItem")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gnome_icon_text_item_setxy", iti, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemReparent <-
function(item = NULL, new.group = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")
	 gtkCheckInherits(new.group, "GnomeCanvasGroup")

	 w <- .GtkCall("S_gnome_canvas_item_reparent", item, new.group, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeColorPickerSetI16 <-
function(cp = NULL, r, g, b, a, .flush = TRUE)
{
	 gtkCheckInherits(cp, "GnomeColorPicker")
	 r <- as.integer(r)
	 g <- as.integer(g)
	 b <- as.integer(b)
	 a <- as.integer(a)

	 w <- .GtkCall("S_gnome_color_picker_set_i16", cp, r, g, b, a, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeEntryNew <-
function(history.id, show = TRUE, .flush = TRUE)
{
	 history.id <- as.character(history.id)

	 w <- .GtkCall("S_gnome_entry_new", history.id, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeEntry", "GtkCombo", "GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomePixmapEntrySetPixmapSubdir <-
function(pentry = NULL, subdir, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")
	 subdir <- as.character(subdir)

	 w <- .GtkCall("S_gnome_pixmap_entry_set_pixmap_subdir", pentry, subdir, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorStart <-
function(animator = NULL, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")

	 w <- .GtkCall("S_gnome_animator_start", animator, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorSetLoopType <-
function(animator = NULL, loop.type = GnomeAnimatorLoopType[1], .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 loop.type  <- mapGnomeAnimatorLoopType(loop.type)

	 w <- .GtkCall("S_gnome_animator_set_loop_type", animator, loop.type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListThaw <-
function(gil = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")

	 w <- .GtkCall("S_gnome_icon_list_thaw", gil, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListUnselectAll <-
function(gil = NULL, event = NULL, keep = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 gtkCheckInherits(event, "GdkEvent")
	 keep <- as.character(keep)

	 w <- .GtkCall("S_gnome_icon_list_unselect_all", gil, event, keep, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarClearStack <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_gnome_appbar_clear_stack", appbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIChildAddView <-
function(mdic = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdic, "GnomeMDIChild")

	 w <- .GtkCall("S_gnome_mdi_child_add_view", mdic, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDockItemGetShadowType <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeDockItem")

	 w <- .GtkCall("S_gnome_dock_item_get_shadow_type", item, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeEntrySaveHistory <-
function(gentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gentry, "GnomeEntry")

	 w <- .GtkCall("S_gnome_entry_save_history", gentry, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerSetFontName <-
function(gfp = NULL, fontname, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")
	 fontname <- as.character(fontname)

	 w <- .GtkCall("S_gnome_font_picker_set_font_name", gfp, fontname, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientNewWithoutConnection <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gnome_client_new_without_connection", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeClient", "GtkObject")
	 return(w)

}
 

gnomeLessShowString <-
function(less = NULL, str, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")
	 str <- as.character(str)

	 w <- .GtkCall("S_gnome_less_show_string", less, str, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppGetDock <-
function(app = NULL, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")

	 w <- .GtkCall("S_gnome_app_get_dock", app, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCanvasSetScrollRegion <-
function(canvas = NULL, x1, y1, x2, y2, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")
	 gtkCheckInherits(x1, "double")
	 gtkCheckInherits(y1, "double")
	 gtkCheckInherits(x2, "double")
	 gtkCheckInherits(y2, "double")

	 w <- .GtkCall("S_gnome_canvas_set_scroll_region", canvas, x1, y1, x2, y2, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFileEntryGtkEntry <-
function(fentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fentry, "GnomeFileEntry")

	 w <- .GtkCall("S_gnome_file_entry_gtk_entry", fentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDEntryEditLoadFile <-
function(dee = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gnome_dentry_edit_load_file", dee, filename, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePropertyBoxSetModified <-
function(property.box = NULL, modified, .flush = TRUE)
{
	 gtkCheckInherits(property.box, "GnomePropertyBox")
	 modified <- as.logical(modified)

	 w <- .GtkCall("S_gnome_property_box_set_modified", property.box, modified, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientSetUserId <-
function(client = NULL, user.id, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")
	 user.id <- as.character(user.id)

	 w <- .GtkCall("S_gnome_client_set_user_id", client, user.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListGetItemsPerLine <-
function(gil = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")

	 w <- .GtkCall("S_gnome_icon_list_get_items_per_line", gil, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePixmapEntrySetPreviewSize <-
function(pentry = NULL, preview.w, preview.h, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")
	 preview.w <- as.integer(preview.w)
	 preview.h <- as.integer(preview.h)

	 w <- .GtkCall("S_gnome_pixmap_entry_set_preview_size", pentry, preview.w, preview.h, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapNewFromFileAtSize <-
function(filename, width, height, show = TRUE, .flush = TRUE)
{
	 filename <- as.character(filename)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_pixmap_new_from_file_at_size", filename, width, height, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeFontPickerGetFont <-
function(gfp = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")

	 w <- .GtkCall("S_gnome_font_picker_get_font", gfp, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeOkDialog <-
function(message, .flush = TRUE)
{
	 message <- as.character(message)

	 w <- .GtkCall("S_gnome_ok_dialog", message, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIRemoveAll <-
function(mdi = NULL, force, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 force <- as.integer(force)

	 w <- .GtkCall("S_gnome_mdi_remove_all", mdi, force, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeErrorDialogParented <-
function(message, parent = NULL, .flush = TRUE)
{
	 message <- as.character(message)
	 gtkCheckInherits(parent, "GtkWindow")

	 w <- .GtkCall("S_gnome_error_dialog_parented", message, parent, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDateEditNewFlags <-
function(the.time, flags, .flush = TRUE)
{
	 the.time <- as.integer(the.time)
	 flags  <- mapGnomeDateEditFlags(flags)

	 w <- .GtkCall("S_gnome_date_edit_new_flags", the.time, flags, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDateEdit", "GnomeHBox")
	 return(w)

}
 

gnomeDialogSetParent <-
function(dialog = NULL, parent = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 gtkCheckInherits(parent, "GtkWindow")

	 w <- .GtkCall("S_gnome_dialog_set_parent", dialog, parent, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppSetMenus <-
function(app = NULL, menubar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(menubar, "GtkMenuBar")

	 w <- .GtkCall("S_gnome_app_set_menus", app, menubar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemMove <-
function(item = NULL, dx, dy, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")
	 gtkCheckInherits(dx, "double")
	 gtkCheckInherits(dy, "double")

	 w <- .GtkCall("S_gnome_canvas_item_move", item, dx, dy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapEntryGetFilename <-
function(pentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")

	 w <- .GtkCall("S_gnome_pixmap_entry_get_filename", pentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppBarPush <-
function(appbar = NULL, status, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")
	 status <- as.character(status)

	 w <- .GtkCall("S_gnome_appbar_push", appbar, status, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDEntryEditNewNotebook <-
function(notebook = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")

	 w <- .GtkCall("S_gnome_dentry_edit_new_notebook", notebook, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDEntryEdit", "GtkObject")
	 return(w)

}
 

gnomeAnimatorAppendFramesFromImlib <-
function(animator = NULL, image, x.offset, y.offset, interval, x.unit, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 gtkCheckInherits(image, "GdkImlibImage")
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)
	 x.unit <- as.integer(x.unit)

	 w <- .GtkCall("S_gnome_animator_append_frames_from_imlib", animator, image, x.offset, y.offset, interval, x.unit, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAnimatorGotoFrame <-
function(animator = NULL, num.frame, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 num.frame <- as.integer(num.frame)

	 w <- .GtkCall("S_gnome_animator_goto_frame", animator, num.frame, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogClose <-
function(dialog = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")

	 w <- .GtkCall("S_gnome_dialog_close", dialog, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarGetProgress <-
function(appbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(appbar, "GnomeAppBar")

	 w <- .GtkCall("S_gnome_appbar_get_progress", appbar, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeClientFlush <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_flush", client, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTedNewLayout <-
function(dialog.name, layout, show = TRUE, .flush = TRUE)
{
	 dialog.name <- as.character(dialog.name)
	 layout <- as.character(layout)

	 w <- .GtkCall("S_gtk_ted_new_layout", dialog.name, layout, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTed", "GtkTable", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDialogAppendButton <-
function(dialog = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 name <- as.character(name)

	 w <- .GtkCall("S_gnome_dialog_append_button", dialog, name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIUpdateChild <-
function(mdi = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 gtkCheckInherits(child, "GnomeMDIChild")

	 w <- .GtkCall("S_gnome_mdi_update_child", mdi, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIGetChildFromView <-
function(view = NULL, .flush = TRUE)
{
	 gtkCheckInherits(view, "GtkWidget")

	 w <- .GtkCall("S_gnome_mdi_get_child_from_view", view, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeScoresSetLogoLabel <-
function(gs = NULL, text, font, colour, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 text <- as.character(text)
	 font <- as.character(font)
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_scores_set_logo_label", gs, text, font, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListNew <-
function(icon.width, adj = NULL, is.editable = FALSE, show = TRUE, .flush = TRUE)
{
	 icon.width <- as.integer(icon.width)
	 gtkCheckInherits(adj, "GtkAdjustment", nullOk = TRUE)
	 is.editable <- as.logical(is.editable)

	 w <- .GtkCall("S_gnome_icon_list_new", icon.width, adj, is.editable, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeIconList", "GnomeCanvas", "GtkLayout", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeCanvasItemHide <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")

	 w <- .GtkCall("S_gnome_canvas_item_hide", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeScoresSetLogoPixmap <-
function(gs = NULL, logo, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 logo <- as.character(logo)

	 w <- .GtkCall("S_gnome_scores_set_logo_pixmap", gs, logo, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorAppendFramesFromFile <-
function(animator = NULL, name, x.offset, y.offset, interval, x.unit, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 name <- as.character(name)
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)
	 x.unit <- as.integer(x.unit)

	 w <- .GtkCall("S_gnome_animator_append_frames_from_file", animator, name, x.offset, y.offset, interval, x.unit, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomePixmapNewFromImlib <-
function(image, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_pixmap_new_from_imlib", image, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDentryGetNameEntry <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_get_name_entry", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkClockSetUpdateInterval <-
function(gclock = NULL, seconds, .flush = TRUE)
{
	 gtkCheckInherits(gclock, "GtkClock")
	 seconds <- as.integer(seconds)

	 w <- .GtkCall("S_gtk_clock_set_update_interval", gclock, seconds, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconSelectionNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_icon_selection_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeIconSelection", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidInsertPage <-
function(druid = NULL, back.page = NULL, page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(druid, "GnomeDruid")
	 gtkCheckInherits(back.page, "GnomeDruidPage")
	 gtkCheckInherits(page, "GnomeDruidPage")

	 w <- .GtkCall("S_gnome_druid_insert_page", druid, back.page, page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogAppendButtonWithPixmap <-
function(dialog = NULL, name, pixmap, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")
	 name <- as.character(name)
	 pixmap <- as.character(pixmap)

	 w <- .GtkCall("S_gnome_dialog_append_button_with_pixmap", dialog, name, pixmap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeSpellInsert <-
function(spell = NULL, word, lowercase, .flush = TRUE)
{
	 gtkCheckInherits(spell, "GnomeSpell")
	 word <- as.character(word)
	 lowercase <- as.integer(lowercase)

	 w <- .GtkCall("S_gnome_spell_insert", spell, word, lowercase, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFileEntrySetTitle <-
function(fentry = NULL, browse.dialog.title, .flush = TRUE)
{
	 gtkCheckInherits(fentry, "GnomeFileEntry")
	 browse.dialog.title <- as.character(browse.dialog.title)

	 w <- .GtkCall("S_gnome_file_entry_set_title", fentry, browse.dialog.title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStartSetTitle <-
function(page = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 title <- as.character(title)

	 w <- .GtkCall("S_gnome_druid_page_start_set_title", page, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconEntrySetIcon <-
function(ientry = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(ientry, "GnomeIconEntry")
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gnome_icon_entry_set_icon", ientry, filename, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeMDIFindChild <-
function(mdi = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(mdi, "GnomeMDI")
	 name <- as.character(name)

	 w <- .GtkCall("S_gnome_mdi_find_child", mdi, name, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMessageBoxNew <-
function(message, messagebox.type, b1 = NULL, b2 = NULL, b3 = NULL, b4 = NULL, b5 = NULL, b6 = NULL, b7 = NULL, b8 = NULL, b9 = NULL, b10 = NULL, b11 = NULL, show = TRUE, .flush = TRUE)
{
	 message <- as.character(message)
	 messagebox.type <- as.character(messagebox.type)
	 b1 <- as.character(b1)
	 b2 <- as.character(b2)
	 b3 <- as.character(b3)
	 b4 <- as.character(b4)
	 b5 <- as.character(b5)
	 b6 <- as.character(b6)
	 b7 <- as.character(b7)
	 b8 <- as.character(b8)
	 b9 <- as.character(b9)
	 b10 <- as.character(b10)
	 b11 <- as.character(b11)

	 w <- .GtkCall("S_gnome_message_box_new", message, messagebox.type, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeMessageBox", "GnomeDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDateEditNew <-
function(the.time, show.time, use.24.format, .flush = TRUE)
{
	 the.time <- as.integer(the.time)
	 show.time <- as.logical(show.time)
	 use.24.format <- as.logical(use.24.format)

	 w <- .GtkCall("S_gnome_date_edit_new", the.time, show.time, use.24.format, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDateEdit", "GnomeHBox")
	 return(w)

}
 

gnomeGuruNew <-
function(name = NULL, graphic = NULL, dialog = NULL, show = TRUE, .flush = TRUE)
{
	 name <- as.character(name)
	 gtkCheckInherits(graphic, "GtkWidget")
	 gtkCheckInherits(dialog, "GnomeDialog")

	 w <- .GtkCall("S_gnome_guru_new", name, graphic, dialog, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeGuru", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageFinishNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_druid_page_finish_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruidPageFinish", "GnomeDruidPage", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageStartSetTextboxColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStart")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_start_set_textbox_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeHRefSetUrl <-
function(href = NULL, url, .flush = TRUE)
{
	 gtkCheckInherits(href, "GnomeHRef")
	 url <- as.character(url)

	 w <- .GtkCall("S_gnome_href_set_url", href, url, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetBgColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_bg_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeFontPickerGetMode <-
function(gfp = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")

	 w <- .GtkCall("S_gnome_font_picker_get_mode", gfp, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMasterClient <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gnome_master_client", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDruidPageStandardNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_druid_page_standard_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeDruidPageStandard", "GnomeDruidPage", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeScoresSetLogoWidget <-
function(gs = NULL, w = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 gtkCheckInherits(w, "GtkWidget")

	 w <- .GtkCall("S_gnome_scores_set_logo_widget", gs, w, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeCanvasItemRaise <-
function(item = NULL, positions, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")
	 positions <- as.integer(positions)

	 w <- .GtkCall("S_gnome_canvas_item_raise", item, positions, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAnimatorAppendFramesFromImlibAtSize <-
function(animator = NULL, image, x.offset, y.offset, interval, x.unit, width, height, .flush = TRUE)
{
	 gtkCheckInherits(animator, "GnomeAnimator")
	 gtkCheckInherits(image, "GdkImlibImage")
	 x.offset <- as.integer(x.offset)
	 y.offset <- as.integer(y.offset)
	 interval <- as.integer(interval)
	 x.unit <- as.integer(x.unit)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_animator_append_frames_from_imlib_at_size", animator, image, x.offset, y.offset, interval, x.unit, width, height, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeNumberEntryGtkEntry <-
function(nentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(nentry, "GnomeNumberEntry")

	 w <- .GtkCall("S_gnome_number_entry_gtk_entry", nentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeSpellAccept <-
function(spell = NULL, word, .flush = TRUE)
{
	 gtkCheckInherits(spell, "GnomeSpell")
	 word <- as.character(word)

	 w <- .GtkCall("S_gnome_spell_accept", spell, word, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeGuruAppendPage <-
function(guru = NULL, name, page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(guru, "GnomeGuru")
	 name <- as.character(name)
	 gtkCheckInherits(page, "GtkWidget")

	 w <- .GtkCall("S_gnome_guru_append_page", guru, name, page, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconListSetHadjustment <-
function(gil = NULL, hadj = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gil, "GnomeIconList")
	 gtkCheckInherits(hadj, "GtkAdjustment")

	 w <- .GtkCall("S_gnome_icon_list_set_hadjustment", gil, hadj, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppSetContents <-
function(app = NULL, contents = NULL, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(contents, "GtkWidget")

	 w <- .GtkCall("S_gnome_app_set_contents", app, contents, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDateEditSetTime <-
function(gde = NULL, the.time, .flush = TRUE)
{
	 gtkCheckInherits(gde, "GnomeDateEdit")
	 the.time <- as.integer(the.time)

	 w <- .GtkCall("S_gnome_date_edit_set_time", gde, the.time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconSelectionSelectIcon <-
function(gis = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(gis, "GnomeIconSelection")
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gnome_icon_selection_select_icon", gis, filename, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePropertyBoxNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gnome_property_box_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePropertyBox", "GnomeDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomePixmapNewFromImlibAtSize <-
function(image, width, height, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(image, "GdkImlibImage")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gnome_pixmap_new_from_imlib_at_size", image, width, height, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeScoresSetLogoLabelTitle <-
function(gs = NULL, logo, .flush = TRUE)
{
	 gtkCheckInherits(gs, "GnomeScores")
	 logo <- as.character(logo)

	 w <- .GtkCall("S_gnome_scores_set_logo_label_title", gs, logo, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinishSetTitleColor <-
function(page = NULL, colour, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(colour, "GdkColor")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_title_color", page, colour, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandAppend <-
function(band = NULL, child = NULL, offset, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(child, "GtkWidget")
	 offset <- as.integer(offset)

	 w <- .GtkCall("S_gnome_dock_band_append", band, child, offset, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeDentryGetCommentEntry <-
function(dee = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dee, "GnomeDEntryEdit")

	 w <- .GtkCall("S_gnome_dentry_get_comment_entry", dee, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeFontPickerGetPreviewText <-
function(gfp = NULL, .flush = TRUE)
{
	 gtkCheckInherits(gfp, "GnomeFontPicker")

	 w <- .GtkCall("S_gnome_font_picker_get_preview_text", gfp, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeGuruNextSetSensitive <-
function(guru = NULL, sensitivity, .flush = TRUE)
{
	 gtkCheckInherits(guru, "GnomeGuru")
	 sensitivity <- as.logical(sensitivity)

	 w <- .GtkCall("S_gnome_guru_next_set_sensitive", guru, sensitivity, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppMessage <-
function(app = NULL, message, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 message <- as.character(message)

	 w <- .GtkCall("S_gnome_app_message", app, message, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapEntryGtkEntry <-
function(pentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(pentry, "GnomePixmapEntry")

	 w <- .GtkCall("S_gnome_pixmap_entry_gtk_entry", pentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCanvasSetStippleOrigin <-
function(canvas = NULL, gc, .flush = TRUE)
{
	 gtkCheckInherits(canvas, "GnomeCanvas")
	 gtkCheckInherits(gc, "GdkGC")

	 w <- .GtkCall("S_gnome_canvas_set_stipple_origin", canvas, gc, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDialogRun <-
function(dialog = NULL, .flush = TRUE)
{
	 gtkCheckInherits(dialog, "GnomeDialog")

	 w <- .GtkCall("S_gnome_dialog_run", dialog, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeMDIChildSetName <-
function(mdic = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(mdic, "GnomeMDIChild")
	 name <- as.character(name)

	 w <- .GtkCall("S_gnome_mdi_child_set_name", mdic, name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeSpellNext <-
function(spell = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spell, "GnomeSpell")

	 w <- .GtkCall("S_gnome_spell_next", spell, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDockBandSetChildOffset <-
function(band = NULL, child = NULL, offset, .flush = TRUE)
{
	 gtkCheckInherits(band, "GnomeDockBand")
	 gtkCheckInherits(child, "GtkWidget")
	 offset <- as.integer(offset)

	 w <- .GtkCall("S_gnome_dock_band_set_child_offset", band, child, offset, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientGetFlags <-
function(client = NULL, .flush = TRUE)
{
	 gtkCheckInherits(client, "GnomeClient")

	 w <- .GtkCall("S_gnome_client_get_flags", client, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeCanvasItemRaiseToTop <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GnomeCanvasItem")

	 w <- .GtkCall("S_gnome_canvas_item_raise_to_top", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeIconEntryGnomeEntry <-
function(ientry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ientry, "GnomeIconEntry")

	 w <- .GtkCall("S_gnome_icon_entry_gnome_entry", ientry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppAddToolbar <-
function(app = NULL, toolbar = NULL, name, behavior, placement = GnomeDockPlacement[1], band.num, band.position, offset, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 name <- as.character(name)
	 behavior  <- mapGnomeDockItemBehavior(behavior)
	 placement  <- mapGnomeDockPlacement(placement)
	 band.num <- as.integer(band.num)
	 band.position <- as.integer(band.position)
	 offset <- as.integer(offset)

	 w <- .GtkCall("S_gnome_app_add_toolbar", app, toolbar, name, behavior, placement, band.num, band.position, offset, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomePixmapNewFromFile <-
function(filename, show = TRUE, .flush = TRUE)
{
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gnome_pixmap_new_from_file", filename, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomePixmap", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeFileEntryGnomeEntry <-
function(fentry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fentry, "GnomeFileEntry")

	 w <- .GtkCall("S_gnome_file_entry_gnome_entry", fentry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeWarningDialogParented <-
function(message, parent = NULL, .flush = TRUE)
{
	 message <- as.character(message)
	 gtkCheckInherits(parent, "GtkWindow")

	 w <- .GtkCall("S_gnome_warning_dialog_parented", message, parent, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gnomeAppSetStatusbarCustom <-
function(app = NULL, container = NULL, statusbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(app, "GnomeApp")
	 gtkCheckInherits(container, "GtkWidget")
	 gtkCheckInherits(statusbar, "GtkWidget")

	 w <- .GtkCall("S_gnome_app_set_statusbar_custom", app, container, statusbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeClientDisableMasterConnection <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gnome_client_disable_master_connection", PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeLessClear <-
function(less = NULL, .flush = TRUE)
{
	 gtkCheckInherits(less, "GnomeLess")

	 w <- .GtkCall("S_gnome_less_clear", less, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageStandardSetLogo <-
function(page = NULL, image, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageStandard")
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_druid_page_standard_set_logo", page, image, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeAppBarNew <-
function(has.progress, has.status, interactivity = GnomePreferencesType[1], show = TRUE, .flush = TRUE)
{
	 has.progress <- as.logical(has.progress)
	 has.status <- as.logical(has.status)
	 interactivity  <- mapGnomePreferencesType(interactivity)

	 w <- .GtkCall("S_gnome_appbar_new", has.progress, has.status, interactivity, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GnomeAppBar", "GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gnomeDruidPageFinishSetLogo <-
function(page = NULL, image, .flush = TRUE)
{
	 gtkCheckInherits(page, "GnomeDruidPageFinish")
	 gtkCheckInherits(image, "GdkImlibImage")

	 w <- .GtkCall("S_gnome_druid_page_finish_set_logo", page, image, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gnomeDruidPageFinish <-
function( title = NULL, text = NULL, logo = NULL, watermark = NULL, show = TRUE, .flush = TRUE )
{
  if(missing( title ))
     gnomeDruidPageFinishNew ( show, .flush )
  else
     gnomeDruidPageFinishNewWithVals ( title, text, logo, watermark, show, .flush )
}
 

gnomeStock <-
function( icon, show = TRUE, .flush = TRUE )
{
  if(missing( icon ))
     gnomeStockNew ( show, .flush )
  else
     gnomeStockNewWithIcon ( icon, show, .flush )
}
 

gnomeDruidPageStandard <-
function( title, logo, show = TRUE, .flush = TRUE )
{
  if(missing( title ))
     gnomeDruidPageStandardNew ( show, .flush )
  else
     gnomeDruidPageStandardNewWithVals ( title, logo, show, .flush )
}
 

gnomeDruidPageStart <-
function( title = NULL, text = NULL, logo = NULL, watermark = NULL, show = TRUE, .flush = TRUE )
{
  if(missing( title ))
     gnomeDruidPageStartNew ( show, .flush )
  else
     gnomeDruidPageStartNewWithVals ( title, text, logo, watermark, show, .flush )
}
 

gnomeClient <-
function(  )
{
  if(missing(  ))
     gnomeClientNew (  )
  else
     gnomeClientNewWithoutConnection (  )
}
 

gnomeDEntryEdit <-
function( notebook )
{
  if(missing( notebook ))
     gnomeDEntryEditNew (  )
  else
     gnomeDEntryEditNewNotebook ( notebook )
}
 

gtkTed <-
function( dialog.name, layout, show = TRUE, .flush = TRUE )
{
  if(missing( dialog.name ))
     gtkTedNew ( dialog.name, show, .flush )
  else
     gtkTedNewLayout ( dialog.name, layout, show, .flush )
}
 

gnomeLess <- gnomeLessNew
gnomeDruid <- gnomeDruidNew
gnomePixmapEntry <- gnomePixmapEntryNew
gnomeSpell <- gnomeSpellNew
gnomeDock <- gnomeDockNew
gnomeDockBand <- gnomeDockBandNew
gnomeHRef <- gnomeHRefNew
gnomeFontPicker <- gnomeFontPickerNew
gnomeIconEntry <- gnomeIconEntryNew
gnomeMDIGenericChild <- gnomeMDIGenericChildNew
gnomeMDI <- gnomeMDINew
gtkClock <- gtkClockNew
gnomePaperSelector <- gnomePaperSelectorNew
gnomeColorPicker <- gnomeColorPickerNew
gnomeDockItem <- gnomeDockItemNew
gnomeFileEntry <- gnomeFileEntryNew
gtkDial <- gtkDialNew
gnomeNumberEntry <- gnomeNumberEntryNew
gnomeApp <- gnomeAppNew
gnomeCanvas <- gnomeCanvasNew
gnomeDialog <- gnomeDialogNew
gnomeCalculator <- gnomeCalculatorNew
gnomeEntry <- gnomeEntryNew
gnomeIconList <- gnomeIconListNew
gnomeIconSelection <- gnomeIconSelectionNew
gnomeMessageBox <- gnomeMessageBoxNew
gnomeGuru <- gnomeGuruNew
gnomePropertyBox <- gnomePropertyBoxNew
gnomeAppBar <- gnomeAppBarNew





.GnomeUIClasses  <- c( "GnomeAbout", "GnomeAnimator", "GnomeApp", "GnomeAppBar", "GnomeCalculator", "GnomeCanvas", "GnomeCanvasEllipse", "GnomeCanvasGroup", "GnomeCanvasImage", "GnomeCanvasItem", "GnomeCanvasLine", "GnomeCanvasPolygon", "GnomeCanvasRE", "GnomeCanvasRect", "GnomeCanvasText", "GnomeCanvasWidget", "GnomeClient", "GnomeColorPicker", "GnomeDateEdit", "GnomeDEntryEdit", "GnomeDialog", "GnomeDock", "GnomeDockBand", "GnomeDockItem", "GnomeDruid", "GnomeDruidPage", "GnomeDruidPageFinish", "GnomeDruidPageStandard", "GnomeDruidPageStart", "GnomeEntry", "GnomeFileEntry", "GnomeFontPicker", "GnomeGuru", "GnomeHRef", "GnomeIconEntry", "GnomeIconList", "GnomeIconSelection", "GnomeIconTextItem", "GnomeLess", "GnomeMDI", "GnomeMDIChild", "GnomeMDIGenericChild", "GnomeMessageBox", "GnomeNumberEntry", "GnomePaperSelector", "GnomePixmap", "GnomePixmapEntry", "GnomePropertyBox", "GnomeScores", "GnomeSpell", "GnomeStock", "GtkClock", "GtkDial", "GtkTed" )

gtkEditableGetSelectionStartPos <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkEditable')
  v <- .Call('S_GtkEditableGetSelectionStartPos', obj)
  v
} 
gtkEditableGetSelectionEndPos <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkEditable')
  v <- .Call('S_GtkEditableGetSelectionEndPos', obj)
  v
} 
gtkTreeItemGetSubtree <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkTreeItem')
  v <- .Call('S_GtkTreeItemGetSubtree', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkNotebookGetTabPos <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkNotebook')
  v <- .Call('S_GtkNotebookGetTabPos', obj)
  v
} 
gtkRulerGetPosition <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkRuler')
  v <- .Call('S_GtkRulerGetPosition', obj)
  v
} 
gtkFontSelectionDialogGetFontsel <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFontSelectionDialog')
  v <- .Call('S_GtkFontSelectionDialogGetFontsel', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFontSelectionDialogGetMainVbox <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFontSelectionDialog')
  v <- .Call('S_GtkFontSelectionDialogGetMainVbox', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFontSelectionDialogGetActionArea <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFontSelectionDialog')
  v <- .Call('S_GtkFontSelectionDialogGetActionArea', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFontSelectionDialogGetOkButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFontSelectionDialog')
  v <- .Call('S_GtkFontSelectionDialogGetOkButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFontSelectionDialogGetApplyButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFontSelectionDialog')
  v <- .Call('S_GtkFontSelectionDialogGetApplyButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFontSelectionDialogGetCancelButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFontSelectionDialog')
  v <- .Call('S_GtkFontSelectionDialogGetCancelButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetDirList <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetDirList', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetFileList <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetFileList', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetSelectionEntry <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetSelectionEntry', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetSelectionText <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetSelectionText', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetMainVbox <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetMainVbox', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetOkButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetOkButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetCancelButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetCancelButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkFileSelectionGetHelpButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkFileSelection')
  v <- .Call('S_GtkFileSelectionGetHelpButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkColorSelectionDialogGetColorsel <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkColorSelectionDialog')
  v <- .Call('S_GtkColorSelectionDialogGetColorsel', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkColorSelectionDialogGetMainVbox <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkColorSelectionDialog')
  v <- .Call('S_GtkColorSelectionDialogGetMainVbox', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkColorSelectionDialogGetOkButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkColorSelectionDialog')
  v <- .Call('S_GtkColorSelectionDialogGetOkButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkColorSelectionDialogGetResetButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkColorSelectionDialog')
  v <- .Call('S_GtkColorSelectionDialogGetResetButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkColorSelectionDialogGetCancelButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkColorSelectionDialog')
  v <- .Call('S_GtkColorSelectionDialogGetCancelButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkColorSelectionDialogGetHelpButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkColorSelectionDialog')
  v <- .Call('S_GtkColorSelectionDialogGetHelpButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkDialogGetVbox <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkDialog')
  v <- .Call('S_GtkDialogGetVbox', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkDialogGetActionArea <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkDialog')
  v <- .Call('S_GtkDialogGetActionArea', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkGammaCurveGetTable <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkGammaCurve')
  v <- .Call('S_GtkGammaCurveGetTable', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkGammaCurveGetCurve <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkGammaCurve')
  v <- .Call('S_GtkGammaCurveGetCurve', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkGammaCurveGetGamma <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkGammaCurve')
  v <- .Call('S_GtkGammaCurveGetGamma', obj)
  v
} 
gtkGammaCurveGetGammaDialog <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkGammaCurve')
  v <- .Call('S_GtkGammaCurveGetGammaDialog', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkGammaCurveGetGammaText <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkGammaCurve')
  v <- .Call('S_GtkGammaCurveGetGammaText', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkInputDialogGetCloseButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkInputDialog')
  v <- .Call('S_GtkInputDialogGetCloseButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkInputDialogGetSaveButton <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkInputDialog')
  v <- .Call('S_GtkInputDialogGetSaveButton', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkTextGetHadj <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkText')
  v <- .Call('S_GtkTextGetHadj', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkTextGetVadj <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkText')
  v <- .Call('S_GtkTextGetVadj', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkScrolledWindowGetHscrollbar <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkScrolledWindow')
  v <- .Call('S_GtkScrolledWindowGetHscrollbar', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkScrolledWindowGetVscrollbar <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkScrolledWindow')
  v <- .Call('S_GtkScrolledWindowGetVscrollbar', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkAdjustmentGetValue <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkAdjustment')
  v <- .Call('S_GtkAdjustmentGetValue', obj)
  v
} 
gtkAdjustmentGetLower <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkAdjustment')
  v <- .Call('S_GtkAdjustmentGetLower', obj)
  v
} 
gtkAdjustmentGetUpper <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkAdjustment')
  v <- .Call('S_GtkAdjustmentGetUpper', obj)
  v
} 
gtkAdjustmentGetStepIncrement <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkAdjustment')
  v <- .Call('S_GtkAdjustmentGetStepIncrement', obj)
  v
} 
gtkAdjustmentGetPageIncrement <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkAdjustment')
  v <- .Call('S_GtkAdjustmentGetPageIncrement', obj)
  v
} 
gtkAdjustmentGetPageSize <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkAdjustment')
  v <- .Call('S_GtkAdjustmentGetPageSize', obj)
  v
} 
gtkCListGetFocusRow <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkCList')
  v <- .Call('S_GtkCListGetFocusRow', obj)
  v
} 
gtkCListGetColumns <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkCList')
  v <- .Call('S_GtkCListGetColumns', obj)
  v
} 
gtkCListGetRows <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkCList')
  v <- .Call('S_GtkCListGetRows', obj)
  v
} 
gtkComboGetEntry <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkCombo')
  v <- .Call('S_GtkComboGetEntry', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkComboGetList <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkCombo')
  v <- .Call('S_GtkComboGetList', obj)
 class(v) <- gtkObjectGetClasses(v, check = FALSE)
  v
} 
gtkToggleButtonGetDrawIndicator <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkToggleButton')
  v <- .Call('S_GtkToggleButtonGetDrawIndicator', obj)
  v
} 
gtkCheckMenuItemGetActive <-
function(obj)
{
  gtkCheckInherits(obj, 'GtkCheckMenuItem')
  v <- .Call('S_GtkCheckMenuItemGetActive', obj)
  v
} 
names.GtkObject <-
  #
  # return a vector of the names of the properties/args
  # available for the given GtkObject, collapsing over
  # all the inherited classes and removing the class::
  # prefix.
  #
function(x)
{
  names(gtkObjectGetArgInfo(x, parents = TRUE, collapse = TRUE, strip = TRUE))
}

gtkObjectGetArgInfo <-
  #
  # Could be done in S code more readily using
  # {l,s}apply(class(obj), getTypeArgInfo)
  #
  #
  #  strip is intended to remove the `class::'
  #  prefix. Can do this in R or in C.
  #
function(obj, parents = TRUE, collapse = FALSE, strip = FALSE)
{
  if(is.character(obj))
    obj <- gtkGetType(obj)
  
  if(inherits(obj, "GtkType"))
    type <- obj
  else {
    gtkCheckInherits(obj, "GtkObject")
    type <- gtkObjectGetType(obj)
  }
  v <- .Call("R_gtkGetObjectArgInfo", as.numeric(type), as.logical(parents))

  if(collapse) {
         # Merge into a new list (vals)
         # making certain not to overwrite values in
         # more specific classes with names
    vals <- list()
    sapply(v, function(x) {
                  which <- is.na(match(names(x), names(vals)))
                  if(strip) {
                    Names <- gsub("^.*::","",names(x)[which])
                  } else
                    Names <- names(x)[which]
                  vals[Names] <<- x[which]
              })
    v <- vals
    #
    #unlist(v, recursive = FALSE)
    # messes up the names.
  } else if(strip) {

    v <- lapply(v, function(x) {
                    names(x) <- gsub("^.*::","",names(x))
                    x
                  })
  }
  
  v
}  


gtkObjectGetArgs <-
function(obj, argNames)
{
   gtkCheckInherits(obj, "GtkObject")
   .Call("R_getObjectArgs", obj, as.character(argNames))
}

gtkObjectGetArg <-
function(obj, argName)
{
   gtkCheckInherits(obj, "GtkObject")
   v <- .Call("R_getObjectArgs", obj, as.character(argName))
   if(!is.null(v))
     v <- v[[1]]

   v
}


if(FALSE) {
"[[.GtkObject" <-
function(x, name)
{
 v <- gtkObjectGetArgs(x, name)
 if(length(v))
   v <- v[[1]]

 v
}
}

"[.GtkObject" <-
function(x, ...)
{
 gtkObjectGetArgs(x, c(...))
}  

gtkObjectSetArgs <-
function(obj, ..., .vals, .flush = TRUE)
{
  args <- list(...)
  gtkCheckInherits(obj, "GtkObject")
  argNames <- names(args)
  if(any(argNames == ""))
    stop("All values must have a name")

  invisible(.GtkCall("R_setObjectArgs", obj, args, argNames,.flush = .flush))
}


"[[<-.GtkObject" <-
function(x, name, value)
{
  .GtkCall("R_setObjectArgs", x, list(value), name,.flush = TRUE)

   x
}  
gtkTargetEntry <-
  gtkTargetEntryNew <-
function(target, flags, info)
{
  .Call("S_newTargetEntry", as.character(target), as.integer(flags), as.integer(info))
}  


gtkDragDestSet <-
function(widget, flags, targets, actions)
{
   flags <- mapGtkDestDefaults(flags)
   .gtkDragSet(widget, flags, targets, actions, TRUE)
}

gtkDragSourceSet <-
function(widget, flags, targets, actions)
{
   flags <- mapGdkModifierType(flags)
   .gtkDragSet(widget, flags, targets, actions, FALSE)
}


.gtkDragSet <-
function(widget, flags, targets, actions, isDest = TRUE)
{
   gtkCheckInherits(widget, "GtkWidget")
   actions <- mapGdkDragAction(actions)
   cat("Ok")
   print(targets)
   if(inherits(targets, "GtkTargetEntry")) {
     targets <- list(targets)
   } else if(!all(sapply(targets, function(x) inherits(x, "GtkTargetEntry")))) {
      stop("all targets must be GtkTargetEntry objects!")
   }
   .Call("R_gtkDragDestSet", widget, flags, targets, actions, as.logical(isDest))
}

gtkSelectionDataSet <-
function(data, type, format, value)
{
  gtkCheckInherits(data, "GtkSelectionData")
  gtkCheckInherits(type, "GdkAtom", nullOk = TRUE)
  format <- as.integer(format)
  value <- as.character(value)

  .Call("R_gtkSelectDataSet", data, type, format, value)
}  

"[[.GtkSelectionData" <-
function(x, name)
{
  gtkCheckInherits(x, "GtkSelectionData")
  .Call("R_gtkSelectionDataField", x, as.character(name))
}  


GtkVisibility <- c( "none" = 0,
	"partial" = 1,
	"full" = 2 )
storage.mode( GtkVisibility ) <- 'integer'
.GtkVisibility <- c( "GTK_VISIBILITY_NONE" = 0,
	"GTK_VISIBILITY_PARTIAL" = 1,
	"GTK_VISIBILITY_FULL" = 2 )
storage.mode( .GtkVisibility ) <- 'integer'
 

GdkImageType <- c( "normal" = 0,
	"shared" = 1,
	"fastest" = 2 )
storage.mode( GdkImageType ) <- 'integer'
.GdkImageType <- c( "GDK_IMAGE_NORMAL" = 0,
	"GDK_IMAGE_SHARED" = 1,
	"GDK_IMAGE_FASTEST" = 2 )
storage.mode( .GdkImageType ) <- 'integer'
 

GtkCurveType <- c( "linear" = 0,
	"spline" = 1,
	"free" = 2 )
storage.mode( GtkCurveType ) <- 'integer'
.GtkCurveType <- c( "GTK_CURVE_TYPE_LINEAR" = 0,
	"GTK_CURVE_TYPE_SPLINE" = 1,
	"GTK_CURVE_TYPE_FREE" = 2 )
storage.mode( .GtkCurveType ) <- 'integer'
 

GtkPathType <- c( "widget" = 0,
	"widget-class" = 1,
	"class" = 2 )
storage.mode( GtkPathType ) <- 'integer'
.GtkPathType <- c( "GTK_PATH_WIDGET" = 0,
	"GTK_PATH_WIDGET_CLASS" = 1,
	"GTK_PATH_CLASS" = 2 )
storage.mode( .GtkPathType ) <- 'integer'
 

GdkVisibilityState <- c( "unobscured" = 0,
	"partial" = 1,
	"fully-obscured" = 2 )
storage.mode( GdkVisibilityState ) <- 'integer'
.GdkVisibilityState <- c( "GDK_VISIBILITY_UNOBSCURED" = 0,
	"GDK_VISIBILITY_PARTIAL" = 1,
	"GDK_VISIBILITY_FULLY_OBSCURED" = 2 )
storage.mode( .GdkVisibilityState ) <- 'integer'
 

GtkSpinType <- c( "step-forward" = 0,
	"step-backward" = 1,
	"page-forward" = 2,
	"page-backward" = 3,
	"home" = 4,
	"end" = 5,
	"user-defined" = 6 )
storage.mode( GtkSpinType ) <- 'integer'
.GtkSpinType <- c( "GTK_SPIN_STEP_FORWARD" = 0,
	"GTK_SPIN_STEP_BACKWARD" = 1,
	"GTK_SPIN_PAGE_FORWARD" = 2,
	"GTK_SPIN_PAGE_BACKWARD" = 3,
	"GTK_SPIN_HOME" = 4,
	"GTK_SPIN_END" = 5,
	"GTK_SPIN_USER_DEFINED" = 6 )
storage.mode( .GtkSpinType ) <- 'integer'
 

GdkAxisUse <- c( "ignore" = 0,
	"x" = 1,
	"y" = 2,
	"pressure" = 3,
	"xtilt" = 4,
	"ytilt" = 5,
	"last" = 6 )
storage.mode( GdkAxisUse ) <- 'integer'
.GdkAxisUse <- c( "GDK_AXIS_IGNORE" = 0,
	"GDK_AXIS_X" = 1,
	"GDK_AXIS_Y" = 2,
	"GDK_AXIS_PRESSURE" = 3,
	"GDK_AXIS_XTILT" = 4,
	"GDK_AXIS_YTILT" = 5,
	"GDK_AXIS_LAST" = 6 )
storage.mode( .GdkAxisUse ) <- 'integer'
 

GdkStatus <- c( "ok" = 0,
	"error" = 1,
	"error-param" = 2,
	"error-file" = 3,
	"error-mem" = 4 )
storage.mode( GdkStatus ) <- 'integer'
.GdkStatus <- c( "GDK_OK" = 0,
	"GDK_ERROR" = 1,
	"GDK_ERROR_PARAM" = 2,
	"GDK_ERROR_FILE" = 3,
	"GDK_ERROR_MEM" = 4 )
storage.mode( .GdkStatus ) <- 'integer'
 

GtkArrowType <- c( "up" = 0,
	"down" = 1,
	"left" = 2,
	"right" = 3 )
storage.mode( GtkArrowType ) <- 'integer'
.GtkArrowType <- c( "GTK_ARROW_UP" = 0,
	"GTK_ARROW_DOWN" = 1,
	"GTK_ARROW_LEFT" = 2,
	"GTK_ARROW_RIGHT" = 3 )
storage.mode( .GtkArrowType ) <- 'integer'
 

GtkScrollType <- c( "none" = 0,
	"step-backward" = 1,
	"step-forward" = 2,
	"page-backward" = 3,
	"page-forward" = 4,
	"jump" = 5 )
storage.mode( GtkScrollType ) <- 'integer'
.GtkScrollType <- c( "GTK_SCROLL_NONE" = 0,
	"GTK_SCROLL_STEP_BACKWARD" = 1,
	"GTK_SCROLL_STEP_FORWARD" = 2,
	"GTK_SCROLL_PAGE_BACKWARD" = 3,
	"GTK_SCROLL_PAGE_FORWARD" = 4,
	"GTK_SCROLL_JUMP" = 5 )
storage.mode( .GtkScrollType ) <- 'integer'
 

GtkCTreeLineStyle <- c( "none" = 0,
	"solid" = 1,
	"dotted" = 2,
	"tabbed" = 3 )
storage.mode( GtkCTreeLineStyle ) <- 'integer'
.GtkCTreeLineStyle <- c( "GTK_CTREE_LINES_NONE" = 0,
	"GTK_CTREE_LINES_SOLID" = 1,
	"GTK_CTREE_LINES_DOTTED" = 2,
	"GTK_CTREE_LINES_TABBED" = 3 )
storage.mode( .GtkCTreeLineStyle ) <- 'integer'
 

GtkCornerType <- c( "top-left" = 0,
	"bottom-left" = 1,
	"top-right" = 2,
	"bottom-right" = 3 )
storage.mode( GtkCornerType ) <- 'integer'
.GtkCornerType <- c( "GTK_CORNER_TOP_LEFT" = 0,
	"GTK_CORNER_BOTTOM_LEFT" = 1,
	"GTK_CORNER_TOP_RIGHT" = 2,
	"GTK_CORNER_BOTTOM_RIGHT" = 3 )
storage.mode( .GtkCornerType ) <- 'integer'
 

GdkJoinStyle <- c( "miter" = 0,
	"round" = 1,
	"bevel" = 2 )
storage.mode( GdkJoinStyle ) <- 'integer'
.GdkJoinStyle <- c( "GDK_JOIN_MITER" = 0,
	"GDK_JOIN_ROUND" = 1,
	"GDK_JOIN_BEVEL" = 2 )
storage.mode( .GdkJoinStyle ) <- 'integer'
 

GtkFontFilterType <- c( "base" = 0,
	"user" = 1 )
storage.mode( GtkFontFilterType ) <- 'integer'
.GtkFontFilterType <- c( "GTK_FONT_FILTER_BASE" = 0,
	"GTK_FONT_FILTER_USER" = 1 )
storage.mode( .GtkFontFilterType ) <- 'integer'
 

GdkSelectionType <- c( "atom" = 0,
	"bitmap" = 1,
	"colormap" = 2,
	"drawable" = 3,
	"integer" = 4,
	"pixmap" = 5,
	"window" = 6,
	"string" = 7 )
storage.mode( GdkSelectionType ) <- 'integer'
.GdkSelectionType <- c( "GDK_SELECTION_TYPE_ATOM" = 0,
	"GDK_SELECTION_TYPE_BITMAP" = 1,
	"GDK_SELECTION_TYPE_COLORMAP" = 2,
	"GDK_SELECTION_TYPE_DRAWABLE" = 3,
	"GDK_SELECTION_TYPE_INTEGER" = 4,
	"GDK_SELECTION_TYPE_PIXMAP" = 5,
	"GDK_SELECTION_TYPE_WINDOW" = 6,
	"GDK_SELECTION_TYPE_STRING" = 7 )
storage.mode( .GdkSelectionType ) <- 'integer'
 

GtkPathPriorityType <- c( "lowest" = 0,
	"gtk" = 1,
	"application" = 2,
	"rc" = 3,
	"highest" = 4,
	"mask" = 5 )
storage.mode( GtkPathPriorityType ) <- 'integer'
.GtkPathPriorityType <- c( "GTK_PATH_PRIO_LOWEST" = 0,
	"GTK_PATH_PRIO_GTK" = 1,
	"GTK_PATH_PRIO_APPLICATION" = 2,
	"GTK_PATH_PRIO_RC" = 3,
	"GTK_PATH_PRIO_HIGHEST" = 4,
	"GTK_PATH_PRIO_MASK" = 5 )
storage.mode( .GtkPathPriorityType ) <- 'integer'
 

GdkWindowType <- c( "root" = 0,
	"toplevel" = 1,
	"child" = 2,
	"dialog" = 3,
	"temp" = 4,
	"pixmap" = 5,
	"foreign" = 6 )
storage.mode( GdkWindowType ) <- 'integer'
.GdkWindowType <- c( "GDK_WINDOW_ROOT" = 0,
	"GDK_WINDOW_TOPLEVEL" = 1,
	"GDK_WINDOW_CHILD" = 2,
	"GDK_WINDOW_DIALOG" = 3,
	"GDK_WINDOW_TEMP" = 4,
	"GDK_WINDOW_PIXMAP" = 5,
	"GDK_WINDOW_FOREIGN" = 6 )
storage.mode( .GdkWindowType ) <- 'integer'
 

GtkToolbarSpaceStyle <- c( "empty" = 0,
	"line" = 1 )
storage.mode( GtkToolbarSpaceStyle ) <- 'integer'
.GtkToolbarSpaceStyle <- c( "GTK_TOOLBAR_SPACE_EMPTY" = 0,
	"GTK_TOOLBAR_SPACE_LINE" = 1 )
storage.mode( .GtkToolbarSpaceStyle ) <- 'integer'
 

GtkStateType <- c( "normal" = 0,
	"active" = 1,
	"prelight" = 2,
	"selected" = 3,
	"insensitive" = 4 )
storage.mode( GtkStateType ) <- 'integer'
.GtkStateType <- c( "GTK_STATE_NORMAL" = 0,
	"GTK_STATE_ACTIVE" = 1,
	"GTK_STATE_PRELIGHT" = 2,
	"GTK_STATE_SELECTED" = 3,
	"GTK_STATE_INSENSITIVE" = 4 )
storage.mode( .GtkStateType ) <- 'integer'
 

GtkResizeMode <- c( "parent" = 0,
	"queue" = 1,
	"immediate" = 2 )
storage.mode( GtkResizeMode ) <- 'integer'
.GtkResizeMode <- c( "GTK_RESIZE_PARENT" = 0,
	"GTK_RESIZE_QUEUE" = 1,
	"GTK_RESIZE_IMMEDIATE" = 2 )
storage.mode( .GtkResizeMode ) <- 'integer'
 

GtkCellType <- c( "empty" = 0,
	"text" = 1,
	"pixmap" = 2,
	"pixtext" = 3,
	"widget" = 4 )
storage.mode( GtkCellType ) <- 'integer'
.GtkCellType <- c( "GTK_CELL_EMPTY" = 0,
	"GTK_CELL_TEXT" = 1,
	"GTK_CELL_PIXMAP" = 2,
	"GTK_CELL_PIXTEXT" = 3,
	"GTK_CELL_WIDGET" = 4 )
storage.mode( .GtkCellType ) <- 'integer'
 

GtkShadowType <- c( "none" = 0,
	"in" = 1,
	"out" = 2,
	"etched-in" = 3,
	"etched-out" = 4 )
storage.mode( GtkShadowType ) <- 'integer'
.GtkShadowType <- c( "GTK_SHADOW_NONE" = 0,
	"GTK_SHADOW_IN" = 1,
	"GTK_SHADOW_OUT" = 2,
	"GTK_SHADOW_ETCHED_IN" = 3,
	"GTK_SHADOW_ETCHED_OUT" = 4 )
storage.mode( .GtkShadowType ) <- 'integer'
 

GtkFontMetricType <- c( "pixels" = 0,
	"points" = 1 )
storage.mode( GtkFontMetricType ) <- 'integer'
.GtkFontMetricType <- c( "GTK_FONT_METRIC_PIXELS" = 0,
	"GTK_FONT_METRIC_POINTS" = 1 )
storage.mode( .GtkFontMetricType ) <- 'integer'
 

GdkFilterReturn <- c( "continue" = 0,
	"translate" = 1,
	"remove" = 2 )
storage.mode( GdkFilterReturn ) <- 'integer'
.GdkFilterReturn <- c( "GDK_FILTER_CONTINUE" = 0,
	"GDK_FILTER_TRANSLATE" = 1,
	"GDK_FILTER_REMOVE" = 2 )
storage.mode( .GdkFilterReturn ) <- 'integer'
 

GdkFill <- c( "solid" = 0,
	"tiled" = 1,
	"stippled" = 2,
	"opaque-stippled" = 3 )
storage.mode( GdkFill ) <- 'integer'
.GdkFill <- c( "GDK_SOLID" = 0,
	"GDK_TILED" = 1,
	"GDK_STIPPLED" = 2,
	"GDK_OPAQUE_STIPPLED" = 3 )
storage.mode( .GdkFill ) <- 'integer'
 

GdkCrossingMode <- c( "normal" = 0,
	"grab" = 1,
	"ungrab" = 2 )
storage.mode( GdkCrossingMode ) <- 'integer'
.GdkCrossingMode <- c( "GDK_CROSSING_NORMAL" = 0,
	"GDK_CROSSING_GRAB" = 1,
	"GDK_CROSSING_UNGRAB" = 2 )
storage.mode( .GdkCrossingMode ) <- 'integer'
 

GtkMetricType <- c( "pixels" = 0,
	"inches" = 1,
	"centimeters" = 2 )
storage.mode( GtkMetricType ) <- 'integer'
.GtkMetricType <- c( "GTK_PIXELS" = 0,
	"GTK_INCHES" = 1,
	"GTK_CENTIMETERS" = 2 )
storage.mode( .GtkMetricType ) <- 'integer'
 

GtkReliefStyle <- c( "normal" = 0,
	"half" = 1,
	"none" = 2 )
storage.mode( GtkReliefStyle ) <- 'integer'
.GtkReliefStyle <- c( "GTK_RELIEF_NORMAL" = 0,
	"GTK_RELIEF_HALF" = 1,
	"GTK_RELIEF_NONE" = 2 )
storage.mode( .GtkReliefStyle ) <- 'integer'
 

GdkCapStyle <- c( "not-last" = 0,
	"butt" = 1,
	"round" = 2,
	"projecting" = 3 )
storage.mode( GdkCapStyle ) <- 'integer'
.GdkCapStyle <- c( "GDK_CAP_NOT_LAST" = 0,
	"GDK_CAP_BUTT" = 1,
	"GDK_CAP_ROUND" = 2,
	"GDK_CAP_PROJECTING" = 3 )
storage.mode( .GdkCapStyle ) <- 'integer'
 

GdkFunction <- c( "copy" = 0,
	"invert" = 1,
	"xor" = 2,
	"clear" = 3,
	"and" = 4,
	"and-reverse" = 5,
	"and-invert" = 6,
	"noop" = 7,
	"or" = 8,
	"equiv" = 9,
	"or-reverse" = 10,
	"copy-invert" = 11,
	"or-invert" = 12,
	"nand" = 13,
	"set" = 14 )
storage.mode( GdkFunction ) <- 'integer'
.GdkFunction <- c( "GDK_COPY" = 0,
	"GDK_INVERT" = 1,
	"GDK_XOR" = 2,
	"GDK_CLEAR" = 3,
	"GDK_AND" = 4,
	"GDK_AND_REVERSE" = 5,
	"GDK_AND_INVERT" = 6,
	"GDK_NOOP" = 7,
	"GDK_OR" = 8,
	"GDK_EQUIV" = 9,
	"GDK_OR_REVERSE" = 10,
	"GDK_COPY_INVERT" = 11,
	"GDK_OR_INVERT" = 12,
	"GDK_NAND" = 13,
	"GDK_SET" = 14 )
storage.mode( .GdkFunction ) <- 'integer'
 

GdkNotifyType <- c( "ancestor" = 0,
	"virtual" = 1,
	"inferior" = 2,
	"nonlinear" = 3,
	"nonlinear-virtual" = 4,
	"unknown" = 5 )
storage.mode( GdkNotifyType ) <- 'integer'
.GdkNotifyType <- c( "GDK_NOTIFY_ANCESTOR" = 0,
	"GDK_NOTIFY_VIRTUAL" = 1,
	"GDK_NOTIFY_INFERIOR" = 2,
	"GDK_NOTIFY_NONLINEAR" = 3,
	"GDK_NOTIFY_NONLINEAR_VIRTUAL" = 4,
	"GDK_NOTIFY_UNKNOWN" = 5 )
storage.mode( .GdkNotifyType ) <- 'integer'
 

GtkButtonBoxStyle <- c( "default-style" = 0,
	"spread" = 1,
	"edge" = 2,
	"start" = 3,
	"end" = 4 )
storage.mode( GtkButtonBoxStyle ) <- 'integer'
.GtkButtonBoxStyle <- c( "GTK_BUTTONBOX_DEFAULT_STYLE" = 0,
	"GTK_BUTTONBOX_SPREAD" = 1,
	"GTK_BUTTONBOX_EDGE" = 2,
	"GTK_BUTTONBOX_START" = 3,
	"GTK_BUTTONBOX_END" = 4 )
storage.mode( .GtkButtonBoxStyle ) <- 'integer'
 

GdkCursorType <- c( "num-glyphs" = 0,
	"x-cursor" = 1,
	"arrow" = 2,
	"based-arrow-down" = 3,
	"based-arrow-up" = 4,
	"boat" = 5,
	"bogosity" = 6,
	"bottom-left-corner" = 7,
	"bottom-right-corner" = 8,
	"bottom-side" = 9,
	"bottom-tee" = 10,
	"box-spiral" = 11,
	"center-ptr" = 12,
	"circle" = 13,
	"clock" = 14,
	"coffee-mug" = 15,
	"cross" = 16,
	"cross-reverse" = 17,
	"crosshair" = 18,
	"diamond-cross" = 19,
	"dot" = 20,
	"dotbox" = 21,
	"double-arrow" = 22,
	"draft-large" = 23,
	"draft-small" = 24,
	"draped-box" = 25,
	"exchange" = 26,
	"fleur" = 27,
	"gobbler" = 28,
	"gumby" = 29,
	"hand1" = 30,
	"hand2" = 31,
	"heart" = 32,
	"icon" = 33,
	"iron-cross" = 34,
	"left-ptr" = 35,
	"left-side" = 36,
	"left-tee" = 37,
	"leftbutton" = 38,
	"ll-angle" = 39,
	"lr-angle" = 40,
	"man" = 41,
	"middlebutton" = 42,
	"mouse" = 43,
	"pencil" = 44,
	"pirate" = 45,
	"plus" = 46,
	"question-arrow" = 47,
	"right-ptr" = 48,
	"right-side" = 49,
	"right-tee" = 50,
	"rightbutton" = 51,
	"rtl-logo" = 52,
	"sailboat" = 53,
	"sb-down-arrow" = 54,
	"sb-h-double-arrow" = 55,
	"sb-left-arrow" = 56,
	"sb-right-arrow" = 57,
	"sb-up-arrow" = 58,
	"sb-v-double-arrow" = 59,
	"shuttle" = 60,
	"sizing" = 61,
	"spider" = 62,
	"spraycan" = 63,
	"star" = 64,
	"target" = 65,
	"tcross" = 66,
	"top-left-arrow" = 67,
	"top-left-corner" = 68,
	"top-right-corner" = 69,
	"top-side" = 70,
	"top-tee" = 71,
	"trek" = 72,
	"ul-angle" = 73,
	"umbrella" = 74,
	"ur-angle" = 75,
	"watch" = 76,
	"xterm" = 77,
	"last-cursor" = 78,
	"cursor-is-pixmap" = 79 )
storage.mode( GdkCursorType ) <- 'integer'
.GdkCursorType <- c( "GDK_NUM_GLYPHS" = 0,
	"GDK_X_CURSOR" = 1,
	"GDK_ARROW" = 2,
	"GDK_BASED_ARROW_DOWN" = 3,
	"GDK_BASED_ARROW_UP" = 4,
	"GDK_BOAT" = 5,
	"GDK_BOGOSITY" = 6,
	"GDK_BOTTOM_LEFT_CORNER" = 7,
	"GDK_BOTTOM_RIGHT_CORNER" = 8,
	"GDK_BOTTOM_SIDE" = 9,
	"GDK_BOTTOM_TEE" = 10,
	"GDK_BOX_SPIRAL" = 11,
	"GDK_CENTER_PTR" = 12,
	"GDK_CIRCLE" = 13,
	"GDK_CLOCK" = 14,
	"GDK_COFFEE_MUG" = 15,
	"GDK_CROSS" = 16,
	"GDK_CROSS_REVERSE" = 17,
	"GDK_CROSSHAIR" = 18,
	"GDK_DIAMOND_CROSS" = 19,
	"GDK_DOT" = 20,
	"GDK_DOTBOX" = 21,
	"GDK_DOUBLE_ARROW" = 22,
	"GDK_DRAFT_LARGE" = 23,
	"GDK_DRAFT_SMALL" = 24,
	"GDK_DRAPED_BOX" = 25,
	"GDK_EXCHANGE" = 26,
	"GDK_FLEUR" = 27,
	"GDK_GOBBLER" = 28,
	"GDK_GUMBY" = 29,
	"GDK_HAND1" = 30,
	"GDK_HAND2" = 31,
	"GDK_HEART" = 32,
	"GDK_ICON" = 33,
	"GDK_IRON_CROSS" = 34,
	"GDK_LEFT_PTR" = 35,
	"GDK_LEFT_SIDE" = 36,
	"GDK_LEFT_TEE" = 37,
	"GDK_LEFTBUTTON" = 38,
	"GDK_LL_ANGLE" = 39,
	"GDK_LR_ANGLE" = 40,
	"GDK_MAN" = 41,
	"GDK_MIDDLEBUTTON" = 42,
	"GDK_MOUSE" = 43,
	"GDK_PENCIL" = 44,
	"GDK_PIRATE" = 45,
	"GDK_PLUS" = 46,
	"GDK_QUESTION_ARROW" = 47,
	"GDK_RIGHT_PTR" = 48,
	"GDK_RIGHT_SIDE" = 49,
	"GDK_RIGHT_TEE" = 50,
	"GDK_RIGHTBUTTON" = 51,
	"GDK_RTL_LOGO" = 52,
	"GDK_SAILBOAT" = 53,
	"GDK_SB_DOWN_ARROW" = 54,
	"GDK_SB_H_DOUBLE_ARROW" = 55,
	"GDK_SB_LEFT_ARROW" = 56,
	"GDK_SB_RIGHT_ARROW" = 57,
	"GDK_SB_UP_ARROW" = 58,
	"GDK_SB_V_DOUBLE_ARROW" = 59,
	"GDK_SHUTTLE" = 60,
	"GDK_SIZING" = 61,
	"GDK_SPIDER" = 62,
	"GDK_SPRAYCAN" = 63,
	"GDK_STAR" = 64,
	"GDK_TARGET" = 65,
	"GDK_TCROSS" = 66,
	"GDK_TOP_LEFT_ARROW" = 67,
	"GDK_TOP_LEFT_CORNER" = 68,
	"GDK_TOP_RIGHT_CORNER" = 69,
	"GDK_TOP_SIDE" = 70,
	"GDK_TOP_TEE" = 71,
	"GDK_TREK" = 72,
	"GDK_UL_ANGLE" = 73,
	"GDK_UMBRELLA" = 74,
	"GDK_UR_ANGLE" = 75,
	"GDK_WATCH" = 76,
	"GDK_XTERM" = 77,
	"GDK_LAST_CURSOR" = 78,
	"GDK_CURSOR_IS_PIXMAP" = 79 )
storage.mode( .GdkCursorType ) <- 'integer'
 

GdkPropertyState <- c( "new-value" = 0,
	"delete" = 1 )
storage.mode( GdkPropertyState ) <- 'integer'
.GdkPropertyState <- c( "GDK_PROPERTY_NEW_VALUE" = 0,
	"GDK_PROPERTY_DELETE" = 1 )
storage.mode( .GdkPropertyState ) <- 'integer'
 

GdkVisualType <- c( "static-gray" = 0,
	"grayscale" = 1,
	"static-color" = 2,
	"pseudo-color" = 3,
	"true-color" = 4,
	"direct-color" = 5 )
storage.mode( GdkVisualType ) <- 'integer'
.GdkVisualType <- c( "GDK_VISUAL_STATIC_GRAY" = 0,
	"GDK_VISUAL_GRAYSCALE" = 1,
	"GDK_VISUAL_STATIC_COLOR" = 2,
	"GDK_VISUAL_PSEUDO_COLOR" = 3,
	"GDK_VISUAL_TRUE_COLOR" = 4,
	"GDK_VISUAL_DIRECT_COLOR" = 5 )
storage.mode( .GdkVisualType ) <- 'integer'
 

GdkRgbDither <- c( "none" = 0,
	"normal" = 1,
	"max" = 2 )
storage.mode( GdkRgbDither ) <- 'integer'
.GdkRgbDither <- c( "GDK_RGB_DITHER_NONE" = 0,
	"GDK_RGB_DITHER_NORMAL" = 1,
	"GDK_RGB_DITHER_MAX" = 2 )
storage.mode( .GdkRgbDither ) <- 'integer'
 

GtkSortType <- c( "ascending" = 0,
	"descending" = 1 )
storage.mode( GtkSortType ) <- 'integer'
.GtkSortType <- c( "GTK_SORT_ASCENDING" = 0,
	"GTK_SORT_DESCENDING" = 1 )
storage.mode( .GtkSortType ) <- 'integer'
 

GtkWindowPosition <- c( "none" = 0,
	"center" = 1,
	"mouse" = 2 )
storage.mode( GtkWindowPosition ) <- 'integer'
.GtkWindowPosition <- c( "GTK_WIN_POS_NONE" = 0,
	"GTK_WIN_POS_CENTER" = 1,
	"GTK_WIN_POS_MOUSE" = 2 )
storage.mode( .GtkWindowPosition ) <- 'integer'
 

GdkInputMode <- c( "disabled" = 0,
	"screen" = 1,
	"window" = 2 )
storage.mode( GdkInputMode ) <- 'integer'
.GdkInputMode <- c( "GDK_MODE_DISABLED" = 0,
	"GDK_MODE_SCREEN" = 1,
	"GDK_MODE_WINDOW" = 2 )
storage.mode( .GdkInputMode ) <- 'integer'
 

GdkEventType <- c( "nothing" = 0,
	"delete" = 1,
	"destroy" = 2,
	"expose" = 3,
	"motion-notify" = 4,
	"button-press" = 5,
	"button2-press" = 6,
	"button3-press" = 7,
	"button-release" = 8,
	"key-press" = 9,
	"key-release" = 10,
	"enter-notify" = 11,
	"leave-notify" = 12,
	"focus-change" = 13,
	"configure" = 14,
	"map" = 15,
	"unmap" = 16,
	"property-notify" = 17,
	"selection-clear" = 18,
	"selection-request" = 19,
	"selection-notify" = 20,
	"proximity-in" = 21,
	"proximity-out" = 22,
	"drag-enter" = 23,
	"drag-leave" = 24,
	"drag-motion" = 25,
	"drag-status" = 26,
	"drop-start" = 27,
	"drop-finished" = 28,
	"client-event" = 29,
	"visibility-notify" = 30,
	"no-expose" = 31 )
storage.mode( GdkEventType ) <- 'integer'
.GdkEventType <- c( "GDK_NOTHING" = 0,
	"GDK_DELETE" = 1,
	"GDK_DESTROY" = 2,
	"GDK_EXPOSE" = 3,
	"GDK_MOTION_NOTIFY" = 4,
	"GDK_BUTTON_PRESS" = 5,
	"GDK_2BUTTON_PRESS" = 6,
	"GDK_3BUTTON_PRESS" = 7,
	"GDK_BUTTON_RELEASE" = 8,
	"GDK_KEY_PRESS" = 9,
	"GDK_KEY_RELEASE" = 10,
	"GDK_ENTER_NOTIFY" = 11,
	"GDK_LEAVE_NOTIFY" = 12,
	"GDK_FOCUS_CHANGE" = 13,
	"GDK_CONFIGURE" = 14,
	"GDK_MAP" = 15,
	"GDK_UNMAP" = 16,
	"GDK_PROPERTY_NOTIFY" = 17,
	"GDK_SELECTION_CLEAR" = 18,
	"GDK_SELECTION_REQUEST" = 19,
	"GDK_SELECTION_NOTIFY" = 20,
	"GDK_PROXIMITY_IN" = 21,
	"GDK_PROXIMITY_OUT" = 22,
	"GDK_DRAG_ENTER" = 23,
	"GDK_DRAG_LEAVE" = 24,
	"GDK_DRAG_MOTION" = 25,
	"GDK_DRAG_STATUS" = 26,
	"GDK_DROP_START" = 27,
	"GDK_DROP_FINISHED" = 28,
	"GDK_CLIENT_EVENT" = 29,
	"GDK_VISIBILITY_NOTIFY" = 30,
	"GDK_NO_EXPOSE" = 31 )
storage.mode( .GdkEventType ) <- 'integer'
 

GtkCTreeExpansionType <- c( "expand" = 0,
	"expand-recursive" = 1,
	"collapse" = 2,
	"collapse-recursive" = 3,
	"toggle" = 4,
	"toggle-recursive" = 5 )
storage.mode( GtkCTreeExpansionType ) <- 'integer'
.GtkCTreeExpansionType <- c( "GTK_CTREE_EXPANSION_EXPAND" = 0,
	"GTK_CTREE_EXPANSION_EXPAND_RECURSIVE" = 1,
	"GTK_CTREE_EXPANSION_COLLAPSE" = 2,
	"GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE" = 3,
	"GTK_CTREE_EXPANSION_TOGGLE" = 4,
	"GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE" = 5 )
storage.mode( .GtkCTreeExpansionType ) <- 'integer'
 

GtkProgressBarStyle <- c( "continuous" = 0,
	"discrete" = 1 )
storage.mode( GtkProgressBarStyle ) <- 'integer'
.GtkProgressBarStyle <- c( "GTK_PROGRESS_CONTINUOUS" = 0,
	"GTK_PROGRESS_DISCRETE" = 1 )
storage.mode( .GtkProgressBarStyle ) <- 'integer'
 

GdkLineStyle <- c( "solid" = 0,
	"on-off-dash" = 1,
	"double-dash" = 2 )
storage.mode( GdkLineStyle ) <- 'integer'
.GdkLineStyle <- c( "GDK_LINE_SOLID" = 0,
	"GDK_LINE_ON_OFF_DASH" = 1,
	"GDK_LINE_DOUBLE_DASH" = 2 )
storage.mode( .GdkLineStyle ) <- 'integer'
 

GtkRcTokenType <- c( "invalid" = 0,
	"include" = 1,
	"normal" = 2,
	"active" = 3,
	"prelight" = 4,
	"selected" = 5,
	"insensitive" = 6,
	"fg" = 7,
	"bg" = 8,
	"base" = 9,
	"text" = 10,
	"font" = 11,
	"fontset" = 12,
	"bg-pixmap" = 13,
	"pixmap-path" = 14,
	"style" = 15,
	"binding" = 16,
	"bind" = 17,
	"widget" = 18,
	"widget-class" = 19,
	"class" = 20,
	"lowest" = 21,
	"gtk" = 22,
	"application" = 23,
	"rc" = 24,
	"highest" = 25,
	"engine" = 26,
	"module-path" = 27,
	"last" = 28 )
storage.mode( GtkRcTokenType ) <- 'integer'
.GtkRcTokenType <- c( "GTK_RC_TOKEN_INVALID" = 0,
	"GTK_RC_TOKEN_INCLUDE" = 1,
	"GTK_RC_TOKEN_NORMAL" = 2,
	"GTK_RC_TOKEN_ACTIVE" = 3,
	"GTK_RC_TOKEN_PRELIGHT" = 4,
	"GTK_RC_TOKEN_SELECTED" = 5,
	"GTK_RC_TOKEN_INSENSITIVE" = 6,
	"GTK_RC_TOKEN_FG" = 7,
	"GTK_RC_TOKEN_BG" = 8,
	"GTK_RC_TOKEN_BASE" = 9,
	"GTK_RC_TOKEN_TEXT" = 10,
	"GTK_RC_TOKEN_FONT" = 11,
	"GTK_RC_TOKEN_FONTSET" = 12,
	"GTK_RC_TOKEN_BG_PIXMAP" = 13,
	"GTK_RC_TOKEN_PIXMAP_PATH" = 14,
	"GTK_RC_TOKEN_STYLE" = 15,
	"GTK_RC_TOKEN_BINDING" = 16,
	"GTK_RC_TOKEN_BIND" = 17,
	"GTK_RC_TOKEN_WIDGET" = 18,
	"GTK_RC_TOKEN_WIDGET_CLASS" = 19,
	"GTK_RC_TOKEN_CLASS" = 20,
	"GTK_RC_TOKEN_LOWEST" = 21,
	"GTK_RC_TOKEN_GTK" = 22,
	"GTK_RC_TOKEN_APPLICATION" = 23,
	"GTK_RC_TOKEN_RC" = 24,
	"GTK_RC_TOKEN_HIGHEST" = 25,
	"GTK_RC_TOKEN_ENGINE" = 26,
	"GTK_RC_TOKEN_MODULE_PATH" = 27,
	"GTK_RC_TOKEN_LAST" = 28 )
storage.mode( .GtkRcTokenType ) <- 'integer'
 

GtkMenuFactoryType <- c( "menu" = 0,
	"menu-bar" = 1,
	"option-menu" = 2 )
storage.mode( GtkMenuFactoryType ) <- 'integer'
.GtkMenuFactoryType <- c( "GTK_MENU_FACTORY_MENU" = 0,
	"GTK_MENU_FACTORY_MENU_BAR" = 1,
	"GTK_MENU_FACTORY_OPTION_MENU" = 2 )
storage.mode( .GtkMenuFactoryType ) <- 'integer'
 

GtkCTreePos <- c( "before" = 0,
	"as-child" = 1,
	"after" = 2 )
storage.mode( GtkCTreePos ) <- 'integer'
.GtkCTreePos <- c( "GTK_CTREE_POS_BEFORE" = 0,
	"GTK_CTREE_POS_AS_CHILD" = 1,
	"GTK_CTREE_POS_AFTER" = 2 )
storage.mode( .GtkCTreePos ) <- 'integer'
 

GtkCListDragPos <- c( "none" = 0,
	"before" = 1,
	"into" = 2,
	"after" = 3 )
storage.mode( GtkCListDragPos ) <- 'integer'
.GtkCListDragPos <- c( "GTK_CLIST_DRAG_NONE" = 0,
	"GTK_CLIST_DRAG_BEFORE" = 1,
	"GTK_CLIST_DRAG_INTO" = 2,
	"GTK_CLIST_DRAG_AFTER" = 3 )
storage.mode( .GtkCListDragPos ) <- 'integer'
 

GdkExtensionMode <- c( "none" = 0,
	"all" = 1,
	"cursor" = 2 )
storage.mode( GdkExtensionMode ) <- 'integer'
.GdkExtensionMode <- c( "GDK_EXTENSION_EVENTS_NONE" = 0,
	"GDK_EXTENSION_EVENTS_ALL" = 1,
	"GDK_EXTENSION_EVENTS_CURSOR" = 2 )
storage.mode( .GdkExtensionMode ) <- 'integer'
 

GtkWindowType <- c( "toplevel" = 0,
	"dialog" = 1,
	"popup" = 2 )
storage.mode( GtkWindowType ) <- 'integer'
.GtkWindowType <- c( "GTK_WINDOW_TOPLEVEL" = 0,
	"GTK_WINDOW_DIALOG" = 1,
	"GTK_WINDOW_POPUP" = 2 )
storage.mode( .GtkWindowType ) <- 'integer'
 

GtkMatchType <- c( "all" = 0,
	"all-tail" = 1,
	"head" = 2,
	"tail" = 3,
	"exact" = 4,
	"last" = 5 )
storage.mode( GtkMatchType ) <- 'integer'
.GtkMatchType <- c( "GTK_MATCH_ALL" = 0,
	"GTK_MATCH_ALL_TAIL" = 1,
	"GTK_MATCH_HEAD" = 2,
	"GTK_MATCH_TAIL" = 3,
	"GTK_MATCH_EXACT" = 4,
	"GTK_MATCH_LAST" = 5 )
storage.mode( .GtkMatchType ) <- 'integer'
 

GtkToolbarChildType <- c( "space" = 0,
	"button" = 1,
	"togglebutton" = 2,
	"radiobutton" = 3,
	"widget" = 4 )
storage.mode( GtkToolbarChildType ) <- 'integer'
.GtkToolbarChildType <- c( "GTK_TOOLBAR_CHILD_SPACE" = 0,
	"GTK_TOOLBAR_CHILD_BUTTON" = 1,
	"GTK_TOOLBAR_CHILD_TOGGLEBUTTON" = 2,
	"GTK_TOOLBAR_CHILD_RADIOBUTTON" = 3,
	"GTK_TOOLBAR_CHILD_WIDGET" = 4 )
storage.mode( .GtkToolbarChildType ) <- 'integer'
 

GtkPositionType <- c( "left" = 0,
	"right" = 1,
	"top" = 2,
	"bottom" = 3 )
storage.mode( GtkPositionType ) <- 'integer'
.GtkPositionType <- c( "GTK_POS_LEFT" = 0,
	"GTK_POS_RIGHT" = 1,
	"GTK_POS_TOP" = 2,
	"GTK_POS_BOTTOM" = 3 )
storage.mode( .GtkPositionType ) <- 'integer'
 

GtkPackType <- c( "start" = 0,
	"end" = 1 )
storage.mode( GtkPackType ) <- 'integer'
.GtkPackType <- c( "GTK_PACK_START" = 0,
	"GTK_PACK_END" = 1 )
storage.mode( .GtkPackType ) <- 'integer'
 

GdkTarget <- c( "bitmap" = 0,
	"colormap" = 1,
	"drawable" = 2,
	"pixmap" = 3,
	"string" = 4 )
storage.mode( GdkTarget ) <- 'integer'
.GdkTarget <- c( "GDK_TARGET_BITMAP" = 0,
	"GDK_TARGET_COLORMAP" = 1,
	"GDK_TARGET_DRAWABLE" = 2,
	"GDK_TARGET_PIXMAP" = 3,
	"GDK_TARGET_STRING" = 4 )
storage.mode( .GdkTarget ) <- 'integer'
 

GtkToolbarStyle <- c( "icons" = 0,
	"text" = 1,
	"both" = 2 )
storage.mode( GtkToolbarStyle ) <- 'integer'
.GtkToolbarStyle <- c( "GTK_TOOLBAR_ICONS" = 0,
	"GTK_TOOLBAR_TEXT" = 1,
	"GTK_TOOLBAR_BOTH" = 2 )
storage.mode( .GtkToolbarStyle ) <- 'integer'
 

GtkCTreeExpanderStyle <- c( "none" = 0,
	"square" = 1,
	"triangle" = 2,
	"circular" = 3 )
storage.mode( GtkCTreeExpanderStyle ) <- 'integer'
.GtkCTreeExpanderStyle <- c( "GTK_CTREE_EXPANDER_NONE" = 0,
	"GTK_CTREE_EXPANDER_SQUARE" = 1,
	"GTK_CTREE_EXPANDER_TRIANGLE" = 2,
	"GTK_CTREE_EXPANDER_CIRCULAR" = 3 )
storage.mode( .GtkCTreeExpanderStyle ) <- 'integer'
 

GdkFillRule <- c( "even-odd-rule" = 0,
	"winding-rule" = 1 )
storage.mode( GdkFillRule ) <- 'integer'
.GdkFillRule <- c( "GDK_EVEN_ODD_RULE" = 0,
	"GDK_WINDING_RULE" = 1 )
storage.mode( .GdkFillRule ) <- 'integer'
 

GtkUpdateType <- c( "continuous" = 0,
	"discontinuous" = 1,
	"delayed" = 2 )
storage.mode( GtkUpdateType ) <- 'integer'
.GtkUpdateType <- c( "GTK_UPDATE_CONTINUOUS" = 0,
	"GTK_UPDATE_DISCONTINUOUS" = 1,
	"GTK_UPDATE_DELAYED" = 2 )
storage.mode( .GtkUpdateType ) <- 'integer'
 

GdkOverlapType <- c( "in" = 0,
	"out" = 1,
	"part" = 2 )
storage.mode( GdkOverlapType ) <- 'integer'
.GdkOverlapType <- c( "GDK_OVERLAP_RECTANGLE_IN" = 0,
	"GDK_OVERLAP_RECTANGLE_OUT" = 1,
	"GDK_OVERLAP_RECTANGLE_PART" = 2 )
storage.mode( .GdkOverlapType ) <- 'integer'
 

GdkPropMode <- c( "replace" = 0,
	"prepend" = 1,
	"append" = 2 )
storage.mode( GdkPropMode ) <- 'integer'
.GdkPropMode <- c( "GDK_PROP_MODE_REPLACE" = 0,
	"GDK_PROP_MODE_PREPEND" = 1,
	"GDK_PROP_MODE_APPEND" = 2 )
storage.mode( .GdkPropMode ) <- 'integer'
 

GtkPolicyType <- c( "always" = 0,
	"automatic" = 1,
	"never" = 2 )
storage.mode( GtkPolicyType ) <- 'integer'
.GtkPolicyType <- c( "GTK_POLICY_ALWAYS" = 0,
	"GTK_POLICY_AUTOMATIC" = 1,
	"GTK_POLICY_NEVER" = 2 )
storage.mode( .GtkPolicyType ) <- 'integer'
 

GdkColorContextMode <- c( "undefined" = 0,
	"bw" = 1,
	"std-cmap" = 2,
	"true" = 3,
	"my-gray" = 4,
	"palette" = 5 )
storage.mode( GdkColorContextMode ) <- 'integer'
.GdkColorContextMode <- c( "GDK_CC_MODE_UNDEFINED" = 0,
	"GDK_CC_MODE_BW" = 1,
	"GDK_CC_MODE_STD_CMAP" = 2,
	"GDK_CC_MODE_TRUE" = 3,
	"GDK_CC_MODE_MY_GRAY" = 4,
	"GDK_CC_MODE_PALETTE" = 5 )
storage.mode( .GdkColorContextMode ) <- 'integer'
 

GdkInputSource <- c( "mouse" = 0,
	"pen" = 1,
	"eraser" = 2,
	"cursor" = 3 )
storage.mode( GdkInputSource ) <- 'integer'
.GdkInputSource <- c( "GDK_SOURCE_MOUSE" = 0,
	"GDK_SOURCE_PEN" = 1,
	"GDK_SOURCE_ERASER" = 2,
	"GDK_SOURCE_CURSOR" = 3 )
storage.mode( .GdkInputSource ) <- 'integer'
 

GtkFundamentalType <- c( "invalid" = 0,
	"none" = 1,
	"char" = 2,
	"uchar" = 3,
	"bool" = 4,
	"int" = 5,
	"uint" = 6,
	"long" = 7,
	"ulong" = 8,
	"float" = 9,
	"double" = 10,
	"string" = 11,
	"enum" = 12,
	"flags" = 13,
	"boxed" = 14,
	"pointer" = 15,
	"signal" = 16,
	"args" = 17,
	"callback" = 18,
	"c-callback" = 19,
	"foreign" = 20,
	"object" = 21 )
storage.mode( GtkFundamentalType ) <- 'integer'
.GtkFundamentalType <- c( "GTK_TYPE_INVALID" = 0,
	"GTK_TYPE_NONE" = 1,
	"GTK_TYPE_CHAR" = 2,
	"GTK_TYPE_UCHAR" = 3,
	"GTK_TYPE_BOOL" = 4,
	"GTK_TYPE_INT" = 5,
	"GTK_TYPE_UINT" = 6,
	"GTK_TYPE_LONG" = 7,
	"GTK_TYPE_ULONG" = 8,
	"GTK_TYPE_FLOAT" = 9,
	"GTK_TYPE_DOUBLE" = 10,
	"GTK_TYPE_STRING" = 11,
	"GTK_TYPE_ENUM" = 12,
	"GTK_TYPE_FLAGS" = 13,
	"GTK_TYPE_BOXED" = 14,
	"GTK_TYPE_POINTER" = 15,
	"GTK_TYPE_SIGNAL" = 16,
	"GTK_TYPE_ARGS" = 17,
	"GTK_TYPE_CALLBACK" = 18,
	"GTK_TYPE_C_CALLBACK" = 19,
	"GTK_TYPE_FOREIGN" = 20,
	"GTK_TYPE_OBJECT" = 21 )
storage.mode( .GtkFundamentalType ) <- 'integer'
 

GdkFontType <- c( "font" = 0,
	"fontset" = 1 )
storage.mode( GdkFontType ) <- 'integer'
.GdkFontType <- c( "GDK_FONT_FONT" = 0,
	"GDK_FONT_FONTSET" = 1 )
storage.mode( .GdkFontType ) <- 'integer'
 

GtkPreviewType <- c( "color" = 0,
	"grayscale" = 1 )
storage.mode( GtkPreviewType ) <- 'integer'
.GtkPreviewType <- c( "GTK_PREVIEW_COLOR" = 0,
	"GTK_PREVIEW_GRAYSCALE" = 1 )
storage.mode( .GtkPreviewType ) <- 'integer'
 

GtkDirectionType <- c( "tab-forward" = 0,
	"tab-backward" = 1,
	"up" = 2,
	"down" = 3,
	"left" = 4,
	"right" = 5 )
storage.mode( GtkDirectionType ) <- 'integer'
.GtkDirectionType <- c( "GTK_DIR_TAB_FORWARD" = 0,
	"GTK_DIR_TAB_BACKWARD" = 1,
	"GTK_DIR_UP" = 2,
	"GTK_DIR_DOWN" = 3,
	"GTK_DIR_LEFT" = 4,
	"GTK_DIR_RIGHT" = 5 )
storage.mode( .GtkDirectionType ) <- 'integer'
 

GtkTreeViewMode <- c( "line" = 0,
	"item" = 1 )
storage.mode( GtkTreeViewMode ) <- 'integer'
.GtkTreeViewMode <- c( "GTK_TREE_VIEW_LINE" = 0,
	"GTK_TREE_VIEW_ITEM" = 1 )
storage.mode( .GtkTreeViewMode ) <- 'integer'
 

GdkSubwindowMode <- c( "clip-by-children" = 0,
	"include-inferiors" = 1 )
storage.mode( GdkSubwindowMode ) <- 'integer'
.GdkSubwindowMode <- c( "GDK_CLIP_BY_CHILDREN" = 0,
	"GDK_INCLUDE_INFERIORS" = 1 )
storage.mode( .GdkSubwindowMode ) <- 'integer'
 

GdkWindowClass <- c( "output" = 0,
	"only" = 1 )
storage.mode( GdkWindowClass ) <- 'integer'
.GdkWindowClass <- c( "GDK_INPUT_OUTPUT" = 0,
	"GDK_INPUT_ONLY" = 1 )
storage.mode( .GdkWindowClass ) <- 'integer'
 

GtkSideType <- c( "top" = 0,
	"bottom" = 1,
	"left" = 2,
	"right" = 3 )
storage.mode( GtkSideType ) <- 'integer'
.GtkSideType <- c( "GTK_SIDE_TOP" = 0,
	"GTK_SIDE_BOTTOM" = 1,
	"GTK_SIDE_LEFT" = 2,
	"GTK_SIDE_RIGHT" = 3 )
storage.mode( .GtkSideType ) <- 'integer'
 

GtkOrientation <- c( "horizontal" = 0,
	"vertical" = 1 )
storage.mode( GtkOrientation ) <- 'integer'
.GtkOrientation <- c( "GTK_ORIENTATION_HORIZONTAL" = 0,
	"GTK_ORIENTATION_VERTICAL" = 1 )
storage.mode( .GtkOrientation ) <- 'integer'
 

GdkByteOrder <- c( "lsb-first" = 0,
	"msb-first" = 1 )
storage.mode( GdkByteOrder ) <- 'integer'
.GdkByteOrder <- c( "GDK_LSB_FIRST" = 0,
	"GDK_MSB_FIRST" = 1 )
storage.mode( .GdkByteOrder ) <- 'integer'
 

GtkProgressBarOrientation <- c( "left-to-right" = 0,
	"right-to-left" = 1,
	"bottom-to-top" = 2,
	"top-to-bottom" = 3 )
storage.mode( GtkProgressBarOrientation ) <- 'integer'
.GtkProgressBarOrientation <- c( "GTK_PROGRESS_LEFT_TO_RIGHT" = 0,
	"GTK_PROGRESS_RIGHT_TO_LEFT" = 1,
	"GTK_PROGRESS_BOTTOM_TO_TOP" = 2,
	"GTK_PROGRESS_TOP_TO_BOTTOM" = 3 )
storage.mode( .GtkProgressBarOrientation ) <- 'integer'
 

GtkSubmenuDirection <- c( "left" = 0,
	"right" = 1 )
storage.mode( GtkSubmenuDirection ) <- 'integer'
.GtkSubmenuDirection <- c( "GTK_DIRECTION_LEFT" = 0,
	"GTK_DIRECTION_RIGHT" = 1 )
storage.mode( .GtkSubmenuDirection ) <- 'integer'
 

GdkSelection <- c( "primary" = 0,
	"secondary" = 1 )
storage.mode( GdkSelection ) <- 'integer'
.GdkSelection <- c( "GDK_SELECTION_PRIMARY" = 0,
	"GDK_SELECTION_SECONDARY" = 1 )
storage.mode( .GdkSelection ) <- 'integer'
 

GtkAnchorType <- c( "center" = 0,
	"north" = 1,
	"north-west" = 2,
	"north-east" = 3,
	"south" = 4,
	"south-west" = 5,
	"south-east" = 6,
	"west" = 7,
	"east" = 8,
	"n" = 9,
	"nw" = 10,
	"ne" = 11,
	"s" = 12,
	"sw" = 13,
	"se" = 14,
	"w" = 15,
	"e" = 16 )
storage.mode( GtkAnchorType ) <- 'integer'
.GtkAnchorType <- c( "GTK_ANCHOR_CENTER" = 0,
	"GTK_ANCHOR_NORTH" = 1,
	"GTK_ANCHOR_NORTH_WEST" = 2,
	"GTK_ANCHOR_NORTH_EAST" = 3,
	"GTK_ANCHOR_SOUTH" = 4,
	"GTK_ANCHOR_SOUTH_WEST" = 5,
	"GTK_ANCHOR_SOUTH_EAST" = 6,
	"GTK_ANCHOR_WEST" = 7,
	"GTK_ANCHOR_EAST" = 8,
	"GTK_ANCHOR_N" = 9,
	"GTK_ANCHOR_NW" = 10,
	"GTK_ANCHOR_NE" = 11,
	"GTK_ANCHOR_S" = 12,
	"GTK_ANCHOR_SW" = 13,
	"GTK_ANCHOR_SE" = 14,
	"GTK_ANCHOR_W" = 15,
	"GTK_ANCHOR_E" = 16 )
storage.mode( .GtkAnchorType ) <- 'integer'
 

GtkJustification <- c( "left" = 0,
	"right" = 1,
	"center" = 2,
	"fill" = 3 )
storage.mode( GtkJustification ) <- 'integer'
.GtkJustification <- c( "GTK_JUSTIFY_LEFT" = 0,
	"GTK_JUSTIFY_RIGHT" = 1,
	"GTK_JUSTIFY_CENTER" = 2,
	"GTK_JUSTIFY_FILL" = 3 )
storage.mode( .GtkJustification ) <- 'integer'
 

GtkMenuDirectionType <- c( "parent" = 0,
	"child" = 1,
	"next" = 2,
	"prev" = 3 )
storage.mode( GtkMenuDirectionType ) <- 'integer'
.GtkMenuDirectionType <- c( "GTK_MENU_DIR_PARENT" = 0,
	"GTK_MENU_DIR_CHILD" = 1,
	"GTK_MENU_DIR_NEXT" = 2,
	"GTK_MENU_DIR_PREV" = 3 )
storage.mode( .GtkMenuDirectionType ) <- 'integer'
 

GdkDragProtocol <- c( "motif" = 0,
	"xdnd" = 1,
	"rootwin" = 2 )
storage.mode( GdkDragProtocol ) <- 'integer'
.GdkDragProtocol <- c( "GDK_DRAG_PROTO_MOTIF" = 0,
	"GDK_DRAG_PROTO_XDND" = 1,
	"GDK_DRAG_PROTO_ROOTWIN" = 2 )
storage.mode( .GdkDragProtocol ) <- 'integer'
 

GtkSubmenuPlacement <- c( "top-bottom" = 0,
	"left-right" = 1 )
storage.mode( GtkSubmenuPlacement ) <- 'integer'
.GtkSubmenuPlacement <- c( "GTK_TOP_BOTTOM" = 0,
	"GTK_LEFT_RIGHT" = 1 )
storage.mode( .GtkSubmenuPlacement ) <- 'integer'
 

GtkSpinButtonUpdatePolicy <- c( "always" = 0,
	"if-valid" = 1 )
storage.mode( GtkSpinButtonUpdatePolicy ) <- 'integer'
.GtkSpinButtonUpdatePolicy <- c( "GTK_UPDATE_ALWAYS" = 0,
	"GTK_UPDATE_IF_VALID" = 1 )
storage.mode( .GtkSpinButtonUpdatePolicy ) <- 'integer'
 

GtkTroughType <- c( "none" = 0,
	"start" = 1,
	"end" = 2,
	"jump" = 3 )
storage.mode( GtkTroughType ) <- 'integer'
.GtkTroughType <- c( "GTK_TROUGH_NONE" = 0,
	"GTK_TROUGH_START" = 1,
	"GTK_TROUGH_END" = 2,
	"GTK_TROUGH_JUMP" = 3 )
storage.mode( .GtkTroughType ) <- 'integer'
 

GtkSelectionMode <- c( "single" = 0,
	"browse" = 1,
	"multiple" = 2,
	"extended" = 3 )
storage.mode( GtkSelectionMode ) <- 'integer'
.GtkSelectionMode <- c( "GTK_SELECTION_SINGLE" = 0,
	"GTK_SELECTION_BROWSE" = 1,
	"GTK_SELECTION_MULTIPLE" = 2,
	"GTK_SELECTION_EXTENDED" = 3 )
storage.mode( .GtkSelectionMode ) <- 'integer'
 

GdkWindowHints <- c( "pos" = 1,
	"min-size" = 2,
	"max-size" = 4,
	"base-size" = 8,
	"aspect" = 16,
	"resize-inc" = 32 )
storage.mode( GdkWindowHints ) <- 'integer'
.GdkWindowHints <- c( "GDK_HINT_POS" = 1,
	"GDK_HINT_MIN_SIZE" = 2,
	"GDK_HINT_MAX_SIZE" = 4,
	"GDK_HINT_BASE_SIZE" = 8,
	"GDK_HINT_ASPECT" = 16,
	"GDK_HINT_RESIZE_INC" = 32 )
storage.mode( .GdkWindowHints ) <- 'integer'
 

GtkWidgetFlags <- c( "toplevel" = 1,
	"no-window" = 2,
	"realized" = 4,
	"mapped" = 8,
	"visible" = 16,
	"sensitive" = 32,
	"parent-sensitive" = 64,
	"can-focus" = 128,
	"has-focus" = 256,
	"can-default" = 512,
	"has-default" = 1024,
	"has-grab" = 2048,
	"rc-style" = 4096,
	"composite-child" = 8192,
	"no-reparent" = 16384,
	"app-paintable" = 32768 )
storage.mode( GtkWidgetFlags ) <- 'integer'
.GtkWidgetFlags <- c( "GTK_TOPLEVEL" = 1,
	"GTK_NO_WINDOW" = 2,
	"GTK_REALIZED" = 4,
	"GTK_MAPPED" = 8,
	"GTK_VISIBLE" = 16,
	"GTK_SENSITIVE" = 32,
	"GTK_PARENT_SENSITIVE" = 64,
	"GTK_CAN_FOCUS" = 128,
	"GTK_HAS_FOCUS" = 256,
	"GTK_CAN_DEFAULT" = 512,
	"GTK_HAS_DEFAULT" = 1024,
	"GTK_HAS_GRAB" = 2048,
	"GTK_RC_STYLE" = 4096,
	"GTK_COMPOSITE_CHILD" = 8192,
	"GTK_NO_REPARENT" = 16384,
	"GTK_APP_PAINTABLE" = 32768 )
storage.mode( .GtkWidgetFlags ) <- 'integer'
 

GtkArgFlags <- c( "readable" = 1,
	"writable" = 2,
	"construct" = 4,
	"construct-only" = 8,
	"child-arg" = 16,
	"mask" = 32,
	"readwrite" = 64 )
storage.mode( GtkArgFlags ) <- 'integer'
.GtkArgFlags <- c( "GTK_ARG_READABLE" = 1,
	"GTK_ARG_WRITABLE" = 2,
	"GTK_ARG_CONSTRUCT" = 4,
	"GTK_ARG_CONSTRUCT_ONLY" = 8,
	"GTK_ARG_CHILD_ARG" = 16,
	"GTK_ARG_MASK" = 32,
	"GTK_ARG_READWRITE" = 64 )
storage.mode( .GtkArgFlags ) <- 'integer'
 

GdkICAttributesType <- c( "style" = 1,
	"client-window" = 2,
	"focus-window" = 4,
	"filter-events" = 8,
	"spot-location" = 16,
	"line-spacing" = 32,
	"cursor" = 64,
	"preedit-fontset" = 128,
	"preedit-area" = 256,
	"preedit-area-needed" = 512,
	"preedit-foreground" = 1024,
	"preedit-background" = 2048,
	"preedit-pixmap" = 4096,
	"preedit-colormap" = 8192,
	"status-fontset" = 16384,
	"status-area" = 32768,
	"status-area-needed" = 65536,
	"status-foreground" = 131072,
	"status-background" = 262144,
	"status-pixmap" = 524288,
	"status-colormap" = 1048576,
	"all-req" = 2097152,
	"client-window" = 4194304,
	"preedit-area-req" = 8388608,
	"preedit-fontset" = 16777216,
	"preedit-position-req" = 33554432,
	"preedit-fontset" = 67108864,
	"status-area-req" = 134217728,
	"status-fontset" = 268435456 )
storage.mode( GdkICAttributesType ) <- 'integer'
.GdkICAttributesType <- c( "GDK_IC_STYLE" = 1,
	"GDK_IC_CLIENT_WINDOW" = 2,
	"GDK_IC_FOCUS_WINDOW" = 4,
	"GDK_IC_FILTER_EVENTS" = 8,
	"GDK_IC_SPOT_LOCATION" = 16,
	"GDK_IC_LINE_SPACING" = 32,
	"GDK_IC_CURSOR" = 64,
	"GDK_IC_PREEDIT_FONTSET" = 128,
	"GDK_IC_PREEDIT_AREA" = 256,
	"GDK_IC_PREEDIT_AREA_NEEDED" = 512,
	"GDK_IC_PREEDIT_FOREGROUND" = 1024,
	"GDK_IC_PREEDIT_BACKGROUND" = 2048,
	"GDK_IC_PREEDIT_PIXMAP" = 4096,
	"GDK_IC_PREEDIT_COLORMAP" = 8192,
	"GDK_IC_STATUS_FONTSET" = 16384,
	"GDK_IC_STATUS_AREA" = 32768,
	"GDK_IC_STATUS_AREA_NEEDED" = 65536,
	"GDK_IC_STATUS_FOREGROUND" = 131072,
	"GDK_IC_STATUS_BACKGROUND" = 262144,
	"GDK_IC_STATUS_PIXMAP" = 524288,
	"GDK_IC_STATUS_COLORMAP" = 1048576,
	"GDK_IC_ALL_REQ" = 2097152,
	"GDK_IC_CLIENT_WINDOW" = 4194304,
	"GDK_IC_PREEDIT_AREA_REQ" = 8388608,
	"GDK_IC_PREEDIT_FONTSET" = 16777216,
	"GDK_IC_PREEDIT_POSITION_REQ" = 33554432,
	"GDK_IC_PREEDIT_FONTSET" = 67108864,
	"GDK_IC_STATUS_AREA_REQ" = 134217728,
	"GDK_IC_STATUS_FONTSET" = 268435456 )
storage.mode( .GdkICAttributesType ) <- 'integer'
 

GdkWindowAttributesType <- c( "title" = 1,
	"x" = 2,
	"y" = 4,
	"cursor" = 8,
	"colormap" = 16,
	"visual" = 32,
	"wmclass" = 64,
	"noredir" = 128 )
storage.mode( GdkWindowAttributesType ) <- 'integer'
.GdkWindowAttributesType <- c( "GDK_WA_TITLE" = 1,
	"GDK_WA_X" = 2,
	"GDK_WA_Y" = 4,
	"GDK_WA_CURSOR" = 8,
	"GDK_WA_COLORMAP" = 16,
	"GDK_WA_VISUAL" = 32,
	"GDK_WA_WMCLASS" = 64,
	"GDK_WA_NOREDIR" = 128 )
storage.mode( .GdkWindowAttributesType ) <- 'integer'
 

GtkObjectFlags <- c( "destroyed" = 1,
	"floating" = 2,
	"connected" = 4,
	"constructed" = 8 )
storage.mode( GtkObjectFlags ) <- 'integer'
.GtkObjectFlags <- c( "GTK_DESTROYED" = 1,
	"GTK_FLOATING" = 2,
	"GTK_CONNECTED" = 4,
	"GTK_CONSTRUCTED" = 8 )
storage.mode( .GtkObjectFlags ) <- 'integer'
 

GtkAccelFlags <- c( "visible" = 1,
	"signal-visible" = 2,
	"locked" = 4,
	"mask" = 8 )
storage.mode( GtkAccelFlags ) <- 'integer'
.GtkAccelFlags <- c( "GTK_ACCEL_VISIBLE" = 1,
	"GTK_ACCEL_SIGNAL_VISIBLE" = 2,
	"GTK_ACCEL_LOCKED" = 4,
	"GTK_ACCEL_MASK" = 8 )
storage.mode( .GtkAccelFlags ) <- 'integer'
 

GdkIMStyle <- c( "preedit-area" = 1,
	"preedit-callbacks" = 2,
	"preedit-position" = 4,
	"preedit-nothing" = 8,
	"preedit-none" = 16,
	"preedit-mask" = 32,
	"status-area" = 64,
	"status-callbacks" = 128,
	"status-nothing" = 256,
	"status-none" = 512,
	"status-mask" = 1024 )
storage.mode( GdkIMStyle ) <- 'integer'
.GdkIMStyle <- c( "GDK_IM_PREEDIT_AREA" = 1,
	"GDK_IM_PREEDIT_CALLBACKS" = 2,
	"GDK_IM_PREEDIT_POSITION" = 4,
	"GDK_IM_PREEDIT_NOTHING" = 8,
	"GDK_IM_PREEDIT_NONE" = 16,
	"GDK_IM_PREEDIT_MASK" = 32,
	"GDK_IM_STATUS_AREA" = 64,
	"GDK_IM_STATUS_CALLBACKS" = 128,
	"GDK_IM_STATUS_NOTHING" = 256,
	"GDK_IM_STATUS_NONE" = 512,
	"GDK_IM_STATUS_MASK" = 1024 )
storage.mode( .GdkIMStyle ) <- 'integer'
 

GdkDragAction <- c( "default" = 1,
	"copy" = 2,
	"move" = 4,
	"link" = 8,
	"private" = 16,
	"ask" = 32 )
storage.mode( GdkDragAction ) <- 'integer'
.GdkDragAction <- c( "GDK_ACTION_DEFAULT" = 1,
	"GDK_ACTION_COPY" = 2,
	"GDK_ACTION_MOVE" = 4,
	"GDK_ACTION_LINK" = 8,
	"GDK_ACTION_PRIVATE" = 16,
	"GDK_ACTION_ASK" = 32 )
storage.mode( .GdkDragAction ) <- 'integer'
 

GtkFontType <- c( "bitmap" = 1,
	"scalable" = 2,
	"scalable-bitmap" = 4,
	"all" = 8 )
storage.mode( GtkFontType ) <- 'integer'
.GtkFontType <- c( "GTK_FONT_BITMAP" = 1,
	"GTK_FONT_SCALABLE" = 2,
	"GTK_FONT_SCALABLE_BITMAP" = 4,
	"GTK_FONT_ALL" = 8 )
storage.mode( .GtkFontType ) <- 'integer'
 

GdkWMFunction <- c( "all" = 1,
	"resize" = 2,
	"move" = 4,
	"minimize" = 8,
	"maximize" = 16,
	"close" = 32 )
storage.mode( GdkWMFunction ) <- 'integer'
.GdkWMFunction <- c( "GDK_FUNC_ALL" = 1,
	"GDK_FUNC_RESIZE" = 2,
	"GDK_FUNC_MOVE" = 4,
	"GDK_FUNC_MINIMIZE" = 8,
	"GDK_FUNC_MAXIMIZE" = 16,
	"GDK_FUNC_CLOSE" = 32 )
storage.mode( .GdkWMFunction ) <- 'integer'
 

GdkGCValuesMask <- c( "foreground" = 1,
	"background" = 2,
	"font" = 4,
	"function" = 8,
	"fill" = 16,
	"tile" = 32,
	"stipple" = 64,
	"clip-mask" = 128,
	"subwindow" = 256,
	"ts-x-origin" = 512,
	"ts-y-origin" = 1024,
	"clip-x-origin" = 2048,
	"clip-y-origin" = 4096,
	"exposures" = 8192,
	"line-width" = 16384,
	"line-style" = 32768,
	"cap-style" = 65536,
	"join-style" = 131072 )
storage.mode( GdkGCValuesMask ) <- 'integer'
.GdkGCValuesMask <- c( "GDK_GC_FOREGROUND" = 1,
	"GDK_GC_BACKGROUND" = 2,
	"GDK_GC_FONT" = 4,
	"GDK_GC_FUNCTION" = 8,
	"GDK_GC_FILL" = 16,
	"GDK_GC_TILE" = 32,
	"GDK_GC_STIPPLE" = 64,
	"GDK_GC_CLIP_MASK" = 128,
	"GDK_GC_SUBWINDOW" = 256,
	"GDK_GC_TS_X_ORIGIN" = 512,
	"GDK_GC_TS_Y_ORIGIN" = 1024,
	"GDK_GC_CLIP_X_ORIGIN" = 2048,
	"GDK_GC_CLIP_Y_ORIGIN" = 4096,
	"GDK_GC_EXPOSURES" = 8192,
	"GDK_GC_LINE_WIDTH" = 16384,
	"GDK_GC_LINE_STYLE" = 32768,
	"GDK_GC_CAP_STYLE" = 65536,
	"GDK_GC_JOIN_STYLE" = 131072 )
storage.mode( .GdkGCValuesMask ) <- 'integer'
 

GtkSignalRunType <- c( "first" = 1,
	"last" = 2,
	"both" = 4,
	"no-recurse" = 8,
	"action" = 16,
	"no-hooks" = 32 )
storage.mode( GtkSignalRunType ) <- 'integer'
.GtkSignalRunType <- c( "GTK_RUN_FIRST" = 1,
	"GTK_RUN_LAST" = 2,
	"GTK_RUN_BOTH" = 4,
	"GTK_RUN_NO_RECURSE" = 8,
	"GTK_RUN_ACTION" = 16,
	"GTK_RUN_NO_HOOKS" = 32 )
storage.mode( .GtkSignalRunType ) <- 'integer'
 

GtkDestDefaults <- c( "motion" = 1,
	"highlight" = 2,
	"drop" = 4,
	"all" = 8 )
storage.mode( GtkDestDefaults ) <- 'integer'
.GtkDestDefaults <- c( "GTK_DEST_DEFAULT_MOTION" = 1,
	"GTK_DEST_DEFAULT_HIGHLIGHT" = 2,
	"GTK_DEST_DEFAULT_DROP" = 4,
	"GTK_DEST_DEFAULT_ALL" = 8 )
storage.mode( .GtkDestDefaults ) <- 'integer'
 

GtkRcFlags <- c( "fg" = 1,
	"bg" = 2,
	"text" = 4,
	"base" = 8 )
storage.mode( GtkRcFlags ) <- 'integer'
.GtkRcFlags <- c( "GTK_RC_FG" = 1,
	"GTK_RC_BG" = 2,
	"GTK_RC_TEXT" = 4,
	"GTK_RC_BASE" = 8 )
storage.mode( .GtkRcFlags ) <- 'integer'
 

GdkWMDecoration <- c( "all" = 1,
	"border" = 2,
	"resizeh" = 4,
	"title" = 8,
	"menu" = 16,
	"minimize" = 32,
	"maximize" = 64 )
storage.mode( GdkWMDecoration ) <- 'integer'
.GdkWMDecoration <- c( "GDK_DECOR_ALL" = 1,
	"GDK_DECOR_BORDER" = 2,
	"GDK_DECOR_RESIZEH" = 4,
	"GDK_DECOR_TITLE" = 8,
	"GDK_DECOR_MENU" = 16,
	"GDK_DECOR_MINIMIZE" = 32,
	"GDK_DECOR_MAXIMIZE" = 64 )
storage.mode( .GdkWMDecoration ) <- 'integer'
 

GdkModifierType <- c( "shift-mask" = 1,
	"lock-mask" = 2,
	"control-mask" = 4,
	"mod1-mask" = 8,
	"mod2-mask" = 16,
	"mod3-mask" = 32,
	"mod4-mask" = 64,
	"mod5-mask" = 128,
	"button1-mask" = 256,
	"button2-mask" = 512,
	"button3-mask" = 1024,
	"button4-mask" = 2048,
	"button5-mask" = 4096,
	"release-mask" = 8192,
	"modifier-mask" = 16384 )
storage.mode( GdkModifierType ) <- 'integer'
.GdkModifierType <- c( "GDK_SHIFT_MASK" = 1,
	"GDK_LOCK_MASK" = 2,
	"GDK_CONTROL_MASK" = 4,
	"GDK_MOD1_MASK" = 8,
	"GDK_MOD2_MASK" = 16,
	"GDK_MOD3_MASK" = 32,
	"GDK_MOD4_MASK" = 64,
	"GDK_MOD5_MASK" = 128,
	"GDK_BUTTON1_MASK" = 256,
	"GDK_BUTTON2_MASK" = 512,
	"GDK_BUTTON3_MASK" = 1024,
	"GDK_BUTTON4_MASK" = 2048,
	"GDK_BUTTON5_MASK" = 4096,
	"GDK_RELEASE_MASK" = 8192,
	"GDK_MODIFIER_MASK" = 16384 )
storage.mode( .GdkModifierType ) <- 'integer'
 

GtkAttachOptions <- c( "expand" = 1,
	"shrink" = 2,
	"fill" = 4 )
storage.mode( GtkAttachOptions ) <- 'integer'
.GtkAttachOptions <- c( "GTK_EXPAND" = 1,
	"GTK_SHRINK" = 2,
	"GTK_FILL" = 4 )
storage.mode( .GtkAttachOptions ) <- 'integer'
 

GdkInputCondition <- c( "read" = 1,
	"write" = 2,
	"exception" = 4 )
storage.mode( GdkInputCondition ) <- 'integer'
.GdkInputCondition <- c( "GDK_INPUT_READ" = 1,
	"GDK_INPUT_WRITE" = 2,
	"GDK_INPUT_EXCEPTION" = 4 )
storage.mode( .GdkInputCondition ) <- 'integer'
 

GdkEventMask <- c( "exposure-mask" = 1,
	"pointer-motion-mask" = 2,
	"pointer-motion-hint-mask" = 4,
	"button-motion-mask" = 8,
	"button1-motion-mask" = 16,
	"button2-motion-mask" = 32,
	"button3-motion-mask" = 64,
	"button-press-mask" = 128,
	"button-release-mask" = 256,
	"key-press-mask" = 512,
	"key-release-mask" = 1024,
	"enter-notify-mask" = 2048,
	"leave-notify-mask" = 4096,
	"focus-change-mask" = 8192,
	"structure-mask" = 16384,
	"property-change-mask" = 32768,
	"visibility-notify-mask" = 65536,
	"proximity-in-mask" = 131072,
	"proximity-out-mask" = 262144,
	"substructure-mask" = 524288,
	"all-events-mask" = 1048576 )
storage.mode( GdkEventMask ) <- 'integer'
.GdkEventMask <- c( "GDK_EXPOSURE_MASK" = 1,
	"GDK_POINTER_MOTION_MASK" = 2,
	"GDK_POINTER_MOTION_HINT_MASK" = 4,
	"GDK_BUTTON_MOTION_MASK" = 8,
	"GDK_BUTTON1_MOTION_MASK" = 16,
	"GDK_BUTTON2_MOTION_MASK" = 32,
	"GDK_BUTTON3_MOTION_MASK" = 64,
	"GDK_BUTTON_PRESS_MASK" = 128,
	"GDK_BUTTON_RELEASE_MASK" = 256,
	"GDK_KEY_PRESS_MASK" = 512,
	"GDK_KEY_RELEASE_MASK" = 1024,
	"GDK_ENTER_NOTIFY_MASK" = 2048,
	"GDK_LEAVE_NOTIFY_MASK" = 4096,
	"GDK_FOCUS_CHANGE_MASK" = 8192,
	"GDK_STRUCTURE_MASK" = 16384,
	"GDK_PROPERTY_CHANGE_MASK" = 32768,
	"GDK_VISIBILITY_NOTIFY_MASK" = 65536,
	"GDK_PROXIMITY_IN_MASK" = 131072,
	"GDK_PROXIMITY_OUT_MASK" = 262144,
	"GDK_SUBSTRUCTURE_MASK" = 524288,
	"GDK_ALL_EVENTS_MASK" = 1048576 )
storage.mode( .GdkEventMask ) <- 'integer'
 

GtkButtonAction <- c( "ignored" = 1,
	"selects" = 2,
	"drags" = 4,
	"expands" = 8 )
storage.mode( GtkButtonAction ) <- 'integer'
.GtkButtonAction <- c( "GTK_BUTTON_IGNORED" = 1,
	"GTK_BUTTON_SELECTS" = 2,
	"GTK_BUTTON_DRAGS" = 4,
	"GTK_BUTTON_EXPANDS" = 8 )
storage.mode( .GtkButtonAction ) <- 'integer'
 

GtkTargetFlags <- c( "same-app" = 1,
	"same-widget" = 2 )
storage.mode( GtkTargetFlags ) <- 'integer'
.GtkTargetFlags <- c( "GTK_TARGET_SAME_APP" = 1,
	"GTK_TARGET_SAME_WIDGET" = 2 )
storage.mode( .GtkTargetFlags ) <- 'integer'
 

GtkDebugFlag <- c( "objects" = 1,
	"misc" = 2,
	"signals" = 4,
	"dnd" = 8 )
storage.mode( GtkDebugFlag ) <- 'integer'
.GtkDebugFlag <- c( "GTK_DEBUG_OBJECTS" = 1,
	"GTK_DEBUG_MISC" = 2,
	"GTK_DEBUG_SIGNALS" = 4,
	"GTK_DEBUG_DND" = 8 )
storage.mode( .GtkDebugFlag ) <- 'integer'
 

GtkPackerOptions <- c( "expand" = 1,
	"fill-x" = 2,
	"fill-y" = 4 )
storage.mode( GtkPackerOptions ) <- 'integer'
.GtkPackerOptions <- c( "GTK_PACK_EXPAND" = 1,
	"GTK_FILL_X" = 2,
	"GTK_FILL_Y" = 4 )
storage.mode( .GtkPackerOptions ) <- 'integer'
 

GtkCalendarDisplayOptions <- c( "show-heading" = 1,
	"show-day-names" = 2,
	"no-month-change" = 4,
	"show-week-numbers" = 8,
	"week-start-monday" = 16 )
storage.mode( GtkCalendarDisplayOptions ) <- 'integer'
.GtkCalendarDisplayOptions <- c( "GTK_CALENDAR_SHOW_HEADING" = 1,
	"GTK_CALENDAR_SHOW_DAY_NAMES" = 2,
	"GTK_CALENDAR_NO_MONTH_CHANGE" = 4,
	"GTK_CALENDAR_SHOW_WEEK_NUMBERS" = 8,
	"GTK_CALENDAR_WEEK_START_MONDAY" = 16 )
storage.mode( .GtkCalendarDisplayOptions ) <- 'integer'
 

mapGtkVisibility<-
function(val)
{
  if(inherits(val, "GtkVisibility"))
    return(val)
  .Call("S_check_GtkVisibility_value", val)
}
 

mapGdkImageType<-
function(val)
{
  if(inherits(val, "GdkImageType"))
    return(val)
  .Call("S_check_GdkImageType_value", val)
}
 

mapGtkCurveType<-
function(val)
{
  if(inherits(val, "GtkCurveType"))
    return(val)
  .Call("S_check_GtkCurveType_value", val)
}
 

mapGtkPathType<-
function(val)
{
  if(inherits(val, "GtkPathType"))
    return(val)
  .Call("S_check_GtkPathType_value", val)
}
 

mapGdkVisibilityState<-
function(val)
{
  if(inherits(val, "GdkVisibilityState"))
    return(val)
  .Call("S_check_GdkVisibilityState_value", val)
}
 

mapGtkSpinType<-
function(val)
{
  if(inherits(val, "GtkSpinType"))
    return(val)
  .Call("S_check_GtkSpinType_value", val)
}
 

mapGdkAxisUse<-
function(val)
{
  if(inherits(val, "GdkAxisUse"))
    return(val)
  .Call("S_check_GdkAxisUse_value", val)
}
 

mapGdkStatus<-
function(val)
{
  if(inherits(val, "GdkStatus"))
    return(val)
  .Call("S_check_GdkStatus_value", val)
}
 

mapGtkArrowType<-
function(val)
{
  if(inherits(val, "GtkArrowType"))
    return(val)
  .Call("S_check_GtkArrowType_value", val)
}
 

mapGtkScrollType<-
function(val)
{
  if(inherits(val, "GtkScrollType"))
    return(val)
  .Call("S_check_GtkScrollType_value", val)
}
 

mapGtkCTreeLineStyle<-
function(val)
{
  if(inherits(val, "GtkCTreeLineStyle"))
    return(val)
  .Call("S_check_GtkCTreeLineStyle_value", val)
}
 

mapGtkCornerType<-
function(val)
{
  if(inherits(val, "GtkCornerType"))
    return(val)
  .Call("S_check_GtkCornerType_value", val)
}
 

mapGdkJoinStyle<-
function(val)
{
  if(inherits(val, "GdkJoinStyle"))
    return(val)
  .Call("S_check_GdkJoinStyle_value", val)
}
 

mapGtkFontFilterType<-
function(val)
{
  if(inherits(val, "GtkFontFilterType"))
    return(val)
  .Call("S_check_GtkFontFilterType_value", val)
}
 

mapGdkSelectionType<-
function(val)
{
  if(inherits(val, "GdkSelectionType"))
    return(val)
  .Call("S_check_GdkSelectionType_value", val)
}
 

mapGtkPathPriorityType<-
function(val)
{
  if(inherits(val, "GtkPathPriorityType"))
    return(val)
  .Call("S_check_GtkPathPriorityType_value", val)
}
 

mapGdkWindowType<-
function(val)
{
  if(inherits(val, "GdkWindowType"))
    return(val)
  .Call("S_check_GdkWindowType_value", val)
}
 

mapGtkToolbarSpaceStyle<-
function(val)
{
  if(inherits(val, "GtkToolbarSpaceStyle"))
    return(val)
  .Call("S_check_GtkToolbarSpaceStyle_value", val)
}
 

mapGtkStateType<-
function(val)
{
  if(inherits(val, "GtkStateType"))
    return(val)
  .Call("S_check_GtkStateType_value", val)
}
 

mapGtkResizeMode<-
function(val)
{
  if(inherits(val, "GtkResizeMode"))
    return(val)
  .Call("S_check_GtkResizeMode_value", val)
}
 

mapGtkCellType<-
function(val)
{
  if(inherits(val, "GtkCellType"))
    return(val)
  .Call("S_check_GtkCellType_value", val)
}
 

mapGtkShadowType<-
function(val)
{
  if(inherits(val, "GtkShadowType"))
    return(val)
  .Call("S_check_GtkShadowType_value", val)
}
 

mapGtkFontMetricType<-
function(val)
{
  if(inherits(val, "GtkFontMetricType"))
    return(val)
  .Call("S_check_GtkFontMetricType_value", val)
}
 

mapGdkFilterReturn<-
function(val)
{
  if(inherits(val, "GdkFilterReturn"))
    return(val)
  .Call("S_check_GdkFilterReturn_value", val)
}
 

mapGdkFill<-
function(val)
{
  if(inherits(val, "GdkFill"))
    return(val)
  .Call("S_check_GdkFill_value", val)
}
 

mapGdkCrossingMode<-
function(val)
{
  if(inherits(val, "GdkCrossingMode"))
    return(val)
  .Call("S_check_GdkCrossingMode_value", val)
}
 

mapGtkMetricType<-
function(val)
{
  if(inherits(val, "GtkMetricType"))
    return(val)
  .Call("S_check_GtkMetricType_value", val)
}
 

mapGtkReliefStyle<-
function(val)
{
  if(inherits(val, "GtkReliefStyle"))
    return(val)
  .Call("S_check_GtkReliefStyle_value", val)
}
 

mapGdkCapStyle<-
function(val)
{
  if(inherits(val, "GdkCapStyle"))
    return(val)
  .Call("S_check_GdkCapStyle_value", val)
}
 

mapGdkFunction<-
function(val)
{
  if(inherits(val, "GdkFunction"))
    return(val)
  .Call("S_check_GdkFunction_value", val)
}
 

mapGdkNotifyType<-
function(val)
{
  if(inherits(val, "GdkNotifyType"))
    return(val)
  .Call("S_check_GdkNotifyType_value", val)
}
 

mapGtkButtonBoxStyle<-
function(val)
{
  if(inherits(val, "GtkButtonBoxStyle"))
    return(val)
  .Call("S_check_GtkButtonBoxStyle_value", val)
}
 

mapGdkCursorType<-
function(val)
{
  if(inherits(val, "GdkCursorType"))
    return(val)
  .Call("S_check_GdkCursorType_value", val)
}
 

mapGdkPropertyState<-
function(val)
{
  if(inherits(val, "GdkPropertyState"))
    return(val)
  .Call("S_check_GdkPropertyState_value", val)
}
 

mapGdkVisualType<-
function(val)
{
  if(inherits(val, "GdkVisualType"))
    return(val)
  .Call("S_check_GdkVisualType_value", val)
}
 

mapGdkRgbDither<-
function(val)
{
  if(inherits(val, "GdkRgbDither"))
    return(val)
  .Call("S_check_GdkRgbDither_value", val)
}
 

mapGtkSortType<-
function(val)
{
  if(inherits(val, "GtkSortType"))
    return(val)
  .Call("S_check_GtkSortType_value", val)
}
 

mapGtkWindowPosition<-
function(val)
{
  if(inherits(val, "GtkWindowPosition"))
    return(val)
  .Call("S_check_GtkWindowPosition_value", val)
}
 

mapGdkInputMode<-
function(val)
{
  if(inherits(val, "GdkInputMode"))
    return(val)
  .Call("S_check_GdkInputMode_value", val)
}
 

mapGdkEventType<-
function(val)
{
  if(inherits(val, "GdkEventType"))
    return(val)
  .Call("S_check_GdkEventType_value", val)
}
 

mapGtkCTreeExpansionType<-
function(val)
{
  if(inherits(val, "GtkCTreeExpansionType"))
    return(val)
  .Call("S_check_GtkCTreeExpansionType_value", val)
}
 

mapGtkProgressBarStyle<-
function(val)
{
  if(inherits(val, "GtkProgressBarStyle"))
    return(val)
  .Call("S_check_GtkProgressBarStyle_value", val)
}
 

mapGdkLineStyle<-
function(val)
{
  if(inherits(val, "GdkLineStyle"))
    return(val)
  .Call("S_check_GdkLineStyle_value", val)
}
 

mapGtkRcTokenType<-
function(val)
{
  if(inherits(val, "GtkRcTokenType"))
    return(val)
  .Call("S_check_GtkRcTokenType_value", val)
}
 

mapGtkMenuFactoryType<-
function(val)
{
  if(inherits(val, "GtkMenuFactoryType"))
    return(val)
  .Call("S_check_GtkMenuFactoryType_value", val)
}
 

mapGtkCTreePos<-
function(val)
{
  if(inherits(val, "GtkCTreePos"))
    return(val)
  .Call("S_check_GtkCTreePos_value", val)
}
 

mapGtkCListDragPos<-
function(val)
{
  if(inherits(val, "GtkCListDragPos"))
    return(val)
  .Call("S_check_GtkCListDragPos_value", val)
}
 

mapGdkExtensionMode<-
function(val)
{
  if(inherits(val, "GdkExtensionMode"))
    return(val)
  .Call("S_check_GdkExtensionMode_value", val)
}
 

mapGtkWindowType<-
function(val)
{
  if(inherits(val, "GtkWindowType"))
    return(val)
  .Call("S_check_GtkWindowType_value", val)
}
 

mapGtkMatchType<-
function(val)
{
  if(inherits(val, "GtkMatchType"))
    return(val)
  .Call("S_check_GtkMatchType_value", val)
}
 

mapGtkToolbarChildType<-
function(val)
{
  if(inherits(val, "GtkToolbarChildType"))
    return(val)
  .Call("S_check_GtkToolbarChildType_value", val)
}
 

mapGtkPositionType<-
function(val)
{
  if(inherits(val, "GtkPositionType"))
    return(val)
  .Call("S_check_GtkPositionType_value", val)
}
 

mapGtkPackType<-
function(val)
{
  if(inherits(val, "GtkPackType"))
    return(val)
  .Call("S_check_GtkPackType_value", val)
}
 

mapGdkTarget<-
function(val)
{
  if(inherits(val, "GdkTarget"))
    return(val)
  .Call("S_check_GdkTarget_value", val)
}
 

mapGtkToolbarStyle<-
function(val)
{
  if(inherits(val, "GtkToolbarStyle"))
    return(val)
  .Call("S_check_GtkToolbarStyle_value", val)
}
 

mapGtkCTreeExpanderStyle<-
function(val)
{
  if(inherits(val, "GtkCTreeExpanderStyle"))
    return(val)
  .Call("S_check_GtkCTreeExpanderStyle_value", val)
}
 

mapGdkFillRule<-
function(val)
{
  if(inherits(val, "GdkFillRule"))
    return(val)
  .Call("S_check_GdkFillRule_value", val)
}
 

mapGtkUpdateType<-
function(val)
{
  if(inherits(val, "GtkUpdateType"))
    return(val)
  .Call("S_check_GtkUpdateType_value", val)
}
 

mapGdkOverlapType<-
function(val)
{
  if(inherits(val, "GdkOverlapType"))
    return(val)
  .Call("S_check_GdkOverlapType_value", val)
}
 

mapGdkPropMode<-
function(val)
{
  if(inherits(val, "GdkPropMode"))
    return(val)
  .Call("S_check_GdkPropMode_value", val)
}
 

mapGtkPolicyType<-
function(val)
{
  if(inherits(val, "GtkPolicyType"))
    return(val)
  .Call("S_check_GtkPolicyType_value", val)
}
 

mapGdkColorContextMode<-
function(val)
{
  if(inherits(val, "GdkColorContextMode"))
    return(val)
  .Call("S_check_GdkColorContextMode_value", val)
}
 

mapGdkInputSource<-
function(val)
{
  if(inherits(val, "GdkInputSource"))
    return(val)
  .Call("S_check_GdkInputSource_value", val)
}
 

mapGtkFundamentalType<-
function(val)
{
  if(inherits(val, "GtkFundamentalType"))
    return(val)
  .Call("S_check_GtkFundamentalType_value", val)
}
 

mapGdkFontType<-
function(val)
{
  if(inherits(val, "GdkFontType"))
    return(val)
  .Call("S_check_GdkFontType_value", val)
}
 

mapGtkPreviewType<-
function(val)
{
  if(inherits(val, "GtkPreviewType"))
    return(val)
  .Call("S_check_GtkPreviewType_value", val)
}
 

mapGtkDirectionType<-
function(val)
{
  if(inherits(val, "GtkDirectionType"))
    return(val)
  .Call("S_check_GtkDirectionType_value", val)
}
 

mapGtkTreeViewMode<-
function(val)
{
  if(inherits(val, "GtkTreeViewMode"))
    return(val)
  .Call("S_check_GtkTreeViewMode_value", val)
}
 

mapGdkSubwindowMode<-
function(val)
{
  if(inherits(val, "GdkSubwindowMode"))
    return(val)
  .Call("S_check_GdkSubwindowMode_value", val)
}
 

mapGdkWindowClass<-
function(val)
{
  if(inherits(val, "GdkWindowClass"))
    return(val)
  .Call("S_check_GdkWindowClass_value", val)
}
 

mapGtkSideType<-
function(val)
{
  if(inherits(val, "GtkSideType"))
    return(val)
  .Call("S_check_GtkSideType_value", val)
}
 

mapGtkOrientation<-
function(val)
{
  if(inherits(val, "GtkOrientation"))
    return(val)
  .Call("S_check_GtkOrientation_value", val)
}
 

mapGdkByteOrder<-
function(val)
{
  if(inherits(val, "GdkByteOrder"))
    return(val)
  .Call("S_check_GdkByteOrder_value", val)
}
 

mapGtkProgressBarOrientation<-
function(val)
{
  if(inherits(val, "GtkProgressBarOrientation"))
    return(val)
  .Call("S_check_GtkProgressBarOrientation_value", val)
}
 

mapGtkSubmenuDirection<-
function(val)
{
  if(inherits(val, "GtkSubmenuDirection"))
    return(val)
  .Call("S_check_GtkSubmenuDirection_value", val)
}
 

mapGdkSelection<-
function(val)
{
  if(inherits(val, "GdkSelection"))
    return(val)
  .Call("S_check_GdkSelection_value", val)
}
 

mapGtkAnchorType<-
function(val)
{
  if(inherits(val, "GtkAnchorType"))
    return(val)
  .Call("S_check_GtkAnchorType_value", val)
}
 

mapGtkJustification<-
function(val)
{
  if(inherits(val, "GtkJustification"))
    return(val)
  .Call("S_check_GtkJustification_value", val)
}
 

mapGtkMenuDirectionType<-
function(val)
{
  if(inherits(val, "GtkMenuDirectionType"))
    return(val)
  .Call("S_check_GtkMenuDirectionType_value", val)
}
 

mapGdkDragProtocol<-
function(val)
{
  if(inherits(val, "GdkDragProtocol"))
    return(val)
  .Call("S_check_GdkDragProtocol_value", val)
}
 

mapGtkSubmenuPlacement<-
function(val)
{
  if(inherits(val, "GtkSubmenuPlacement"))
    return(val)
  .Call("S_check_GtkSubmenuPlacement_value", val)
}
 

mapGtkSpinButtonUpdatePolicy<-
function(val)
{
  if(inherits(val, "GtkSpinButtonUpdatePolicy"))
    return(val)
  .Call("S_check_GtkSpinButtonUpdatePolicy_value", val)
}
 

mapGtkTroughType<-
function(val)
{
  if(inherits(val, "GtkTroughType"))
    return(val)
  .Call("S_check_GtkTroughType_value", val)
}
 

mapGtkSelectionMode<-
function(val)
{
  if(inherits(val, "GtkSelectionMode"))
    return(val)
  .Call("S_check_GtkSelectionMode_value", val)
}
 

mapGdkWindowHints<-
function(val)
{
  if(inherits(val, "GdkWindowHints"))
    return(val)
  .Call("S_check_GdkWindowHints_value", val)
}
 

mapGtkWidgetFlags<-
function(val)
{
  if(inherits(val, "GtkWidgetFlags"))
    return(val)
  .Call("S_check_GtkWidgetFlags_value", val)
}
 

mapGtkArgFlags<-
function(val)
{
  if(inherits(val, "GtkArgFlags"))
    return(val)
  .Call("S_check_GtkArgFlags_value", val)
}
 

mapGdkICAttributesType<-
function(val)
{
  if(inherits(val, "GdkICAttributesType"))
    return(val)
  .Call("S_check_GdkICAttributesType_value", val)
}
 

mapGdkWindowAttributesType<-
function(val)
{
  if(inherits(val, "GdkWindowAttributesType"))
    return(val)
  .Call("S_check_GdkWindowAttributesType_value", val)
}
 

mapGtkObjectFlags<-
function(val)
{
  if(inherits(val, "GtkObjectFlags"))
    return(val)
  .Call("S_check_GtkObjectFlags_value", val)
}
 

mapGtkAccelFlags<-
function(val)
{
  if(inherits(val, "GtkAccelFlags"))
    return(val)
  .Call("S_check_GtkAccelFlags_value", val)
}
 

mapGdkIMStyle<-
function(val)
{
  if(inherits(val, "GdkIMStyle"))
    return(val)
  .Call("S_check_GdkIMStyle_value", val)
}
 

mapGdkDragAction<-
function(val)
{
  if(inherits(val, "GdkDragAction"))
    return(val)
  .Call("S_check_GdkDragAction_value", val)
}
 

mapGtkFontType<-
function(val)
{
  if(inherits(val, "GtkFontType"))
    return(val)
  .Call("S_check_GtkFontType_value", val)
}
 

mapGdkWMFunction<-
function(val)
{
  if(inherits(val, "GdkWMFunction"))
    return(val)
  .Call("S_check_GdkWMFunction_value", val)
}
 

mapGdkGCValuesMask<-
function(val)
{
  if(inherits(val, "GdkGCValuesMask"))
    return(val)
  .Call("S_check_GdkGCValuesMask_value", val)
}
 

mapGtkSignalRunType<-
function(val)
{
  if(inherits(val, "GtkSignalRunType"))
    return(val)
  .Call("S_check_GtkSignalRunType_value", val)
}
 

mapGtkDestDefaults<-
function(val)
{
  if(inherits(val, "GtkDestDefaults"))
    return(val)
  .Call("S_check_GtkDestDefaults_value", val)
}
 

mapGtkRcFlags<-
function(val)
{
  if(inherits(val, "GtkRcFlags"))
    return(val)
  .Call("S_check_GtkRcFlags_value", val)
}
 

mapGdkWMDecoration<-
function(val)
{
  if(inherits(val, "GdkWMDecoration"))
    return(val)
  .Call("S_check_GdkWMDecoration_value", val)
}
 

mapGdkModifierType<-
function(val)
{
  if(inherits(val, "GdkModifierType"))
    return(val)
  .Call("S_check_GdkModifierType_value", val)
}
 

mapGtkAttachOptions<-
function(val)
{
  if(inherits(val, "GtkAttachOptions"))
    return(val)
  .Call("S_check_GtkAttachOptions_value", val)
}
 

mapGdkInputCondition<-
function(val)
{
  if(inherits(val, "GdkInputCondition"))
    return(val)
  .Call("S_check_GdkInputCondition_value", val)
}
 

mapGdkEventMask<-
function(val)
{
  if(inherits(val, "GdkEventMask"))
    return(val)
  .Call("S_check_GdkEventMask_value", val)
}
 

mapGtkButtonAction<-
function(val)
{
  if(inherits(val, "GtkButtonAction"))
    return(val)
  .Call("S_check_GtkButtonAction_value", val)
}
 

mapGtkTargetFlags<-
function(val)
{
  if(inherits(val, "GtkTargetFlags"))
    return(val)
  .Call("S_check_GtkTargetFlags_value", val)
}
 

mapGtkDebugFlag<-
function(val)
{
  if(inherits(val, "GtkDebugFlag"))
    return(val)
  .Call("S_check_GtkDebugFlag_value", val)
}
 

mapGtkPackerOptions<-
function(val)
{
  if(inherits(val, "GtkPackerOptions"))
    return(val)
  .Call("S_check_GtkPackerOptions_value", val)
}
 

mapGtkCalendarDisplayOptions<-
function(val)
{
  if(inherits(val, "GtkCalendarDisplayOptions"))
    return(val)
  .Call("S_check_GtkCalendarDisplayOptions_value", val)
}
 

gtkItemFactoryAddForeign <-
function(accel.widget = NULL, full.path, accel.group, keyval, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(accel.widget, "GtkWidget")
	 full.path <- as.character(full.path)
	 gtkCheckInherits(accel.group, "GtkAccelGroup")
	 keyval <- as.integer(keyval)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_item_factory_add_foreign", accel.widget, full.path, accel.group, keyval, modifiers, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPanedSetPosition <-
function(paned = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_paned_set_position", paned, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListStartSelection <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_start_selection", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuItemNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_menu_item_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkMenuItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCheckMenuItemNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_check_menu_item_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCheckMenuItem", "GtkMenuItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCListGetSelectable <-
function(clist = NULL, row, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)

	 w <- .GtkCall("S_gtk_clist_get_selectable", clist, row, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkScreenHeight <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_screen_height", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDragSetDefaultIcon <-
function(colormap, pixmap, mask, hot.x, hot.y, .flush = TRUE)
{
	 gtkCheckInherits(colormap, "GdkColormap")
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")
	 hot.x <- as.integer(hot.x)
	 hot.y <- as.integer(hot.y)

	 w <- .GtkCall("S_gtk_drag_set_default_icon", colormap, pixmap, mask, hot.x, hot.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnResizeable <-
function(clist = NULL, column, resizeable, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 resizeable <- as.logical(resizeable)

	 w <- .GtkCall("S_gtk_clist_set_column_resizeable", clist, column, resizeable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeDrawStepBack <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_draw_step_back", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetTabLabelPacking <-
function(notebook = NULL, child = NULL, expand, fill, pack.type = GtkPackType[1], .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 expand <- as.logical(expand)
	 fill <- as.logical(fill)
	 pack.type  <- mapGtkPackType(pack.type)

	 w <- .GtkCall("S_gtk_notebook_set_tab_label_packing", notebook, child, expand, fill, pack.type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkDragStatus <-
function(context, action, time, .flush = TRUE)
{
	 gtkCheckInherits(context, "GdkDragContext")
	 action  <- mapGdkDragAction(action)
	 time <- as.integer(time)

	 w <- .GtkCall("S_gdk_drag_status", context, action, time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookNextPage <-
function(notebook = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")

	 w <- .GtkCall("S_gtk_notebook_next_page", notebook, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGetColormap <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_colormap", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkListEndSelection <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_end_selection", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressBarSetOrientation <-
function(pbar = NULL, orientation = GtkProgressBarOrientation[1], .flush = TRUE)
{
	 gtkCheckInherits(pbar, "GtkProgressBar")
	 orientation  <- mapGtkProgressBarOrientation(orientation)

	 w <- .GtkCall("S_gtk_progress_bar_set_orientation", pbar, orientation, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextSetAdjustments <-
function(text = NULL, hadj = NULL, vadj = NULL, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 gtkCheckInherits(hadj, "GtkAdjustment", nullOk = TRUE)
	 gtkCheckInherits(vadj, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_text_set_adjustments", text, hadj, vadj, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextNew <-
function(hadj = NULL, vadj = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(hadj, "GtkAdjustment", nullOk = TRUE)
	 gtkCheckInherits(vadj, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_text_new", hadj, vadj, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkText", "GtkEditable", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCalendarClearMarks <-
function(calendar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")

	 w <- .GtkCall("S_gtk_calendar_clear_marks", calendar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVScrollbarNew <-
function(adjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_vscrollbar_new", adjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVScrollbar", "GtkScrollbar", "GtkRange", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkFixedMove <-
function(fixed = NULL, widget = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(fixed, "GtkFixed")
	 gtkCheckInherits(widget, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_fixed_move", fixed, widget, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListItemNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_list_item_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkListItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkAccelGroupNew <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_accel_group_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkAccelGroup")
	 return(w)

}
 

gtkHButtonBoxSetLayoutDefault <-
function(layout = GtkButtonBoxStyle[1], .flush = TRUE)
{
	 layout  <- mapGtkButtonBoxStyle(layout)

	 w <- .GtkCall("S_gtk_hbutton_box_set_layout_default", layout, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupsActivate <-
function(object = NULL, key, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_accel_groups_activate", object, key, modifiers, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkEditableSelectRegion <-
function(editable = NULL, start, end, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")
	 start <- as.integer(start)
	 end <- as.integer(end)

	 w <- .GtkCall("S_gtk_editable_select_region", editable, start, end, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetHideAll <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_hide_all", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkAtomIntern <-
function(atom.name, only.if.exists = FALSE, .flush = TRUE)
{
	 atom.name <- as.character(atom.name)
	 only.if.exists <- as.integer(only.if.exists)

	 w <- .GtkCall("S_gdk_atom_intern", atom.name, only.if.exists, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFixedNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_fixed_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkFixed", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gdkScreenWidth <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_screen_width", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkScaleSetDigits <-
function(scale = NULL, digits, .flush = TRUE)
{
	 gtkCheckInherits(scale, "GtkScale")
	 digits <- as.integer(digits)

	 w <- .GtkCall("S_gtk_scale_set_digits", scale, digits, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_list_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkList", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkToolbarSetTooltips <-
function(toolbar = NULL, enable, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 enable <- as.logical(enable)

	 w <- .GtkCall("S_gtk_toolbar_set_tooltips", toolbar, enable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLayoutGetVadjustment <-
function(layout = NULL, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")

	 w <- .GtkCall("S_gtk_layout_get_vadjustment", layout, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuShellAppend <-
function(menu.shell = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_shell_append", menu.shell, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupAdd <-
function(group, key, modifiers, flags, object = NULL, signal, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)
	 flags  <- mapGtkAccelFlags(flags)
	 gtkCheckInherits(object, "GtkObject")
	 signal <- as.character(signal)

	 w <- .GtkCall("S_gtk_accel_group_add", group, key, modifiers, flags, object, signal, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGetEvents <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_events", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkNotebookSetMenuLabel <-
function(notebook = NULL, child = NULL, menu.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(menu.label, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_set_menu_label", notebook, child, menu.label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkItemFactoryPathFromWidget <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_item_factory_path_from_widget", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListSetColumnWidth <-
function(clist = NULL, column, width, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 width <- as.integer(width)

	 w <- .GtkCall("S_gtk_clist_set_column_width", clist, column, width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuShellActivateItem <-
function(menu.shell = NULL, menu.item = NULL, force.deactivate, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")
	 gtkCheckInherits(menu.item, "GtkWidget")
	 force.deactivate <- as.logical(force.deactivate)

	 w <- .GtkCall("S_gtk_menu_shell_activate_item", menu.shell, menu.item, force.deactivate, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFrameNew <-
function(label = NULL, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_frame_new", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkFrame", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkProgressSetAdjustment <-
function(progress = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_progress_set_adjustment", progress, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookRemovePage <-
function(notebook = NULL, page.num, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 page.num <- as.integer(page.num)

	 w <- .GtkCall("S_gtk_notebook_remove_page", notebook, page.num, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSignalHandlersDestroy <-
function(object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_gtk_signal_handlers_destroy", object, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_notebook_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkNotebook", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkOptionMenuRemoveMenu <-
function(option.menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(option.menu, "GtkOptionMenu")

	 w <- .GtkCall("S_gtk_option_menu_remove_menu", option.menu, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListColumnTitlesActive <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_column_titles_active", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTableResize <-
function(table = NULL, rows, cols, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 rows <- as.integer(rows)
	 cols <- as.integer(cols)

	 w <- .GtkCall("S_gtk_table_resize", table, rows, cols, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupAttach <-
function(group, object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_gtk_accel_group_attach", group, object, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextSetEditable <-
function(text = NULL, editable, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 editable <- as.logical(editable)

	 w <- .GtkCall("S_gtk_text_set_editable", text, editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPackerSetSpacing <-
function(packer = NULL, spacing, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_packer_set_spacing", packer, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuShellInsert <-
function(menu.shell = NULL, child = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")
	 gtkCheckInherits(child, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_menu_shell_insert", menu.shell, child, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSortRecursive <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_sort_recursive", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLayoutNew <-
function(hadjustment = NULL, vadjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(hadjustment, "GtkAdjustment", nullOk = TRUE)
	 gtkCheckInherits(vadjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_layout_new", hadjustment, vadjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkLayout", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkMenuItemActivate <-
function(menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")

	 w <- .GtkCall("S_gtk_menu_item_activate", menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableDeleteText <-
function(editable = NULL, start, end, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")
	 start <- as.integer(start)
	 end <- as.integer(end)

	 w <- .GtkCall("S_gtk_editable_delete_text", editable, start, end, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookPageNum <-
function(notebook = NULL, page = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(page, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_page_num", notebook, page, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressSetTextAlignment <-
function(progress = NULL, x.align, y.align, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 x.align <- as.numeric(x.align)
	 y.align <- as.numeric(y.align)

	 w <- .GtkCall("S_gtk_progress_set_text_alignment", progress, x.align, y.align, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListInsert <-
function(clist = NULL, row, text, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_clist_insert", clist, row, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuItemConfigure <-
function(menu.item = NULL, show.toggle.indicator, show.submenu.indicator, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")
	 show.toggle.indicator <- as.logical(show.toggle.indicator)
	 show.submenu.indicator <- as.logical(show.submenu.indicator)

	 w <- .GtkCall("S_gtk_menu_item_configure", menu.item, show.toggle.indicator, show.submenu.indicator, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetDigits <-
function(spin.button = NULL, digits, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 digits <- as.integer(digits)

	 w <- .GtkCall("S_gtk_spin_button_set_digits", spin.button, digits, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTableNew <-
function(rows, columns, homogenous, show = TRUE, .flush = TRUE)
{
	 rows <- as.integer(rows)
	 columns <- as.integer(columns)
	 homogenous <- as.logical(homogenous)

	 w <- .GtkCall("S_gtk_table_new", rows, columns, homogenous, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTable", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkToggleButtonToggled <-
function(toggle.button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(toggle.button, "GtkToggleButton")

	 w <- .GtkCall("S_gtk_toggle_button_toggled", toggle.button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetNumeric <-
function(spin.button = NULL, numeric, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 numeric <- as.logical(numeric)

	 w <- .GtkCall("S_gtk_spin_button_set_numeric", spin.button, numeric, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonEnter <-
function(button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")

	 w <- .GtkCall("S_gtk_button_enter", button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkFontLoad <-
function(name, .flush = TRUE)
{
	 name <- as.character(name)

	 w <- .GtkCall("S_gdk_font_load", name, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressBarUpdate <-
function(progress.bar = NULL, percentage, .flush = TRUE)
{
	 gtkCheckInherits(progress.bar, "GtkProgressBar")
	 percentage <- as.numeric(percentage)

	 w <- .GtkCall("S_gtk_progress_bar_update", progress.bar, percentage, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSelectionOwnerSet <-
function(widget = NULL, selection, time, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(selection, "GdkAtom")
	 time <- as.integer(time)

	 w <- .GtkCall("S_gtk_selection_owner_set", widget, selection, time, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetPopStyle <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_widget_pop_style", PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSetIndent <-
function(ctree = NULL, indent, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 indent <- as.integer(indent)

	 w <- .GtkCall("S_gtk_ctree_set_indent", ctree, indent, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPackerAddDefaults <-
function(packer = NULL, child = NULL, side = GtkSideType[1], anchor = GtkAnchorType[1], options, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 gtkCheckInherits(child, "GtkWidget")
	 side  <- mapGtkSideType(side)
	 anchor  <- mapGtkAnchorType(anchor)
	 options  <- mapGtkPackerOptions(options)

	 w <- .GtkCall("S_gtk_packer_add_defaults", packer, child, side, anchor, options, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuShellDeactivate <-
function(menu.shell = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")

	 w <- .GtkCall("S_gtk_menu_shell_deactivate", menu.shell, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntrySetEditable <-
function(entry = NULL, editable, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 editable <- as.logical(editable)

	 w <- .GtkCall("S_gtk_entry_set_editable", entry, editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCurveReset <-
function(curve = NULL, .flush = TRUE)
{
	 gtkCheckInherits(curve, "GtkCurve")

	 w <- .GtkCall("S_gtk_curve_reset", curve, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetIsAncestor <-
function(widget = NULL, ancestor = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(ancestor, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_is_ancestor", widget, ancestor, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkHandleBoxSetShadowType <-
function(handle.box = NULL, type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(handle.box, "GtkHandleBox")
	 type  <- mapGtkShadowType(type)

	 w <- .GtkCall("S_gtk_handle_box_set_shadow_type", handle.box, type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkStatusbarGetContextId <-
function(statusbar = NULL, context.description, .flush = TRUE)
{
	 gtkCheckInherits(statusbar, "GtkStatusbar")
	 context.description <- as.character(context.description)

	 w <- .GtkCall("S_gtk_statusbar_get_context_id", statusbar, context.description, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkButtonGetRelief <-
function(button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")

	 w <- .GtkCall("S_gtk_button_get_relief", button, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkButtonBoxSetSpacing <-
function(widget = NULL, spacing, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkButtonBox")
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_button_box_set_spacing", widget, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetForeground <-
function(ctree = NULL, node, color, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 gtkCheckInherits(color, "GdkColor")

	 w <- .GtkCall("S_gtk_ctree_node_set_foreground", ctree, node, color, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetUnmap <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_unmap", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkItemFactoryParseRc <-
function(file.name, .flush = TRUE)
{
	 file.name <- as.character(file.name)

	 w <- .GtkCall("S_gtk_item_factory_parse_rc", file.name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeMoveto <-
function(ctree = NULL, node, column, row.align, col.align, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)
	 row.align <- as.numeric(row.align)
	 col.align <- as.numeric(col.align)

	 w <- .GtkCall("S_gtk_ctree_node_moveto", ctree, node, column, row.align, col.align, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListUnselectChild <-
function(list = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_list_unselect_child", list, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetCellStyle <-
function(ctree = NULL, node, column, style, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_ctree_node_set_cell_style", ctree, node, column, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetText <-
function(clist = NULL, row, column, text, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_clist_set_text", clist, row, column, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkOptionMenuNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_option_menu_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkOptionMenu", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gdkScreenWidthMm <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_screen_width_mm", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetSetExtensionEvents <-
function(widget = NULL, events = GdkExtensionMode[1], .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 events  <- mapGdkExtensionMode(events)

	 w <- .GtkCall("S_gtk_widget_set_extension_events", widget, events, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRulerDrawTicks <-
function(ruler = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ruler, "GtkRuler")

	 w <- .GtkCall("S_gtk_ruler_draw_ticks", ruler, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookGetMenuLabel <-
function(notebook = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_get_menu_label", notebook, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkListClearItems <-
function(list = NULL, start, end, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 start <- as.integer(start)
	 end <- as.integer(end)

	 w <- .GtkCall("S_gtk_list_clear_items", list, start, end, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuPopdown <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_popdown", menu, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeItemNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_tree_item_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTreeItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetResetRcStyles <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_reset_rc_styles", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToggleButtonNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_toggle_button_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkToggleButton", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkMenuShellSelectItem <-
function(menu.shell = NULL, menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")
	 gtkCheckInherits(menu.item, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_shell_select_item", menu.shell, menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeExpandRecursive <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_expand_recursive", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetShapeCombineMask <-
function(widget = NULL, mask, ofs.x, ofs.y, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(mask, "GdkBitmap")
	 ofs.x <- as.integer(ofs.x)
	 ofs.y <- as.integer(ofs.y)

	 w <- .GtkCall("S_gtk_widget_shape_combine_mask", widget, mask, ofs.x, ofs.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkScreenHeightMm <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gdk_screen_height_mm", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gTKCHECKTYPE <-
function(object = NULL, type, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 type <- as.integer(type)

	 w <- .GtkCall("S_GTK_CHECK_TYPE", object, type, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkEditableGetChars <-
function(editable = NULL, start, end, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")
	 start <- as.integer(start)
	 end <- as.integer(end)

	 w <- .GtkCall("S_gtk_editable_get_chars", editable, start, end, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTipsQueryNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_tips_query_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTipsQuery", "GtkLabel", "GtkMisc", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetPopup <-
function(widget = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_widget_popup", widget, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonGetValueAsFloat <-
function(spin.button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")

	 w <- .GtkCall("S_gtk_spin_button_get_value_as_float", spin.button, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressGetCurrentPercentage <-
function(progress = NULL, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")

	 w <- .GtkCall("S_gtk_progress_get_current_percentage", progress, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkPreviewSetExpand <-
function(preview = NULL, expand, .flush = TRUE)
{
	 gtkCheckInherits(preview, "GtkPreview")
	 expand <- as.integer(expand)

	 w <- .GtkCall("S_gtk_preview_set_expand", preview, expand, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetEvents <-
function(widget = NULL, events, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 events  <- mapGdkEventMask(events)

	 w <- .GtkCall("S_gtk_widget_set_events", widget, events, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarSetSpaceStyle <-
function(toolbar = NULL, space.style = GtkToolbarSpaceStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 space.style  <- mapGtkToolbarSpaceStyle(space.style)

	 w <- .GtkCall("S_gtk_toolbar_set_space_style", toolbar, space.style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTableSetRowSpacings <-
function(table = NULL, spacing, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_table_set_row_spacings", table, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetDestroy <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_destroy", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDragSetIconWidget <-
function(context, widget = NULL, hot.x, hot.y, .flush = TRUE)
{
	 gtkCheckInherits(context, "GdkDragContext")
	 gtkCheckInherits(widget, "GtkWidget")
	 hot.x <- as.integer(hot.x)
	 hot.y <- as.integer(hot.y)

	 w <- .GtkCall("S_gtk_drag_set_icon_widget", context, widget, hot.x, hot.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVRulerNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_vruler_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVRuler", "GtkRuler", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkListUnselectItem <-
function(list = NULL, item, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 item <- as.integer(item)

	 w <- .GtkCall("S_gtk_list_unselect_item", list, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTooltipsSetTip <-
function(tooltips = NULL, widget = NULL, tip.text = NULL, tip.private = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tooltips, "GtkTooltips")
	 gtkCheckInherits(widget, "GtkWidget")
	 tip.text <- as.character(tip.text)
	 tip.private <- as.character(tip.private)

	 w <- .GtkCall("S_gtk_tooltips_set_tip", tooltips, widget, tip.text, tip.private, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkViewportSetVadjustment <-
function(viewport = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(viewport, "GtkViewport")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_viewport_set_vadjustment", viewport, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetShowAll <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_show_all", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPanedAdd2 <-
function(paned = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_paned_add2", paned, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPanedAdd1 <-
function(paned = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_paned_add1", paned, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDragSetIconPixmap <-
function(context, colormap, pixmap, mask, hot.x, hot.y, .flush = TRUE)
{
	 gtkCheckInherits(context, "GdkDragContext")
	 gtkCheckInherits(colormap, "GdkColormap")
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")
	 hot.x <- as.integer(hot.x)
	 hot.y <- as.integer(hot.y)

	 w <- .GtkCall("S_gtk_drag_set_icon_pixmap", context, colormap, pixmap, mask, hot.x, hot.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetQueueClear <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_queue_clear", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDragUnhighlight <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_drag_unhighlight", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkInputRemove <-
function(tag, .flush = TRUE)
{
	 tag <- as.integer(tag)

	 w <- .GtkCall("S_gtk_input_remove", tag, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetForeground <-
function(clist = NULL, row, color, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 gtkCheckInherits(color, "GdkColor")

	 w <- .GtkCall("S_gtk_clist_set_foreground", clist, row, color, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuItemSetSubmenu <-
function(menu.item = NULL, submenu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")
	 gtkCheckInherits(submenu, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_item_set_submenu", menu.item, submenu, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeGetCellType <-
function(ctree = NULL, node, column, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_ctree_node_get_cell_type", ctree, node, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuBarAppend <-
function(menu.bar = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.bar, "GtkMenuBar")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_bar_append", menu.bar, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListSelectAll <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_select_all", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTipsQueryStartQuery <-
function(tips.query = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tips.query, "GtkTipsQuery")

	 w <- .GtkCall("S_gtk_tips_query_start_query", tips.query, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDragGetSourceWidget <-
function(context, .flush = TRUE)
{
	 gtkCheckInherits(context, "GdkDragContext")

	 w <- .GtkCall("S_gtk_drag_get_source_widget", context, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListColumnsAutosize <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_columns_autosize", clist, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkAccelLabelSetAccelWidget <-
function(accel.label = NULL, accel.widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(accel.label, "GtkAccelLabel")
	 gtkCheckInherits(accel.widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_accel_label_set_accel_widget", accel.label, accel.widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkColorSelectionNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_color_selection_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkColorSelection", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWindowSetWmclass <-
function(window = NULL, wmclass.class, wmclass.name, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 wmclass.class <- as.character(wmclass.class)
	 wmclass.name <- as.character(wmclass.name)

	 w <- .GtkCall("S_gtk_window_set_wmclass", window, wmclass.class, wmclass.name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGetDefaultColormap <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_widget_get_default_colormap", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFontSelectionDialogSetPreviewText <-
function(fsd = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(fsd, "GtkFontSelectionDialog")
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_font_selection_dialog_set_preview_text", fsd, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeAppend <-
function(tree = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_tree_append", tree, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonBoxGetSpacing <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkButtonBox")

	 w <- .GtkCall("S_gtk_button_box_get_spacing", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkComboSetUseArrows <-
function(combo = NULL, val, .flush = TRUE)
{
	 gtkCheckInherits(combo, "GtkCombo")
	 val <- as.logical(val)

	 w <- .GtkCall("S_gtk_combo_set_use_arrows", combo, val, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPanedSetGutterSize <-
function(paned = NULL, size, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 size <- as.integer(size)

	 w <- .GtkCall("S_gtk_paned_set_gutter_size", paned, size, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelLabelNew <-
function(string, show = TRUE, .flush = TRUE)
{
	 string <- as.character(string)

	 w <- .GtkCall("S_gtk_accel_label_new", string, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkAccelLabel", "GtkLabel", "GtkMisc", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWindowSetPolicy <-
function(window = NULL, allow.shrink, allow.grow, auto.shrink, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 allow.shrink <- as.logical(allow.shrink)
	 allow.grow <- as.logical(allow.grow)
	 auto.shrink <- as.logical(auto.shrink)

	 w <- .GtkCall("S_gtk_window_set_policy", window, allow.shrink, allow.grow, auto.shrink, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeUnselectChild <-
function(tree = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_tree_unselect_child", tree, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeInsert <-
function(tree = NULL, child = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 gtkCheckInherits(child, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_tree_insert", tree, child, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetSelectionMode <-
function(clist = NULL, mode = GtkSelectionMode[1], .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 mode  <- mapGtkSelectionMode(mode)

	 w <- .GtkCall("S_gtk_clist_set_selection_mode", clist, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowNew <-
function(hadjustment = NULL, vadjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(hadjustment, "GtkAdjustment", nullOk = TRUE)
	 gtkCheckInherits(vadjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_scrolled_window_new", hadjustment, vadjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkScrolledWindow", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkArrowNew <-
function(arrow.type = GtkArrowType[1], shadow.type = GtkShadowType[1], show = TRUE, .flush = TRUE)
{
	 arrow.type  <- mapGtkArrowType(arrow.type)
	 shadow.type  <- mapGtkShadowType(shadow.type)

	 w <- .GtkCall("S_gtk_arrow_new", arrow.type, shadow.type, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkArrow", "GtkMisc", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetAddAccelerator <-
function(widget = NULL, signal.name, group, key, modifiers, flags, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 signal.name <- as.character(signal.name)
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)
	 flags  <- mapGtkAccelFlags(flags)

	 w <- .GtkCall("S_gtk_widget_add_accelerator", widget, signal.name, group, key, modifiers, flags, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetHideOnDelete <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_hide_on_delete", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetReparent <-
function(widget = NULL, new.parent = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(new.parent, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_reparent", widget, new.parent, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowAddWithViewport <-
function(scrolled.window = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_scrolled_window_add_with_viewport", scrolled.window, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupUnlockEntry <-
function(group, key, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_accel_group_unlock_entry", group, key, modifiers, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressSetValue <-
function(progress = NULL, value, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 value <- as.numeric(value)

	 w <- .GtkCall("S_gtk_progress_set_value", progress, value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCurveSetGamma <-
function(curve = NULL, gamma, .flush = TRUE)
{
	 gtkCheckInherits(curve, "GtkCurve")
	 gamma <- as.numeric(gamma)

	 w <- .GtkCall("S_gtk_curve_set_gamma", curve, gamma, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeIsVisible <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_node_is_visible", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkLabelSetText <-
function(label = NULL, str, .flush = TRUE)
{
	 gtkCheckInherits(label, "GtkLabel")
	 str <- as.character(str)

	 w <- .GtkCall("S_gtk_label_set_text", label, str, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCurveNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_curve_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCurve", "GtkDrawingArea", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWindowSetDefaultSize <-
function(window = NULL, width, height, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_window_set_default_size", window, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTooltipsEnable <-
function(tooltips = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tooltips, "GtkTooltips")

	 w <- .GtkCall("S_gtk_tooltips_enable", tooltips, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookAppendPageMenu <-
function(notebook = NULL, child = NULL, tab.label = NULL, menu.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")
	 gtkCheckInherits(menu.label, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_append_page_menu", notebook, child, tab.label, menu.label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListClear <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_clear", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHButtonBoxSetSpacingDefault <-
function(spacing, .flush = TRUE)
{
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_hbutton_box_set_spacing_default", spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuInsert <-
function(menu = NULL, child = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 gtkCheckInherits(child, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_menu_insert", menu, child, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarSetStyle <-
function(toolbar = NULL, style = GtkToolbarStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 style  <- mapGtkToolbarStyle(style)

	 w <- .GtkCall("S_gtk_toolbar_set_style", toolbar, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkObjectDestroy <-
function(object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_gtk_object_destroy", object, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListUndoSelection <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_undo_selection", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonLeave <-
function(button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")

	 w <- .GtkCall("S_gtk_button_leave", button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableSetEditable <-
function(editable = NULL, is.editable, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")
	 is.editable <- as.logical(is.editable)

	 w <- .GtkCall("S_gtk_editable_set_editable", editable, is.editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkItemToggle <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GtkItem")

	 w <- .GtkCall("S_gtk_item_toggle", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkArrowSet <-
function(arrow = NULL, arrow.type = GtkArrowType[1], shadow.type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(arrow, "GtkArrow")
	 arrow.type  <- mapGtkArrowType(arrow.type)
	 shadow.type  <- mapGtkShadowType(shadow.type)

	 w <- .GtkCall("S_gtk_arrow_set", arrow, arrow.type, shadow.type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFrameSetShadowType <-
function(frame = NULL, type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(frame, "GtkFrame")
	 type  <- mapGtkShadowType(type)

	 w <- .GtkCall("S_gtk_frame_set_shadow_type", frame, type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeSetUpdatePolicy <-
function(range = NULL, policy = GtkUpdateType[1], .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")
	 policy  <- mapGtkUpdateType(policy)

	 w <- .GtkCall("S_gtk_range_set_update_policy", range, policy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupRemove <-
function(group, key, modifiers, object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_gtk_accel_group_remove", group, key, modifiers, object, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLayoutFreeze <-
function(layout = NULL, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")

	 w <- .GtkCall("S_gtk_layout_freeze", layout, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntrySelectRegion <-
function(entry = NULL, start, end, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 start <- as.integer(start)
	 end <- as.integer(end)

	 w <- .GtkCall("S_gtk_entry_select_region", entry, start, end, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHButtonBoxGetLayoutDefault <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_hbutton_box_get_layout_default", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkListEndDragSelection <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_end_drag_selection", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFileSelectionNew <-
function(title, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)

	 w <- .GtkCall("S_gtk_file_selection_new", title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkFileSelection", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkTableSetColSpacings <-
function(table = NULL, spacing, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_table_set_col_spacings", table, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextSetWordWrap <-
function(text = NULL, word.wrap, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 word.wrap <- as.integer(word.wrap)

	 w <- .GtkCall("S_gtk_text_set_word_wrap", text, word.wrap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkQuitAddDestroy <-
function(main.level, object = NULL, .flush = TRUE)
{
	 main.level <- as.integer(main.level)
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_gtk_quit_add_destroy", main.level, object, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowGetVadjustment <-
function(scrolled.window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")

	 w <- .GtkCall("S_gtk_scrolled_window_get_vadjustment", scrolled.window, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFileSelectionComplete <-
function(filesel = NULL, pattern, .flush = TRUE)
{
	 gtkCheckInherits(filesel, "GtkFileSelection")
	 pattern <- as.character(pattern)

	 w <- .GtkCall("S_gtk_file_selection_complete", filesel, pattern, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressBarNewWithAdjustment <-
function(adjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_progress_bar_new_with_adjustment", adjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkProgressBar", "GtkProgress", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetSetStyle <-
function(widget = NULL, style, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_widget_set_style", widget, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowSetPlacement <-
function(scrolled.window = NULL, window.placement = GtkCornerType[1], .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")
	 window.placement  <- mapGtkCornerType(window.placement)

	 w <- .GtkCall("S_gtk_scrolled_window_set_placement", scrolled.window, window.placement, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextGetLength <-
function(text = NULL, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")

	 w <- .GtkCall("S_gtk_text_get_length", text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkPlugNew <-
function(socket.id, show = TRUE, .flush = TRUE)
{
	 socket.id <- as.integer(socket.id)

	 w <- .GtkCall("S_gtk_plug_new", socket.id, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkPlug", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWindowActivateFocus <-
function(window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")

	 w <- .GtkCall("S_gtk_window_activate_focus", window, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkAlignmentSet <-
function(alignment = NULL, xalign, yalign, xscale, yscale, .flush = TRUE)
{
	 gtkCheckInherits(alignment, "GtkAlignment")
	 xalign <- as.numeric(xalign)
	 yalign <- as.numeric(yalign)
	 xscale <- as.numeric(xscale)
	 yscale <- as.numeric(yscale)

	 w <- .GtkCall("S_gtk_alignment_set", alignment, xalign, yalign, xscale, yscale, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetAppPaintable <-
function(widget = NULL, app.paintable, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 app.paintable <- as.logical(app.paintable)

	 w <- .GtkCall("S_gtk_widget_set_app_paintable", widget, app.paintable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewSetInstallCmap <-
function(install.cmap, .flush = TRUE)
{
	 install.cmap <- as.integer(install.cmap)

	 w <- .GtkCall("S_gtk_preview_set_install_cmap", install.cmap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gTKOBJECTTYPE <-
function(object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_GTK_OBJECT_TYPE", object, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkViewportSetShadowType <-
function(viewport = NULL, type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(viewport, "GtkViewport")
	 type  <- mapGtkShadowType(type)

	 w <- .GtkCall("S_gtk_viewport_set_shadow_type", viewport, type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkComboNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_combo_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCombo", "GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCheckButtonNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_check_button_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCheckButton", "GtkToggleButton", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkEntryAppendText <-
function(entry = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_entry_append_text", entry, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRulerSetMetric <-
function(ruler = NULL, metric = GtkMetricType[1], .flush = TRUE)
{
	 gtkCheckInherits(ruler, "GtkRuler")
	 metric  <- mapGtkMetricType(metric)

	 w <- .GtkCall("S_gtk_ruler_set_metric", ruler, metric, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkDrawLine <-
function(drawable, gc, x1, y1, x2, y2, .flush = TRUE)
{
	 gtkCheckInherits(drawable, "GdkDrawable")
	 gtkCheckInherits(gc, "GdkGC")
	 x1 <- as.integer(x1)
	 y1 <- as.integer(y1)
	 x2 <- as.integer(x2)
	 y2 <- as.integer(y2)

	 w <- .GtkCall("S_gdk_draw_line", drawable, gc, x1, y1, x2, y2, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntrySetVisibility <-
function(entry = NULL, visible, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 visible <- as.logical(visible)

	 w <- .GtkCall("S_gtk_entry_set_visibility", entry, visible, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetTabLabel <-
function(notebook = NULL, child = NULL, tab.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_set_tab_label", notebook, child, tab.label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCurveSetRange <-
function(curve = NULL, min.x, max.x, min.y, max.y, .flush = TRUE)
{
	 gtkCheckInherits(curve, "GtkCurve")
	 min.x <- as.numeric(min.x)
	 max.x <- as.numeric(max.x)
	 min.y <- as.numeric(min.y)
	 max.y <- as.numeric(max.y)

	 w <- .GtkCall("S_gtk_curve_set_range", curve, min.x, max.x, min.y, max.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerFocus <-
function(container = NULL, direction = GtkDirectionType[1], .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 direction  <- mapGtkDirectionType(direction)

	 w <- .GtkCall("S_gtk_container_focus", container, direction, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMiscSetAlignment <-
function(misc = NULL, xalign, yalign, .flush = TRUE)
{
	 gtkCheckInherits(misc, "GtkMisc")
	 xalign <- as.numeric(xalign)
	 yalign <- as.numeric(yalign)

	 w <- .GtkCall("S_gtk_misc_set_alignment", misc, xalign, yalign, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHScrollbarNew <-
function(adjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_hscrollbar_new", adjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHScrollbar", "GtkScrollbar", "GtkRange", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkMenuItemNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_menu_item_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkMenuItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetDrawDefault <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_draw_default", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnAutoResize <-
function(clist = NULL, column, auto.resize, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 auto.resize <- as.logical(auto.resize)

	 w <- .GtkCall("S_gtk_clist_set_column_auto_resize", clist, column, auto.resize, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuBarNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_menu_bar_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkMenuBar", "GtkMenuShell", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkToolbarNew <-
function(orientation = GtkOrientation[1], style = GtkToolbarStyle[1], show = TRUE, .flush = TRUE)
{
	 orientation  <- mapGtkOrientation(orientation)
	 style  <- mapGtkToolbarStyle(style)

	 w <- .GtkCall("S_gtk_toolbar_new", orientation, style, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkToolbar", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkContainerChildCompositeName <-
function(container = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_container_child_composite_name", container, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWindowSetPosition <-
function(window = NULL, position = GtkWindowPosition[1], .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 position  <- mapGtkWindowPosition(position)

	 w <- .GtkCall("S_gtk_window_set_position", window, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowSetVadjustment <-
function(scrolled.window = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_scrolled_window_set_vadjustment", scrolled.window, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVButtonBoxSetSpacingDefault <-
function(spacing, .flush = TRUE)
{
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_vbutton_box_set_spacing_default", spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeToggleExpansion <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_toggle_expansion", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableGetPosition <-
function(editable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")

	 w <- .GtkCall("S_gtk_editable_get_position", editable, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFileSelectionGetFilename <-
function(filesel = NULL, .flush = TRUE)
{
	 gtkCheckInherits(filesel, "GtkFileSelection")

	 w <- .GtkCall("S_gtk_file_selection_get_filename", filesel, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkToggleButtonGetActive <-
function(toggle.button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(toggle.button, "GtkToggleButton")

	 w <- .GtkCall("S_gtk_toggle_button_get_active", toggle.button, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkAdjustmentValueChanged <-
function(adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_adjustment_value_changed", adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSetExpanderStyle <-
function(ctree = NULL, style = GtkCTreeExpanderStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 style  <- mapGtkCTreeExpanderStyle(style)

	 w <- .GtkCall("S_gtk_ctree_set_expander_style", ctree, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeDrawStepForw <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_draw_step_forw", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarSelectDay <-
function(calendar = NULL, day, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")
	 day <- as.integer(day)

	 w <- .GtkCall("S_gtk_calendar_select_day", calendar, day, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookGetTabLabel <-
function(notebook = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_get_tab_label", notebook, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCTreeCollapseRecursive <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_collapse_recursive", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDragSourceSetIcon <-
function(widget = NULL, colormap, pixmap, mask, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(colormap, "GdkColormap")
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")

	 w <- .GtkCall("S_gtk_drag_source_set_icon", widget, colormap, pixmap, mask, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTooltipsForceWindow <-
function(tooltips = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tooltips, "GtkTooltips")

	 w <- .GtkCall("S_gtk_tooltips_force_window", tooltips, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToggleButtonNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_toggle_button_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkToggleButton", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkItemFactoryNew <-
function(container.type, path, group, .flush = TRUE)
{
	 container.type <- as.integer(container.type)
	 path <- as.character(path)
	 gtkCheckInherits(group, "GtkAccelGroup")

	 w <- .GtkCall("S_gtk_item_factory_new", container.type, path, group, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkItemFactory", "GtkObject")
	 return(w)

}
 

gtkItemFactoryGetWidget <-
function(ifactory = NULL, path, .flush = TRUE)
{
	 gtkCheckInherits(ifactory, "GtkItemFactory")
	 path <- as.character(path)

	 w <- .GtkCall("S_gtk_item_factory_get_widget", ifactory, path, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListRowMove <-
function(clist = NULL, source.row, dest.row, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 source.row <- as.integer(source.row)
	 dest.row <- as.integer(dest.row)

	 w <- .GtkCall("S_gtk_clist_row_move", clist, source.row, dest.row, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonPressed <-
function(button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")

	 w <- .GtkCall("S_gtk_button_pressed", button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLabelParseUline <-
function(label = NULL, string, .flush = TRUE)
{
	 gtkCheckInherits(label, "GtkLabel")
	 string <- as.character(string)

	 w <- .GtkCall("S_gtk_label_parse_uline", label, string, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkInputDialogNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_input_dialog_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkInputDialog", "GtkDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkMenuSetActive <-
function(menu = NULL, index, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 index <- as.integer(index)

	 w <- .GtkCall("S_gtk_menu_set_active", menu, index, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarPrependWidget <-
function(Toolbar = NULL, Widget = NULL, tooltip.text, tooltip.private.text, .flush = TRUE)
{
	 gtkCheckInherits(Toolbar, "GtkToolbar")
	 gtkCheckInherits(Widget, "GtkWidget")
	 tooltip.text <- as.character(tooltip.text)
	 tooltip.private.text <- as.character(tooltip.private.text)

	 w <- .GtkCall("S_gtk_toolbar_prepend_widget", Toolbar, Widget, tooltip.text, tooltip.private.text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFixedPut <-
function(fixed = NULL, widget = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(fixed, "GtkFixed")
	 gtkCheckInherits(widget, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_fixed_put", fixed, widget, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVPanedNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_vpaned_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVPaned", "GtkPaned", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetGetExtensionEvents <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_extension_events", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTooltipsSetDelay <-
function(tooltips = NULL, delay, .flush = TRUE)
{
	 gtkCheckInherits(tooltips, "GtkTooltips")
	 delay <- as.integer(delay)

	 w <- .GtkCall("S_gtk_tooltips_set_delay", tooltips, delay, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableDeleteSelection <-
function(editable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")

	 w <- .GtkCall("S_gtk_editable_delete_selection", editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressBarSetBarStyle <-
function(pbar = NULL, style = GtkProgressBarStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(pbar, "GtkProgressBar")
	 style  <- mapGtkProgressBarStyle(style)

	 w <- .GtkCall("S_gtk_progress_bar_set_bar_style", pbar, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSelectRecursive <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_select_recursive", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarMarkDay <-
function(calendar = NULL, day, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")
	 day <- as.integer(day)

	 w <- .GtkCall("S_gtk_calendar_mark_day", calendar, day, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkItemFactoryGetWidgetByAction <-
function(ifactory = NULL, action, .flush = TRUE)
{
	 gtkCheckInherits(ifactory, "GtkItemFactory")
	 action <- as.integer(action)

	 w <- .GtkCall("S_gtk_item_factory_get_widget_by_action", ifactory, action, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkViewportGetHadjustment <-
function(viewport = NULL, .flush = TRUE)
{
	 gtkCheckInherits(viewport, "GtkViewport")

	 w <- .GtkCall("S_gtk_viewport_get_hadjustment", viewport, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuEnsureUlineAccelGroup <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_ensure_uline_accel_group", menu, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkListSelectItem <-
function(list = NULL, item, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 item <- as.integer(item)

	 w <- .GtkCall("S_gtk_list_select_item", list, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupUnlock <-
function(group, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")

	 w <- .GtkCall("S_gtk_accel_group_unlock", group, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetRemoveAccelerator <-
function(widget = NULL, group, key, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_widget_remove_accelerator", widget, group, key, modifiers, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuSetAccelGroup <-
function(menu = NULL, group, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 gtkCheckInherits(group, "GtkAccelGroup")

	 w <- .GtkCall("S_gtk_menu_set_accel_group", menu, group, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_button_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkGrabAdd <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_grab_add", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerSetFocusChild <-
function(container = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 gtkCheckInherits(child, "GtkWidget", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_container_set_focus_child", container, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuReposition <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_reposition", menu, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerSetFocusHadjustment <-
function(container = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_container_set_focus_hadjustment", container, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeGetCellStyle <-
function(ctree = NULL, node, column, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_ctree_node_get_cell_style", ctree, node, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuGetAccelGroup <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_get_accel_group", menu, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuItemSetPlacement <-
function(menu.item = NULL, placement = GtkSubmenuPlacement[1], .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")
	 placement  <- mapGtkSubmenuPlacement(placement)

	 w <- .GtkCall("S_gtk_menu_item_set_placement", menu.item, placement, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTipsQueryStopQuery <-
function(tips.query = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tips.query, "GtkTipsQuery")

	 w <- .GtkCall("S_gtk_tips_query_stop_query", tips.query, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListScrollHorizontal <-
function(list = NULL, scroll.type = GtkScrollType[1], pos, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 scroll.type  <- mapGtkScrollType(scroll.type)
	 pos <- as.numeric(pos)

	 w <- .GtkCall("S_gtk_list_scroll_horizontal", list, scroll.type, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowSetTitle <-
function(window = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 title <- as.character(title)

	 w <- .GtkCall("S_gtk_window_set_title", window, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookAppendPage <-
function(notebook = NULL, child = NULL, tab.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_append_page", notebook, child, tab.label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkDrawArc <-
function(drawable, gc, filled, x, y, width, height, angle1, angle2, .flush = TRUE)
{
	 gtkCheckInherits(drawable, "GdkDrawable")
	 gtkCheckInherits(gc, "GdkGC")
	 filled <- as.integer(filled)
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)
	 angle1 <- as.integer(angle1)
	 angle2 <- as.integer(angle2)

	 w <- .GtkCall("S_gdk_draw_arc", drawable, gc, filled, x, y, width, height, angle1, angle2, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNew <-
function(columns, tree.column, show = TRUE, .flush = TRUE)
{
	 columns <- as.integer(columns)
	 tree.column <- as.integer(tree.column)

	 w <- .GtkCall("S_gtk_ctree_new", columns, tree.column, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCTree", "GtkCList", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCTreeSetNodeInfo <-
function(ctree = NULL, node, text, spacing, pixmap.closed, mask.closed, pixmap.opened, mask.opened, is.leaf, expanded, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 text <- as.character(text)
	 spacing <- as.integer(spacing)
	 gtkCheckInherits(pixmap.closed, "GdkPixmap")
	 gtkCheckInherits(mask.closed, "GdkBitmap")
	 gtkCheckInherits(pixmap.opened, "GdkPixmap")
	 gtkCheckInherits(mask.opened, "GdkBitmap")
	 is.leaf <- as.logical(is.leaf)
	 expanded <- as.logical(expanded)

	 w <- .GtkCall("S_gtk_ctree_set_node_info", ctree, node, text, spacing, pixmap.closed, mask.closed, pixmap.opened, mask.opened, is.leaf, expanded, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowSetPolicy <-
function(scrolled.window = NULL, hscrollbar.policy = GtkPolicyType[1], vscrollbar.policy = GtkPolicyType[1], .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")
	 hscrollbar.policy  <- mapGtkPolicyType(hscrollbar.policy)
	 vscrollbar.policy  <- mapGtkPolicyType(vscrollbar.policy)

	 w <- .GtkCall("S_gtk_scrolled_window_set_policy", scrolled.window, hscrollbar.policy, vscrollbar.policy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookPrependPageMenu <-
function(notebook = NULL, child = NULL, tab.label = NULL, menu.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")
	 gtkCheckInherits(menu.label, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_prepend_page_menu", notebook, child, tab.label, menu.label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnJustification <-
function(clist = NULL, column, justification = GtkJustification[1], .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 justification  <- mapGtkJustification(justification)

	 w <- .GtkCall("S_gtk_clist_set_column_justification", clist, column, justification, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScaleSetDrawValue <-
function(scale = NULL, draw.value, .flush = TRUE)
{
	 gtkCheckInherits(scale, "GtkScale")
	 draw.value <- as.logical(draw.value)

	 w <- .GtkCall("S_gtk_scale_set_draw_value", scale, draw.value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionDialogGetFont <-
function(fsd = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fsd, "GtkFontSelectionDialog")

	 w <- .GtkCall("S_gtk_font_selection_dialog_get_font", fsd, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkNotebookPrependPage <-
function(notebook = NULL, child = NULL, tab.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")

	 w <- .GtkCall("S_gtk_notebook_prepend_page", notebook, child, tab.label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkDrawRectangle <-
function(drawable, gc, filled, x, y, width, height, .flush = TRUE)
{
	 gtkCheckInherits(drawable, "GdkDrawable")
	 gtkCheckInherits(gc, "GdkGC")
	 filled <- as.integer(filled)
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gdk_draw_rectangle", drawable, gc, filled, x, y, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetAutoSort <-
function(clist = NULL, auto.sort, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 auto.sort <- as.logical(auto.sort)

	 w <- .GtkCall("S_gtk_clist_set_auto_sort", clist, auto.sort, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListSetSelectionMode <-
function(list = NULL, mode = GtkSelectionMode[1], .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 mode  <- mapGtkSelectionMode(mode)

	 w <- .GtkCall("S_gtk_list_set_selection_mode", list, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNewWithTitles <-
function(columns, tree.column, titles, show = TRUE, .flush = TRUE)
{
	 columns <- as.integer(columns)
	 tree.column <- as.integer(tree.column)
	 titles <- as.character(titles)

	 w <- .GtkCall("S_gtk_ctree_new_with_titles", columns, tree.column, titles, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCTree", "GtkCList", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gdkDrawPoint <-
function(drawable, gc, x, y, .flush = TRUE)
{
	 gtkCheckInherits(drawable, "GdkDrawable")
	 gtkCheckInherits(gc, "GdkGC")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gdk_draw_point", drawable, gc, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxPackEndDefaults <-
function(box = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_box_pack_end_defaults", box, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkStatusbarNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_statusbar_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkStatusbar", "GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetPushColormap <-
function(cmap, .flush = TRUE)
{
	 gtkCheckInherits(cmap, "GdkColormap")

	 w <- .GtkCall("S_gtk_widget_push_colormap", cmap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTipsQuerySetLabels <-
function(tips.query = NULL, label.inactive, label.no.tip, .flush = TRUE)
{
	 gtkCheckInherits(tips.query, "GtkTipsQuery")
	 label.inactive <- as.character(label.inactive)
	 label.no.tip <- as.character(label.no.tip)

	 w <- .GtkCall("S_gtk_tips_query_set_labels", tips.query, label.inactive, label.no.tip, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeGetRowStyle <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_node_get_row_style", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkOptionMenuSetHistory <-
function(option.menu = NULL, index, .flush = TRUE)
{
	 gtkCheckInherits(option.menu, "GtkOptionMenu")
	 index <- as.integer(index)

	 w <- .GtkCall("S_gtk_option_menu_set_history", option.menu, index, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookInsertPage <-
function(notebook = NULL, child = NULL, tab.label = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_notebook_insert_page", notebook, child, tab.label, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuPopup <-
function(menu = NULL, parent.shell = NULL, parent.item = NULL, func = NULL, data = NULL, button, activate.time, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 gtkCheckInherits(parent.shell, "GtkWidget")
	 gtkCheckInherits(parent.item, "GtkWidget")
	 gtkCheckInherits(func, "GtkMenuPositionFunc", nullOk = TRUE)
	 gtkCheckInherits(data, "gpointer", nullOk = TRUE)
	 gtkCheckInherits(button, "guint")
	 gtkCheckInherits(activate.time, "guint32")

	 w <- .GtkCall("S_gtk_menu_popup", menu, parent.shell, parent.item, func, data, button, activate.time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVButtonBoxGetLayoutDefault <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_vbutton_box_get_layout_default", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFontSelectionGetPreviewText <-
function(fontsel = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fontsel, "GtkFontSelection")

	 w <- .GtkCall("S_gtk_font_selection_get_preview_text", fontsel, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCTreeCollapseToDepth <-
function(ctree = NULL, node, depth, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 depth <- as.integer(depth)

	 w <- .GtkCall("S_gtk_ctree_collapse_to_depth", ctree, node, depth, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCheckMenuItemNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_check_menu_item_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCheckMenuItem", "GtkMenuItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkBoxSetChildPacking <-
function(box = NULL, child = NULL, expand, fill, padding, pack.type = GtkPackType[1], .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 gtkCheckInherits(child, "GtkWidget")
	 expand <- as.logical(expand)
	 fill <- as.logical(fill)
	 padding <- as.integer(padding)
	 pack.type  <- mapGtkPackType(pack.type)

	 w <- .GtkCall("S_gtk_box_set_child_packing", box, child, expand, fill, padding, pack.type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListSelectChild <-
function(list = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_list_select_child", list, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeToggleExpansionRecursive <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_toggle_expansion_recursive", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAdjustmentNew <-
function(value, lower, upper, step.increment, page.increment, page.size, .flush = TRUE)
{
	 value <- as.numeric(value)
	 lower <- as.numeric(lower)
	 upper <- as.numeric(upper)
	 step.increment <- as.numeric(step.increment)
	 page.increment <- as.numeric(page.increment)
	 page.size <- as.numeric(page.size)

	 w <- .GtkCall("S_gtk_adjustment_new", value, lower, upper, step.increment, page.increment, page.size, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkAdjustment", "GtkData", "GtkObject")
	 return(w)

}
 

gtkToolbarSetButtonRelief <-
function(toolbar = NULL, relief = GtkReliefStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 relief  <- mapGtkReliefStyle(relief)

	 w <- .GtkCall("S_gtk_toolbar_set_button_relief", toolbar, relief, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFileSelectionSetFilename <-
function(filesel = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(filesel, "GtkFileSelection")
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gtk_file_selection_set_filename", filesel, filename, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkViewportGetVadjustment <-
function(viewport = NULL, .flush = TRUE)
{
	 gtkCheckInherits(viewport, "GtkViewport")

	 w <- .GtkCall("S_gtk_viewport_get_vadjustment", viewport, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkSocketSteal <-
function(socket = NULL, window.id, .flush = TRUE)
{
	 gtkCheckInherits(socket, "GtkSocket")
	 window.id <- as.integer(window.id)

	 w <- .GtkCall("S_gtk_socket_steal", socket, window.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeItemDeselect <-
function(tree.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree.item, "GtkTreeItem")

	 w <- .GtkCall("S_gtk_tree_item_deselect", tree.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuDetach <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_detach", menu, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuSetTearoffState <-
function(menu = NULL, torn.off, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 torn.off <- as.logical(torn.off)

	 w <- .GtkCall("S_gtk_menu_set_tearoff_state", menu, torn.off, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetSelectable <-
function(clist = NULL, row, selectable, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 selectable <- as.logical(selectable)

	 w <- .GtkCall("S_gtk_clist_set_selectable", clist, row, selectable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetTabBorder <-
function(notebook = NULL, border.width, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 border.width <- as.integer(border.width)

	 w <- .GtkCall("S_gtk_notebook_set_tab_border", notebook, border.width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToggleButtonSetMode <-
function(toggle.button = NULL, draw.indicator, .flush = TRUE)
{
	 gtkCheckInherits(toggle.button, "GtkToggleButton")
	 draw.indicator <- as.logical(draw.indicator)

	 w <- .GtkCall("S_gtk_toggle_button_set_mode", toggle.button, draw.indicator, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetEnsureStyle <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_ensure_style", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookPopupEnable <-
function(notebook = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")

	 w <- .GtkCall("S_gtk_notebook_popup_enable", notebook, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetRowStyle <-
function(clist = NULL, row, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)

	 w <- .GtkCall("S_gtk_clist_get_row_style", clist, row, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressBarNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_progress_bar_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkProgressBar", "GtkProgress", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkTreePrepend <-
function(tree = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_tree_prepend", tree, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSelectionAddTarget <-
function(widget = NULL, selection, target, info, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(selection, "GdkAtom")
	 gtkCheckInherits(target, "GdkAtom")
	 info <- as.integer(info)

	 w <- .GtkCall("S_gtk_selection_add_target", widget, selection, target, info, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_font_selection_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkFontSelection", "GtkNotebook", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkTextSetLineWrap <-
function(text = NULL, line.wrap, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 line.wrap <- as.integer(line.wrap)

	 w <- .GtkCall("S_gtk_text_set_line_wrap", text, line.wrap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookPopupDisable <-
function(notebook = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")

	 w <- .GtkCall("S_gtk_notebook_popup_disable", notebook, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTableSetColSpacing <-
function(table = NULL, column, spacing, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 column <- as.integer(column)
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_table_set_col_spacing", table, column, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSelect <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_select", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListUndoSelection <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_undo_selection", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSetShowStub <-
function(ctree = NULL, show.stub, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 show.stub <- as.logical(show.stub)

	 w <- .GtkCall("S_gtk_ctree_set_show_stub", ctree, show.stub, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarAppendWidget <-
function(Toolbar = NULL, Widget = NULL, tooltip.text, tooltip.private.text, .flush = TRUE)
{
	 gtkCheckInherits(Toolbar, "GtkToolbar")
	 gtkCheckInherits(Widget, "GtkWidget")
	 tooltip.text <- as.character(tooltip.text)
	 tooltip.private.text <- as.character(tooltip.private.text)

	 w <- .GtkCall("S_gtk_toolbar_append_widget", Toolbar, Widget, tooltip.text, tooltip.private.text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewNew <-
function(type = GtkPreviewType[1], show = TRUE, .flush = TRUE)
{
	 type  <- mapGtkPreviewType(type)

	 w <- .GtkCall("S_gtk_preview_new", type, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkPreview", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkToolbarInsertWidget <-
function(toolbar = NULL, widget = NULL, tooltip.text, tooltip.private.text, position, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 gtkCheckInherits(widget, "GtkWidget")
	 tooltip.text <- as.character(tooltip.text)
	 tooltip.private.text <- as.character(tooltip.private.text)
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_toolbar_insert_widget", toolbar, widget, tooltip.text, tooltip.private.text, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRcParse <-
function(file, .flush = TRUE)
{
	 file <- as.character(file)

	 w <- .GtkCall("S_gtk_rc_parse", file, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressGetValue <-
function(progress = NULL, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")

	 w <- .GtkCall("S_gtk_progress_get_value", progress, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkListToggleRow <-
function(list = NULL, item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 gtkCheckInherits(item, "GtkWidget")

	 w <- .GtkCall("S_gtk_list_toggle_row", list, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkGrabGetCurrent <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_grab_get_current", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkItemFactoryFromWidget <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_item_factory_from_widget", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDragSetIconDefault <-
function(context, .flush = TRUE)
{
	 gtkCheckInherits(context, "GdkDragContext")

	 w <- .GtkCall("S_gtk_drag_set_icon_default", context, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextBackwardDelete <-
function(text = NULL, nchars, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 nchars <- as.integer(nchars)

	 w <- .GtkCall("S_gtk_text_backward_delete", text, nchars, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPixmapNew <-
function(pixmap, mask = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_pixmap_new", pixmap, mask, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkPixmap", "GtkMisc", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCTreeUnselect <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_unselect", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowGetHadjustment <-
function(scrolled.window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")

	 w <- .GtkCall("S_gtk_scrolled_window_get_hadjustment", scrolled.window, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressGetPercentageFromValue <-
function(progress = NULL, value, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 value <- as.numeric(value)

	 w <- .GtkCall("S_gtk_progress_get_percentage_from_value", progress, value, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkPackerReorderChild <-
function(packer = NULL, widget = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 gtkCheckInherits(widget, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_packer_reorder_child", packer, widget, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuReorderChild <-
function(menu = NULL, child = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 gtkCheckInherits(child, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_menu_reorder_child", menu, child, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRulerSetRange <-
function(ruler = NULL, lower, upper, position, max.size, .flush = TRUE)
{
	 gtkCheckInherits(ruler, "GtkRuler")
	 lower <- as.numeric(lower)
	 upper <- as.numeric(upper)
	 position <- as.numeric(position)
	 max.size <- as.numeric(max.size)

	 w <- .GtkCall("S_gtk_ruler_set_range", ruler, lower, upper, position, max.size, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetButtonActions <-
function(clist = NULL, button, button.actions, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 button <- as.integer(button)
	 button.actions <- as.integer(button.actions)

	 w <- .GtkCall("S_gtk_clist_set_button_actions", clist, button, button.actions, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkOptionMenuGetMenu <-
function(option.menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(option.menu, "GtkOptionMenu")

	 w <- .GtkCall("S_gtk_option_menu_get_menu", option.menu, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetSetRcStyle <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_set_rc_style", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListItemDeselect <-
function(list.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list.item, "GtkListItem")

	 w <- .GtkCall("S_gtk_list_item_deselect", list.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeDrawTrough <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_draw_trough", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetReorderable <-
function(clist = NULL, reorderable, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 reorderable <- as.logical(reorderable)

	 w <- .GtkCall("S_gtk_clist_set_reorderable", clist, reorderable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListFreeze <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_freeze", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListRowIsVisible <-
function(clist = NULL, row, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)

	 w <- .GtkCall("S_gtk_clist_row_is_visible", clist, row, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkContainerSetResizeMode <-
function(container = NULL, resize.mode = GtkResizeMode[1], .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 resize.mode  <- mapGtkResizeMode(resize.mode)

	 w <- .GtkCall("S_gtk_container_set_resize_mode", container, resize.mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetPopColormap <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_widget_pop_colormap", PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelLabelRefetch <-
function(accel.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(accel.label, "GtkAccelLabel")

	 w <- .GtkCall("S_gtk_accel_label_refetch", accel.label, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTearoffMenuItemNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_tearoff_menu_item_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTearoffMenuItem", "GtkMenuItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkSpinButtonGetValueAsInt <-
function(spin.button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")

	 w <- .GtkCall("S_gtk_spin_button_get_value_as_int", spin.button, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkSpinButtonSetValue <-
function(spin.button = NULL, value, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 value <- as.numeric(value)

	 w <- .GtkCall("S_gtk_spin_button_set_value", spin.button, value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetScrollAdjustments <-
function(widget = NULL, hadjustment = NULL, vadjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(hadjustment, "GtkAdjustment")
	 gtkCheckInherits(vadjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_widget_set_scroll_adjustments", widget, hadjustment, vadjustment, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDragHighlight <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_drag_highlight", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuShellPrepend <-
function(menu.shell = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_shell_prepend", menu.shell, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntrySetPosition <-
function(entry = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_entry_set_position", entry, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTooltipsSetColors <-
function(tooltips = NULL, background, foreground, .flush = TRUE)
{
	 gtkCheckInherits(tooltips, "GtkTooltips")
	 gtkCheckInherits(background, "GdkColor")
	 gtkCheckInherits(foreground, "GdkColor")

	 w <- .GtkCall("S_gtk_tooltips_set_colors", tooltips, background, foreground, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetQueueClearArea <-
function(widget = NULL, x, y, width, height, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_widget_queue_clear_area", widget, x, y, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_calendar_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCalendar", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkEntrySetMaxLength <-
function(entry = NULL, max, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 max <- as.integer(max)

	 w <- .GtkCall("S_gtk_entry_set_max_length", entry, max, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScrolledWindowSetHadjustment <-
function(scrolled.window = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scrolled.window, "GtkScrolledWindow")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_scrolled_window_set_hadjustment", scrolled.window, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewSize <-
function(preview = NULL, width, height, .flush = TRUE)
{
	 gtkCheckInherits(preview, "GtkPreview")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_preview_size", preview, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeIsViewable <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_is_viewable", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListSetColumnMinWidth <-
function(clist = NULL, column, min.width, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 min.width <- as.integer(min.width)

	 w <- .GtkCall("S_gtk_clist_set_column_min_width", clist, column, min.width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetAdjustment <-
function(spin.button = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_spin_button_set_adjustment", spin.button, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSelectRow <-
function(clist = NULL, row, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_select_row", clist, row, column, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRcParseString <-
function(rc.string, .flush = TRUE)
{
	 rc.string <- as.character(rc.string)

	 w <- .GtkCall("S_gtk_rc_parse_string", rc.string, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetRowStyle <-
function(clist = NULL, row, style, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_clist_set_row_style", clist, row, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetShowTabs <-
function(notebook = NULL, show.tabs, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 show.tabs <- as.logical(show.tabs)

	 w <- .GtkCall("S_gtk_notebook_set_show_tabs", notebook, show.tabs, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListUnselectAll <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_unselect_all", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTableAttachDefaults <-
function(table = NULL, child = NULL, left.attach, right.attach, top.attach, bottom.attach, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 gtkCheckInherits(child, "GtkWidget")
	 left.attach <- as.integer(left.attach)
	 right.attach <- as.integer(right.attach)
	 top.attach <- as.integer(top.attach)
	 bottom.attach <- as.integer(bottom.attach)

	 w <- .GtkCall("S_gtk_table_attach_defaults", table, child, left.attach, right.attach, top.attach, bottom.attach, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarSelectMonth <-
function(calendar = NULL, month, year, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")
	 month <- as.integer(month)
	 year <- as.integer(year)

	 w <- .GtkCall("S_gtk_calendar_select_month", calendar, month, year, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkHButtonBoxNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_hbutton_box_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHButtonBox", "GtkButtonBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkListScrollVertical <-
function(list = NULL, scroll.type = GtkScrollType[1], pos, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 scroll.type  <- mapGtkScrollType(scroll.type)
	 pos <- as.numeric(pos)

	 w <- .GtkCall("S_gtk_list_scroll_vertical", list, scroll.type, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGetStyle <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_style", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkVButtonBoxGetSpacingDefault <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_vbutton_box_get_spacing_default", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetGetParentWindow <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_parent_window", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetRemoveAccelerators <-
function(widget = NULL, signal.name, visible.only, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 signal.name <- as.character(signal.name)
	 visible.only <- as.logical(visible.only)

	 w <- .GtkCall("S_gtk_widget_remove_accelerators", widget, signal.name, visible.only, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxPackEnd <-
function(box = NULL, child = NULL, expand = TRUE, fill = TRUE, padding = 0, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 gtkCheckInherits(child, "GtkWidget")
	 expand <- as.logical(expand)
	 fill <- as.logical(fill)
	 padding <- as.integer(padding)

	 w <- .GtkCall("S_gtk_box_pack_end", box, child, expand, fill, padding, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScaleDrawValue <-
function(scale = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scale, "GtkScale")

	 w <- .GtkCall("S_gtk_scale_draw_value", scale, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetColumnWidget <-
function(clist = NULL, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_get_column_widget", clist, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetLockAccelerators <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_lock_accelerators", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarSetSpaceSize <-
function(toolbar = NULL, space.size, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 space.size <- as.integer(space.size)

	 w <- .GtkCall("S_gtk_toolbar_set_space_size", toolbar, space.size, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTooltipsDisable <-
function(tooltips = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tooltips, "GtkTooltips")

	 w <- .GtkCall("S_gtk_tooltips_disable", tooltips, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListChildPosition <-
function(list = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_list_child_position", list, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkToolbarGetButtonRelief <-
function(toolbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")

	 w <- .GtkCall("S_gtk_toolbar_get_button_relief", toolbar, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListUnselectRow <-
function(clist = NULL, row, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_unselect_row", clist, row, column, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewPut <-
function(preview = NULL, window, gc, srcx, srcy, destx, desty, width, height, .flush = TRUE)
{
	 gtkCheckInherits(preview, "GtkPreview")
	 gtkCheckInherits(window, "GdkWindow")
	 gtkCheckInherits(gc, "GdkGC")
	 srcx <- as.integer(srcx)
	 srcy <- as.integer(srcy)
	 destx <- as.integer(destx)
	 desty <- as.integer(desty)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_preview_put", preview, window, gc, srcx, srcy, destx, desty, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAlignmentNew <-
function(xalign, yalign, xscale, yscale, show = TRUE, .flush = TRUE)
{
	 xalign <- as.numeric(xalign)
	 yalign <- as.numeric(yalign)
	 xscale <- as.numeric(xscale)
	 yscale <- as.numeric(yscale)

	 w <- .GtkCall("S_gtk_alignment_new", xalign, yalign, xscale, yscale, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkAlignment", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetSetDefaultStyle <-
function(style, .flush = TRUE)
{
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_widget_set_default_style", style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupLockEntry <-
function(group, key, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_accel_group_lock_entry", group, key, modifiers, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFileSelectionHideFileopButtons <-
function(filesel = NULL, .flush = TRUE)
{
	 gtkCheckInherits(filesel, "GtkFileSelection")

	 w <- .GtkCall("S_gtk_file_selection_hide_fileop_buttons", filesel, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarInsertSpace <-
function(toolbar = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_toolbar_insert_space", toolbar, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetTabPos <-
function(notebook = NULL, pos = GtkPositionType[1], .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 pos  <- mapGtkPositionType(pos)

	 w <- .GtkCall("S_gtk_notebook_set_tab_pos", notebook, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTypeFromName <-
function(name, .flush = TRUE)
{
	 name <- as.character(name)

	 w <- .GtkCall("S_gtk_type_from_name", name, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkItemDeselect <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GtkItem")

	 w <- .GtkCall("S_gtk_item_deselect", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDragDestSetProxy <-
function(widget = NULL, proxy.window, protocol = GdkDragProtocol[1], use.coordinates, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(proxy.window, "GdkWindow")
	 protocol  <- mapGdkDragProtocol(protocol)
	 use.coordinates <- as.logical(use.coordinates)

	 w <- .GtkCall("S_gtk_drag_dest_set_proxy", widget, proxy.window, protocol, use.coordinates, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetAddEvents <-
function(widget = NULL, events, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 events  <- mapGdkEventMask(events)

	 w <- .GtkCall("S_gtk_widget_add_events", widget, events, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetMap <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_map", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSelectionRemoveAll <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_selection_remove_all", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntrySetText <-
function(entry = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_entry_set_text", entry, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLabelNew <-
function(str, show = TRUE, .flush = TRUE)
{
	 str <- as.character(str)

	 w <- .GtkCall("S_gtk_label_new", str, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkLabel", "GtkMisc", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkHandleBoxNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_handle_box_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHandleBox", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkItemSelect <-
function(item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(item, "GtkItem")

	 w <- .GtkCall("S_gtk_item_select", item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDialogNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_dialog_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkSpinButtonUpdate <-
function(spin.button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")

	 w <- .GtkCall("S_gtk_spin_button_update", spin.button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerAdd <-
function(container = NULL, widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_container_add", container, widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRcLoadImage <-
function(colormap = NULL, transparent.color = NULL, filename, .flush = TRUE)
{
	 gtkCheckInherits(colormap, "GdkColormap", nullOk = TRUE)
	 gtkCheckInherits(transparent.color, "GdkColor", nullOk = TRUE)
	 filename <- as.character(filename)

	 w <- .GtkCall("S_gtk_rc_load_image", colormap, transparent.color, filename, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkHSeparatorNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_hseparator_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHSeparator", "GtkSeparator", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCTreeRealSelectRecursive <-
function(ctree = NULL, node, state, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 state <- as.integer(state)

	 w <- .GtkCall("S_gtk_ctree_real_select_recursive", ctree, node, state, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gTKOBJECTFLAGS <-
function(object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_GTK_OBJECT_FLAGS", object, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkStatusbarRemove <-
function(statusbar = NULL, context.id, message.id, .flush = TRUE)
{
	 gtkCheckInherits(statusbar, "GtkStatusbar")
	 context.id <- as.integer(context.id)
	 message.id <- as.integer(message.id)

	 w <- .GtkCall("S_gtk_statusbar_remove", statusbar, context.id, message.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnMaxWidth <-
function(clist = NULL, column, max.width, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 max.width <- as.integer(max.width)

	 w <- .GtkCall("S_gtk_clist_set_column_max_width", clist, column, max.width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListColumnTitlesPassive <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_column_titles_passive", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeExpand <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_expand", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetSensitive <-
function(widget = NULL, sensitive, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 sensitive <- as.logical(sensitive)

	 w <- .GtkCall("S_gtk_widget_set_sensitive", widget, sensitive, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScaleGetValueWidth <-
function(scale = NULL, .flush = TRUE)
{
	 gtkCheckInherits(scale, "GtkScale")

	 w <- .GtkCall("S_gtk_scale_get_value_width", scale, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkQuitRemove <-
function(quit.id, .flush = TRUE)
{
	 quit.id <- as.integer(quit.id)

	 w <- .GtkCall("S_gtk_quit_remove", quit.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeLast <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_last", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkVButtonBoxSetLayoutDefault <-
function(layout = GtkButtonBoxStyle[1], .flush = TRUE)
{
	 layout  <- mapGtkButtonBoxStyle(layout)

	 w <- .GtkCall("S_gtk_vbutton_box_set_layout_default", layout, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkGammaCurveNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_gamma_curve_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkGammaCurve", "GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetShowNow <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_show_now", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkComboSetCaseSensitive <-
function(combo = NULL, val, .flush = TRUE)
{
	 gtkCheckInherits(combo, "GtkCombo")
	 val <- as.logical(val)

	 w <- .GtkCall("S_gtk_combo_set_case_sensitive", combo, val, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressBarSetDiscreteBlocks <-
function(pbar = NULL, blocks, .flush = TRUE)
{
	 gtkCheckInherits(pbar, "GtkProgressBar")
	 blocks <- as.integer(blocks)

	 w <- .GtkCall("S_gtk_progress_bar_set_discrete_blocks", pbar, blocks, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarPrependSpace <-
function(toolbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")

	 w <- .GtkCall("S_gtk_toolbar_prepend_space", toolbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListExtendSelection <-
function(list = NULL, scroll.type = GtkScrollType[1], position, auto.start, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")
	 scroll.type  <- mapGtkScrollType(scroll.type)
	 position <- as.numeric(position)
	 auto.start <- as.logical(auto.start)

	 w <- .GtkCall("S_gtk_list_extend_selection", list, scroll.type, position, auto.start, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxSetHomogeneous <-
function(box = NULL, homogenous, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 homogenous <- as.logical(homogenous)

	 w <- .GtkCall("S_gtk_box_set_homogeneous", box, homogenous, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_button_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gdkCursorNew <-
function(cursor.type = GdkCursorType[1], .flush = TRUE)
{
	 cursor.type  <- mapGdkCursorType(cursor.type)

	 w <- .GtkCall("S_gdk_cursor_new", cursor.type, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkCursor")
	 return(w)

}
 

gTKOBJECTSETFLAGS <-
function(object = NULL, flags, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 flags  <- mapGtkWidgetFlags(flags)

	 w <- .GtkCall("S_GTK_OBJECT_SET_FLAGS", object, flags, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLayoutSetVadjustment <-
function(layout = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_layout_set_vadjustment", layout, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetQueueDraw <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_queue_draw", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeItemSetSubtree <-
function(tree.item = NULL, subtree = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree.item, "GtkTreeItem")
	 gtkCheckInherits(subtree, "GtkWidget")

	 w <- .GtkCall("S_gtk_tree_item_set_subtree", tree.item, subtree, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookPrevPage <-
function(notebook = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")

	 w <- .GtkCall("S_gtk_notebook_prev_page", notebook, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetDefaultColormap <-
function(cmap, .flush = TRUE)
{
	 gtkCheckInherits(cmap, "GdkColormap")

	 w <- .GtkCall("S_gtk_widget_set_default_colormap", cmap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonBoxSetChildSize <-
function(widget = NULL, min.width, min.height, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkButtonBox")
	 min.width <- as.integer(min.width)
	 min.height <- as.integer(min.height)

	 w <- .GtkCall("S_gtk_button_box_set_child_size", widget, min.width, min.height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarAppendSpace <-
function(toolbar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")

	 w <- .GtkCall("S_gtk_toolbar_append_space", toolbar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonBoxSetChildIpaddingDefault <-
function(ipad.x, ipad.y, .flush = TRUE)
{
	 ipad.x <- as.integer(ipad.x)
	 ipad.y <- as.integer(ipad.y)

	 w <- .GtkCall("S_gtk_button_box_set_child_ipadding_default", ipad.x, ipad.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPackerSetDefaultPad <-
function(packer = NULL, pad.x, pad.y, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 pad.x <- as.integer(pad.x)
	 pad.y <- as.integer(pad.y)

	 w <- .GtkCall("S_gtk_packer_set_default_pad", packer, pad.x, pad.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableCutClipboard <-
function(edtiable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(edtiable, "GtkEditable")

	 w <- .GtkCall("S_gtk_editable_cut_clipboard", edtiable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPackerNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_packer_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkPacker", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkPreviewSetGamma <-
function(gamma, .flush = TRUE)
{
	 gtkCheckInherits(gamma, "double")

	 w <- .GtkCall("S_gtk_preview_set_gamma", gamma, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeItemRemoveSubtree <-
function(tree.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree.item, "GtkTreeItem")

	 w <- .GtkCall("S_gtk_tree_item_remove_subtree", tree.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetShift <-
function(clist = NULL, row, column, vertical, horizontal, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)
	 vertical <- as.integer(vertical)
	 horizontal <- as.integer(horizontal)

	 w <- .GtkCall("S_gtk_clist_set_shift", clist, row, column, vertical, horizontal, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookGetCurrentPage <-
function(notebook = NULL, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")

	 w <- .GtkCall("S_gtk_notebook_get_current_page", notebook, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuItemRemoveSubmenu <-
function(menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")

	 w <- .GtkCall("S_gtk_menu_item_remove_submenu", menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetCellType <-
function(clist = NULL, row, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_get_cell_type", clist, row, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gdkFontsetLoad <-
function(name, .flush = TRUE)
{
	 name <- as.character(name)

	 w <- .GtkCall("S_gdk_fontset_load", name, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCalendarThaw <-
function(calendar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")

	 w <- .GtkCall("S_gtk_calendar_thaw", calendar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTableSetHomogeneous <-
function(table = NULL, homogeneous, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 homogeneous <- as.logical(homogeneous)

	 w <- .GtkCall("S_gtk_table_set_homogeneous", table, homogeneous, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetCellStyle <-
function(clist = NULL, row, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_get_cell_style", clist, row, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetGetAncestor <-
function(widget = NULL, type, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 type <- as.integer(type)

	 w <- .GtkCall("S_gtk_widget_get_ancestor", widget, type, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkGrabRemove <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_grab_remove", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuItemDeselect <-
function(menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")

	 w <- .GtkCall("S_gtk_menu_item_deselect", menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListThaw <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_thaw", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonBoxSetChildIpadding <-
function(widget = NULL, ipad.x, ipad.y, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkButtonBox")
	 ipad.x <- as.integer(ipad.x)
	 ipad.y <- as.integer(ipad.y)

	 w <- .GtkCall("S_gtk_button_box_set_child_ipadding", widget, ipad.x, ipad.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeItemCollapse <-
function(tree.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree.item, "GtkTreeItem")

	 w <- .GtkCall("S_gtk_tree_item_collapse", tree.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressBarSetActivityStep <-
function(pbar = NULL, step, .flush = TRUE)
{
	 gtkCheckInherits(pbar, "GtkProgressBar")
	 step <- as.integer(step)

	 w <- .GtkCall("S_gtk_progress_bar_set_activity_step", pbar, step, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeUnselectItem <-
function(tree = NULL, item, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 item <- as.integer(item)

	 w <- .GtkCall("S_gtk_tree_unselect_item", tree, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetRealize <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_realize", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetUnrealize <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_unrealize", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListColumnTitleActive <-
function(clist = NULL, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_column_title_active", clist, column, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeIsAncestor <-
function(ctree = NULL, node, child, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 gtkCheckInherits(child, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_is_ancestor", ctree, node, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetSetUposition <-
function(widget = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_widget_set_uposition", widget, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarSetOrientation <-
function(toolbar = NULL, orientation = GtkOrientation[1], .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 orientation  <- mapGtkOrientation(orientation)

	 w <- .GtkCall("S_gtk_toolbar_set_orientation", toolbar, orientation, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetShow <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_show", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonNew <-
function(adjustment = NULL, climb.rate, digits, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment", nullOk = TRUE)
	 climb.rate <- as.numeric(climb.rate)
	 digits <- as.integer(digits)

	 w <- .GtkCall("S_gtk_spin_button_new", adjustment, climb.rate, digits, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkSpinButton", "GtkEntry", "GtkEditable", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetSetParentWindow <-
function(widget = NULL, parent.window, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(parent.window, "GdkWindow")

	 w <- .GtkCall("S_gtk_widget_set_parent_window", widget, parent.window, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDrawingAreaNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_drawing_area_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkDrawingArea", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkLabelSetPattern <-
function(label = NULL, pattern, .flush = TRUE)
{
	 gtkCheckInherits(label, "GtkLabel")
	 pattern <- as.character(pattern)

	 w <- .GtkCall("S_gtk_label_set_pattern", label, pattern, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeSetViewLines <-
function(tree = NULL, flag, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 flag <- as.logical(flag)

	 w <- .GtkCall("S_gtk_tree_set_view_lines", tree, flag, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowNew <-
function(type = GtkWindowType[1], show = TRUE, .flush = TRUE)
{
	 type  <- mapGtkWindowType(type)

	 w <- .GtkCall("S_gtk_window_new", type, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkLayoutThaw <-
function(layout = NULL, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")

	 w <- .GtkCall("S_gtk_layout_thaw", layout, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeGetAdjustment <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_get_adjustment", range, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkLayoutPut <-
function(layout = NULL, child = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")
	 gtkCheckInherits(child, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_layout_put", layout, child, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetHomogeneousTabs <-
function(notebook = NULL, homogeneous, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 homogeneous <- as.logical(homogeneous)

	 w <- .GtkCall("S_gtk_notebook_set_homogeneous_tabs", notebook, homogeneous, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowActivateDefault <-
function(window = NULL, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")

	 w <- .GtkCall("S_gtk_window_activate_default", window, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkSelectionConvert <-
function(widget = NULL, selection, target, time, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(selection, "GdkAtom")
	 gtkCheckInherits(target, "GdkAtom")
	 time <- as.integer(time)

	 w <- .GtkCall("S_gtk_selection_convert", widget, selection, target, time, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuShellDeselect <-
function(menu.shell = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.shell, "GtkMenuShell")

	 w <- .GtkCall("S_gtk_menu_shell_deselect", menu.shell, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGetToplevel <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_toplevel", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTableAttach <-
function(table = NULL, child = NULL, left.attach, right.attach, top.attach, bottom.attach, xoptions = c("GTK_EXPAND", "GTK_FILL"), yoptions = c("GTK_EXPAND", "GTK_FILL"), xpadding = 0, ypadding = 0, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 gtkCheckInherits(child, "GtkWidget")
	 left.attach <- as.integer(left.attach)
	 right.attach <- as.integer(right.attach)
	 top.attach <- as.integer(top.attach)
	 bottom.attach <- as.integer(bottom.attach)
	 xoptions  <- mapGtkAttachOptions(xoptions)
	 yoptions  <- mapGtkAttachOptions(yoptions)
	 xpadding <- as.integer(xpadding)
	 ypadding <- as.integer(ypadding)

	 w <- .GtkCall("S_gtk_table_attach", table, child, left.attach, right.attach, top.attach, bottom.attach, xoptions, yoptions, xpadding, ypadding, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetDrawFocus <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_draw_focus", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuSetTitle <-
function(menu = NULL, title, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 title <- as.character(title)

	 w <- .GtkCall("S_gtk_menu_set_title", menu, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnWidget <-
function(clist = NULL, column, widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_clist_set_column_widget", clist, column, widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressSetShowText <-
function(progress = NULL, show.text, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 show.text <- as.integer(show.text)

	 w <- .GtkCall("S_gtk_progress_set_show_text", progress, show.text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarDisplayOptions <-
function(calendar = NULL, flags, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")
	 flags  <- mapGtkCalendarDisplayOptions(flags)

	 w <- .GtkCall("S_gtk_calendar_display_options", calendar, flags, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextFreeze <-
function(text = NULL, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")

	 w <- .GtkCall("S_gtk_text_freeze", text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSetSpacing <-
function(ctree = NULL, spacing, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_ctree_set_spacing", ctree, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowSetTransientFor <-
function(window = NULL, parent = NULL, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 gtkCheckInherits(parent, "GtkWindow")

	 w <- .GtkCall("S_gtk_window_set_transient_for", window, parent, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarFreeze <-
function(calendar = NULL, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")

	 w <- .GtkCall("S_gtk_calendar_freeze", calendar, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSignalEmitStopByName <-
function(object = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 name <- as.character(name)

	 w <- .GtkCall("S_gtk_signal_emit_stop_by_name", object, name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRadioButtonNewWithLabelFromWidget <-
function(group = NULL, label, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkRadioButton", nullOk = TRUE)
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_radio_button_new_with_label_from_widget", group, label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkRadioButton", "GtkCheckButton", "GtkToggleButton", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkButtonBoxGetLayout <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkButtonBox")

	 w <- .GtkCall("S_gtk_button_box_get_layout", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkContainerRegisterToplevel <-
function(container = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")

	 w <- .GtkCall("S_gtk_container_register_toplevel", container, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetName <-
function(widget = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 name <- as.character(name)

	 w <- .GtkCall("S_gtk_widget_set_name", widget, name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListRemove <-
function(clist = NULL, row, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)

	 w <- .GtkCall("S_gtk_clist_remove", clist, row, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuItemSelect <-
function(menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")

	 w <- .GtkCall("S_gtk_menu_item_select", menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonReleased <-
function(button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")

	 w <- .GtkCall("S_gtk_button_released", button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTimeoutRemove <-
function(tag, .flush = TRUE)
{
	 tag <- as.integer(tag)

	 w <- .GtkCall("S_gtk_timeout_remove", tag, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuAppend <-
function(menu = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_append", menu, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetHide <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_hide", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListToggleAddMode <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_toggle_add_mode", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextForwardDelete <-
function(text = NULL, nchars, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 nchars <- as.integer(nchars)

	 w <- .GtkCall("S_gtk_text_forward_delete", text, nchars, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHScaleNew <-
function(adjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_hscale_new", adjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHScale", "GtkScale", "GtkRange", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkMainQuit <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_main_quit", PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetRestoreDefaultStyle <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_restore_default_style", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuItemRightJustify <-
function(menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkMenuItem")

	 w <- .GtkCall("S_gtk_menu_item_right_justify", menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxPackStartDefaults <-
function(box = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_box_pack_start_defaults", box, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewSetColorCube <-
function(nred.shades, ngreen.shades, nblue.shades, ngray.shades, .flush = TRUE)
{
	 nred.shades <- as.integer(nred.shades)
	 ngreen.shades <- as.integer(ngreen.shades)
	 nblue.shades <- as.integer(nblue.shades)
	 ngray.shades <- as.integer(ngray.shades)

	 w <- .GtkCall("S_gtk_preview_set_color_cube", nred.shades, ngreen.shades, nblue.shades, ngray.shades, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetUnlockAccelerators <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_unlock_accelerators", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeSetAdjustment <-
function(range = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_range_set_adjustment", range, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionSetFontName <-
function(fontsel = NULL, fontname, .flush = TRUE)
{
	 gtkCheckInherits(fontsel, "GtkFontSelection")
	 fontname <- as.character(fontname)

	 w <- .GtkCall("S_gtk_font_selection_set_font_name", fontsel, fontname, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetAcceleratorsLocked <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_accelerators_locked", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFontSelectionGetFontName <-
function(fontsel = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fontsel, "GtkFontSelection")

	 w <- .GtkCall("S_gtk_font_selection_get_font_name", fontsel, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkViewportSetHadjustment <-
function(viewport = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(viewport, "GtkViewport")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_viewport_set_hadjustment", viewport, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerRemove <-
function(container = NULL, widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_container_remove", container, widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetColumnTitle <-
function(clist = NULL, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_get_column_title", clist, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkDragFinish <-
function(context, success, del, time, .flush = TRUE)
{
	 gtkCheckInherits(context, "GdkDragContext")
	 success <- as.logical(success)
	 del <- as.logical(del)
	 time <- as.integer(time)

	 w <- .GtkCall("S_gtk_drag_finish", context, success, del, time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListNewWithTitles <-
function(columns, titles, show = TRUE, .flush = TRUE)
{
	 columns <- as.integer(columns)
	 titles <- as.character(titles)

	 w <- .GtkCall("S_gtk_clist_new_with_titles", columns, titles, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCList", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkNotebookSetMenuLabelText <-
function(notebook = NULL, child = NULL, menu.text, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 menu.text <- as.character(menu.text)

	 w <- .GtkCall("S_gtk_notebook_set_menu_label_text", notebook, child, menu.text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookInsertPageMenu <-
function(notebook = NULL, child = NULL, tab.label = NULL, menu.label = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 gtkCheckInherits(tab.label, "GtkWidget")
	 gtkCheckInherits(menu.label, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_notebook_insert_page_menu", notebook, child, tab.label, menu.label, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeNth <-
function(ctree = NULL, row, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 row <- as.integer(row)

	 w <- .GtkCall("S_gtk_ctree_node_nth", ctree, row, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListSetSortColumn <-
function(clist = NULL, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_set_sort_column", clist, column, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowSetModal <-
function(window = NULL, modal, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 modal <- as.logical(modal)

	 w <- .GtkCall("S_gtk_window_set_modal", window, modal, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAdjustmentSetValue <-
function(adjustment = NULL, value, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment")
	 value <- as.numeric(value)

	 w <- .GtkCall("S_gtk_adjustment_set_value", adjustment, value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuGetAttachWidget <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_get_attach_widget", menu, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkWidgetGetDefaultStyle <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_widget_get_default_style", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkColorSelectionSetOpacity <-
function(colorsel = NULL, use.opacity, .flush = TRUE)
{
	 gtkCheckInherits(colorsel, "GtkColorSelection")
	 use.opacity <- as.logical(use.opacity)

	 w <- .GtkCall("S_gtk_color_selection_set_opacity", colorsel, use.opacity, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSelectAll <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_select_all", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressBarSetActivityBlocks <-
function(pbar = NULL, blocks, .flush = TRUE)
{
	 gtkCheckInherits(pbar, "GtkProgressBar")
	 blocks <- as.integer(blocks)

	 w <- .GtkCall("S_gtk_progress_bar_set_activity_blocks", pbar, blocks, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFrameSetLabel <-
function(frame = NULL, label, .flush = TRUE)
{
	 gtkCheckInherits(frame, "GtkFrame")
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_frame_set_label", frame, label, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetSnapToTicks <-
function(spin.button = NULL, snap.to.ticks, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 snap.to.ticks <- as.logical(snap.to.ticks)

	 w <- .GtkCall("S_gtk_spin_button_set_snap_to_ticks", spin.button, snap.to.ticks, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkOptionMenuSetMenu <-
function(option.menu = NULL, menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(option.menu, "GtkOptionMenu")
	 gtkCheckInherits(menu, "GtkWidget")

	 w <- .GtkCall("S_gtk_option_menu_set_menu", option.menu, menu, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSignalHandlerUnblock <-
function(object = NULL, id, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 id <- as.integer(id)

	 w <- .GtkCall("S_gtk_signal_handler_unblock", object, id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListToggleFocusRow <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_toggle_focus_row", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetAcceleratorSignal <-
function(widget = NULL, group, key, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_widget_accelerator_signal", widget, group, key, modifiers, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTreeItemExpand <-
function(tree.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree.item, "GtkTreeItem")

	 w <- .GtkCall("S_gtk_tree_item_expand", tree.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetRowStyle <-
function(ctree = NULL, node, style, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_ctree_node_set_row_style", ctree, node, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetParent <-
function(widget = NULL, parent = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(parent, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_set_parent", widget, parent, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetSelectable <-
function(ctree = NULL, node, selectable, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 selectable <- as.logical(selectable)

	 w <- .GtkCall("S_gtk_ctree_node_set_selectable", ctree, node, selectable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerResizeChildren <-
function(container = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")

	 w <- .GtkCall("S_gtk_container_resize_children", container, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntryNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_entry_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkEntry", "GtkEditable", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCListSetHadjustment <-
function(clist = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_clist_set_hadjustment", clist, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuPrepend <-
function(menu = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_prepend", menu, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowAddAccelGroup <-
function(window = NULL, group, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 gtkCheckInherits(group, "GtkAccelGroup")

	 w <- .GtkCall("S_gtk_window_add_accel_group", window, group, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAdjustmentChanged <-
function(adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_adjustment_changed", adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewSetReserved <-
function(nreserved, .flush = TRUE)
{
	 nreserved <- as.integer(nreserved)

	 w <- .GtkCall("S_gtk_preview_set_reserved", nreserved, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerCheckResize <-
function(container = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")

	 w <- .GtkCall("S_gtk_container_check_resize", container, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionDialogSetFontName <-
function(fsd = NULL, fontname, .flush = TRUE)
{
	 gtkCheckInherits(fsd, "GtkFontSelectionDialog")
	 fontname <- as.character(fontname)

	 w <- .GtkCall("S_gtk_font_selection_dialog_set_font_name", fsd, fontname, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkRangeDrawBackground <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_draw_background", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPackerSetDefaultIpad <-
function(packer = NULL, ipad.x, ipad.y, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 ipad.x <- as.integer(ipad.x)
	 ipad.y <- as.integer(ipad.y)

	 w <- .GtkCall("S_gtk_packer_set_default_ipad", packer, ipad.x, ipad.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeChildPosition <-
function(tree = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_tree_child_position", tree, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkLayoutMove <-
function(layout = NULL, child = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")
	 gtkCheckInherits(child, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_layout_move", layout, child, x, y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetPage <-
function(notebook = NULL, page.num, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 page.num <- as.integer(page.num)

	 w <- .GtkCall("S_gtk_notebook_set_page", notebook, page.num, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkStatusbarPop <-
function(statusbar = NULL, context.id, .flush = TRUE)
{
	 gtkCheckInherits(statusbar, "GtkStatusbar")
	 context.id <- as.integer(context.id)

	 w <- .GtkCall("S_gtk_statusbar_pop", statusbar, context.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkComboDisableActivate <-
function(combo = NULL, .flush = TRUE)
{
	 gtkCheckInherits(combo, "GtkCombo")

	 w <- .GtkCall("S_gtk_combo_disable_activate", combo, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxSetSpacing <-
function(box = NULL, spacing, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_box_set_spacing", box, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkCursorNewFromPixmap <-
function(source, mask, fg, bg, x, y, .flush = TRUE)
{
	 gtkCheckInherits(source, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")
	 gtkCheckInherits(fg, "GdkColor")
	 gtkCheckInherits(bg, "GdkColor")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gdk_cursor_new_from_pixmap", source, mask, fg, bg, x, y, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GdkCursor")
	 return(w)

}
 

gtkSignalDisconnect <-
function(object = NULL, handler.id, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 handler.id <- as.integer(handler.id)

	 w <- .GtkCall("S_gtk_signal_disconnect", object, handler.id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVButtonBoxNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_vbutton_box_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVButtonBox", "GtkButtonBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkFileSelectionShowFileopButtons <-
function(filesel = NULL, .flush = TRUE)
{
	 gtkCheckInherits(filesel, "GtkFileSelection")

	 w <- .GtkCall("S_gtk_file_selection_show_fileop_buttons", filesel, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonClicked <-
function(button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")

	 w <- .GtkCall("S_gtk_button_clicked", button, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionSetPreviewText <-
function(fontsel = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(fontsel, "GtkFontSelection")
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_font_selection_set_preview_text", fontsel, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeItemSelect <-
function(tree.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree.item, "GtkTreeItem")

	 w <- .GtkCall("S_gtk_tree_item_select", tree.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupLock <-
function(group, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")

	 w <- .GtkCall("S_gtk_accel_group_lock", group, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerSetBorderWidth <-
function(container = NULL, border.width, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 border.width <- as.integer(border.width)

	 w <- .GtkCall("S_gtk_container_set_border_width", container, border.width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetTabLabelText <-
function(notebook = NULL, child = NULL, tab.text, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 tab.text <- as.character(tab.text)

	 w <- .GtkCall("S_gtk_notebook_set_tab_label_text", notebook, child, tab.text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetUnparent <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_unparent", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWindowRemoveAccelGroup <-
function(window = NULL, group, .flush = TRUE)
{
	 gtkCheckInherits(window, "GtkWindow")
	 gtkCheckInherits(group, "GtkAccelGroup")

	 w <- .GtkCall("S_gtk_window_remove_accel_group", window, group, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkColorSelectionDialogNew <-
function(title, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)

	 w <- .GtkCall("S_gtk_color_selection_dialog_new", title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkColorSelectionDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkAccelGroupGetDefault <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_accel_group_get_default", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressSetActivityMode <-
function(progress = NULL, activity.mode, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 activity.mode <- as.integer(activity.mode)

	 w <- .GtkCall("S_gtk_progress_set_activity_mode", progress, activity.mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVSeparatorNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_vseparator_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVSeparator", "GtkSeparator", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetSetCompositeName <-
function(widget = NULL, name, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 name <- as.character(name)

	 w <- .GtkCall("S_gtk_widget_set_composite_name", widget, name, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListColumnTitlePassive <-
function(clist = NULL, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_column_title_passive", clist, column, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnTitle <-
function(clist = NULL, column, title, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 title <- as.character(title)

	 w <- .GtkCall("S_gtk_clist_set_column_title", clist, column, title, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeSetLineStyle <-
function(ctree = NULL, style = GtkCTreeLineStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 style  <- mapGtkCTreeLineStyle(style)

	 w <- .GtkCall("S_gtk_ctree_set_line_style", ctree, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntryPrependText <-
function(entry = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_entry_prepend_text", entry, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeSliderUpdate <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_slider_update", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetHadjustment <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_get_hadjustment", clist, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCheckButtonNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_check_button_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCheckButton", "GtkToggleButton", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkDragDestUnset <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_drag_dest_unset", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCurveSetCurveType <-
function(curve = NULL, type = GtkCurveType[1], .flush = TRUE)
{
	 gtkCheckInherits(curve, "GtkCurve")
	 type  <- mapGtkCurveType(type)

	 w <- .GtkCall("S_gtk_curve_set_curve_type", curve, type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntryNewWithMaxLength <-
function(max, show = TRUE, .flush = TRUE)
{
	 max <- as.integer(max)

	 w <- .GtkCall("S_gtk_entry_new_with_max_length", max, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkEntry", "GtkEditable", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkRcGetStyle <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_rc_get_style", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkNotebookSetTabVborder <-
function(notebook = NULL, tab.vborder, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 tab.vborder <- as.integer(tab.vborder)

	 w <- .GtkCall("S_gtk_notebook_set_tab_vborder", notebook, tab.vborder, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeCollapse <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_collapse", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeFind <-
function(ctree = NULL, node, child, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 gtkCheckInherits(child, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_find", ctree, node, child, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTextThaw <-
function(text = NULL, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")

	 w <- .GtkCall("S_gtk_text_thaw", text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkItemFactoryDeleteItem <-
function(ifactory = NULL, path, .flush = TRUE)
{
	 gtkCheckInherits(ifactory, "GtkItemFactory")
	 path <- as.character(path)

	 w <- .GtkCall("S_gtk_item_factory_delete_item", ifactory, path, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetShadowType <-
function(clist = NULL, border = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 border  <- mapGtkShadowType(border)

	 w <- .GtkCall("S_gtk_clist_set_shadow_type", clist, border, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeIsHotSpot <-
function(ctree = NULL, x, y, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 x <- as.integer(x)
	 y <- as.integer(y)

	 w <- .GtkCall("S_gtk_ctree_is_hot_spot", ctree, x, y, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListColumnTitlesShow <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_column_titles_show", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPackerSetChildPacking <-
function(packer = NULL, child = NULL, size = GtkSideType[1], anchor = GtkAnchorType[1], options, border.width = 0, pad.x = 0, pad.y = 0, ipad.x = 0, ipad.y = 0, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 gtkCheckInherits(child, "GtkWidget")
	 size  <- mapGtkSideType(size)
	 anchor  <- mapGtkAnchorType(anchor)
	 options  <- mapGtkPackerOptions(options)
	 border.width <- as.integer(border.width)
	 pad.x <- as.integer(pad.x)
	 pad.y <- as.integer(pad.y)
	 ipad.x <- as.integer(ipad.x)
	 ipad.y <- as.integer(ipad.y)

	 w <- .GtkCall("S_gtk_packer_set_child_packing", packer, child, size, anchor, options, border.width, pad.x, pad.y, ipad.x, ipad.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetState <-
function(widget = NULL, state = GtkStateType[1], .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 state  <- mapGtkStateType(state)

	 w <- .GtkCall("S_gtk_widget_set_state", widget, state, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionGetFont <-
function(fontsel = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fontsel, "GtkFontSelection")

	 w <- .GtkCall("S_gtk_font_selection_get_font", fontsel, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTreeSelectChild <-
function(tree = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_tree_select_child", tree, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRulerDrawPos <-
function(ruler = NULL, .flush = TRUE)
{
	 gtkCheckInherits(ruler, "GtkRuler")

	 w <- .GtkCall("S_gtk_ruler_draw_pos", ruler, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHButtonBoxGetSpacingDefault <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_hbutton_box_get_spacing_default", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkItemFactoryPopup <-
function(ifactory = NULL, x, y, mouse.button, time, .flush = TRUE)
{
	 gtkCheckInherits(ifactory, "GtkItemFactory")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 mouse.button <- as.integer(mouse.button)
	 time <- as.integer(time)

	 w <- .GtkCall("S_gtk_item_factory_popup", ifactory, x, y, mouse.button, time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetScrollable <-
function(notebook = NULL, scrollable, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 scrollable <- as.integer(scrollable)

	 w <- .GtkCall("S_gtk_notebook_set_scrollable", notebook, scrollable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressSetPercentage <-
function(progress = NULL, percentage, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 percentage <- as.numeric(percentage)

	 w <- .GtkCall("S_gtk_progress_set_percentage", progress, percentage, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkComboSetValueInList <-
function(combo = NULL, val, ok.if.empty, .flush = TRUE)
{
	 gtkCheckInherits(combo, "GtkCombo")
	 val <- as.logical(val)
	 ok.if.empty <- as.logical(ok.if.empty)

	 w <- .GtkCall("S_gtk_combo_set_value_in_list", combo, val, ok.if.empty, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelLabelGetAccelWidth <-
function(accel.label = NULL, .flush = TRUE)
{
	 gtkCheckInherits(accel.label, "GtkAccelLabel")

	 w <- .GtkCall("S_gtk_accel_label_get_accel_width", accel.label, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkPackerAdd <-
function(packer = NULL, child = NULL, side = GtkSideType[1], anchor = GtkAnchorType[1], options, border.width = 0, pad.x = 0, pad.y = 0, ipad.x = 0, ipad.y = 0, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 gtkCheckInherits(child, "GtkWidget")
	 side  <- mapGtkSideType(side)
	 anchor  <- mapGtkAnchorType(anchor)
	 options  <- mapGtkPackerOptions(options)
	 border.width <- as.integer(border.width)
	 pad.x <- as.integer(pad.x)
	 pad.y <- as.integer(pad.y)
	 ipad.x <- as.integer(ipad.x)
	 ipad.y <- as.integer(ipad.y)

	 w <- .GtkCall("S_gtk_packer_add", packer, child, side, anchor, options, border.width, pad.x, pad.y, ipad.x, ipad.y, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSignalHandlerBlock <-
function(object = NULL, id, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 id <- as.integer(id)

	 w <- .GtkCall("S_gtk_signal_handler_block", object, id, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextGetPoint <-
function(text = NULL, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")

	 w <- .GtkCall("S_gtk_text_get_point", text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTreeItemNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_tree_item_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTreeItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCListOptimalColumnWidth <-
function(clist = NULL, column, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)

	 w <- .GtkCall("S_gtk_clist_optimal_column_width", clist, column, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkPanedPack1 <-
function(paned = NULL, child = NULL, resize = TRUE, shrink = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 gtkCheckInherits(child, "GtkWidget")
	 resize <- as.logical(resize)
	 shrink <- as.logical(shrink)

	 w <- .GtkCall("S_gtk_paned_pack1", paned, child, resize, shrink, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPanedPack2 <-
function(paned = NULL, child = NULL, resize = TRUE, shrink = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 gtkCheckInherits(child, "GtkWidget")
	 resize <- as.logical(resize)
	 shrink <- as.logical(shrink)

	 w <- .GtkCall("S_gtk_paned_pack2", paned, child, resize, shrink, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListColumnTitlesHide <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_column_titles_hide", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkDrawString <-
function(drawable, font, gc, x, y, str, .flush = TRUE)
{
	 gtkCheckInherits(drawable, "GdkDrawable")
	 gtkCheckInherits(font, "GdkFont")
	 gtkCheckInherits(gc, "GdkGC")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 str <- as.character(str)

	 w <- .GtkCall("S_gdk_draw_string", drawable, font, gc, x, y, str, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarAppendItem <-
function(toolbar = NULL, text, tooltip, tooltip.private = '', icon = NULL, callback = NULL, user.data = NULL, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 text <- as.character(text)
	 tooltip <- as.character(tooltip)
	 tooltip.private <- as.character(tooltip.private)
	 gtkCheckInherits(icon, "GtkWidget", nullOk = TRUE)
	 gtkCheckInherits(callback, "GtkCallback", nullOk = TRUE)
	 gtkCheckInherits(user.data, "void", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_toolbar_append_item", toolbar, text, tooltip, tooltip.private, icon, callback, user.data, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkExit <-
function(code = 0, .flush = TRUE)
{
	 code <- as.integer(code)

	 w <- .GtkCall("S_gtk_exit", code, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRadioButtonNewFromWidget <-
function(group = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkRadioButton")

	 w <- .GtkCall("S_gtk_radio_button_new_from_widget", group, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkRadioButton", "GtkCheckButton", "GtkToggleButton", "GtkButton", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkFontSelectionDialogGetPreviewText <-
function(fsd = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fsd, "GtkFontSelectionDialog")

	 w <- .GtkCall("S_gtk_font_selection_dialog_get_preview_text", fsd, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkRcReparseAll <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_rc_reparse_all", PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSpin <-
function(spin.button = NULL, direction = GtkSpinType[1], increment, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 direction  <- mapGtkSpinType(direction)
	 increment <- as.numeric(increment)

	 w <- .GtkCall("S_gtk_spin_button_spin", spin.button, direction, increment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetPixtext <-
function(ctree = NULL, node, column, text, spacing, pixmap, mask, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)
	 text <- as.character(text)
	 spacing <- as.integer(spacing)
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")

	 w <- .GtkCall("S_gtk_ctree_node_set_pixtext", ctree, node, column, text, spacing, pixmap, mask, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetColumnVisibility <-
function(clist = NULL, column, visible, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 column <- as.integer(column)
	 visible <- as.logical(visible)

	 w <- .GtkCall("S_gtk_clist_set_column_visibility", clist, column, visible, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetUpdatePolicy <-
function(spin.button = NULL, policy = GtkSpinButtonUpdatePolicy[1], .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 policy  <- mapGtkSpinButtonUpdatePolicy(policy)

	 w <- .GtkCall("S_gtk_spin_button_set_update_policy", spin.button, policy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPanedSetHandleSize <-
function(paned = NULL, size, .flush = TRUE)
{
	 gtkCheckInherits(paned, "GtkPaned")
	 size <- as.integer(size)

	 w <- .GtkCall("S_gtk_paned_set_handle_size", paned, size, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableChanged <-
function(editable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")

	 w <- .GtkCall("S_gtk_editable_changed", editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableSetPosition <-
function(editable = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_editable_set_position", editable, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetPushStyle <-
function(style, .flush = TRUE)
{
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_widget_push_style", style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkDrawPixmap <-
function(drawable, gc, src, xsrc, ysrc, xdest, ydest, width, height, .flush = TRUE)
{
	 gtkCheckInherits(drawable, "GdkDrawable")
	 gtkCheckInherits(gc, "GdkGC")
	 gtkCheckInherits(src, "GdkDrawable")
	 xsrc <- as.integer(xsrc)
	 ysrc <- as.integer(ysrc)
	 xdest <- as.integer(xdest)
	 ydest <- as.integer(ydest)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gdk_draw_pixmap", drawable, gc, src, xsrc, ysrc, xdest, ydest, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkComboSetUseArrowsAlways <-
function(combo = NULL, val, .flush = TRUE)
{
	 gtkCheckInherits(combo, "GtkCombo")
	 val <- as.logical(val)

	 w <- .GtkCall("S_gtk_combo_set_use_arrows_always", combo, val, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPixmapSet <-
function(pixmap = NULL, val, mask, .flush = TRUE)
{
	 gtkCheckInherits(pixmap, "GtkPixmap")
	 gtkCheckInherits(val, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")

	 w <- .GtkCall("S_gtk_pixmap_set", pixmap, val, mask, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuGetActive <-
function(menu = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu, "GtkMenu")

	 w <- .GtkCall("S_gtk_menu_get_active", menu, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkComboSetItemString <-
function(combo = NULL, item = NULL, item.value, .flush = TRUE)
{
	 gtkCheckInherits(combo, "GtkCombo")
	 gtkCheckInherits(item, "GtkItem")
	 item.value <- as.character(item.value)

	 w <- .GtkCall("S_gtk_combo_set_item_string", combo, item, item.value, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTextSetPoint <-
function(text = NULL, index, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 index <- as.integer(index)

	 w <- .GtkCall("S_gtk_text_set_point", text, index, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookReorderChild <-
function(notebook = NULL, child = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 gtkCheckInherits(child, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_notebook_reorder_child", notebook, child, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressGetCurrentText <-
function(progress = NULL, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")

	 w <- .GtkCall("S_gtk_progress_get_current_text", progress, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkPackerSetDefaultBorderWidth <-
function(packer = NULL, border, .flush = TRUE)
{
	 gtkCheckInherits(packer, "GtkPacker")
	 border <- as.integer(border)

	 w <- .GtkCall("S_gtk_packer_set_default_border_width", packer, border, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetShadowType <-
function(spin.button = NULL, shadow.type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 shadow.type  <- mapGtkShadowType(shadow.type)

	 w <- .GtkCall("S_gtk_spin_button_set_shadow_type", spin.button, shadow.type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkProgressGetTextFromValue <-
function(progress = NULL, value, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 value <- as.numeric(value)

	 w <- .GtkCall("S_gtk_progress_get_text_from_value", progress, value, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkNotebookGetNthPage <-
function(notebook = NULL, page.num, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 page.num <- as.integer(page.num)

	 w <- .GtkCall("S_gtk_notebook_get_nth_page", notebook, page.num, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkHandleBoxSetHandlePosition <-
function(handle.box = NULL, position = GtkPositionType[1], .flush = TRUE)
{
	 gtkCheckInherits(handle.box, "GtkHandleBox")
	 position  <- mapGtkPositionType(position)

	 w <- .GtkCall("S_gtk_handle_box_set_handle_position", handle.box, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkIdleRemove <-
function(tag, .flush = TRUE)
{
	 tag <- as.integer(tag)

	 w <- .GtkCall("S_gtk_idle_remove", tag, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetBackground <-
function(clist = NULL, row, color, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 gtkCheckInherits(color, "GdkColor")

	 w <- .GtkCall("S_gtk_clist_set_background", clist, row, color, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToggleButtonSetActive <-
function(toggle.button = NULL, state, .flush = TRUE)
{
	 gtkCheckInherits(toggle.button, "GtkToggleButton")
	 state <- as.logical(state)

	 w <- .GtkCall("S_gtk_toggle_button_set_active", toggle.button, state, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListNew <-
function(columns, show = TRUE, .flush = TRUE)
{
	 columns <- as.integer(columns)

	 w <- .GtkCall("S_gtk_clist_new", columns, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkCList", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkDragGetData <-
function(widget = NULL, context, target, time, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(context, "GdkDragContext")
	 gtkCheckInherits(target, "GdkAtom")
	 time <- as.integer(time)

	 w <- .GtkCall("S_gtk_drag_get_data", widget, context, target, time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMain <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_main", PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetPixmap <-
function(ctree = NULL, node, column, pixmap, mask, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")

	 w <- .GtkCall("S_gtk_ctree_node_set_pixmap", ctree, node, column, pixmap, mask, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetActivate <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_activate", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTextInsert <-
function(text = NULL, font = NULL, fore = NULL, back = NULL, chars, length = -1, .flush = TRUE)
{
	 gtkCheckInherits(text, "GtkText")
	 gtkCheckInherits(font, "GdkFont", nullOk = TRUE)
	 gtkCheckInherits(fore, "GdkColor", nullOk = TRUE)
	 gtkCheckInherits(back, "GdkColor", nullOk = TRUE)
	 chars <- as.character(chars)
	 length <- as.integer(length)

	 w <- .GtkCall("S_gtk_text_insert", text, font, fore, back, chars, length, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListGetVadjustment <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_get_vadjustment", clist, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMenuBarPrepend <-
function(menu.bar = NULL, child = NULL, .flush = TRUE)
{
	 gtkCheckInherits(menu.bar, "GtkMenuBar")
	 gtkCheckInherits(child, "GtkWidget")

	 w <- .GtkCall("S_gtk_menu_bar_prepend", menu.bar, child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkColorSelectionSetUpdatePolicy <-
function(colorsel = NULL, policy = GtkUpdateType[1], .flush = TRUE)
{
	 gtkCheckInherits(colorsel, "GtkColorSelection")
	 policy  <- mapGtkUpdateType(policy)

	 w <- .GtkCall("S_gtk_color_selection_set_update_policy", colorsel, policy, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHRulerNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_hruler_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHRuler", "GtkRuler", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkFontSelectionDialogNew <-
function(title, show = TRUE, .flush = TRUE)
{
	 title <- as.character(title)

	 w <- .GtkCall("S_gtk_font_selection_dialog_new", title, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkFontSelectionDialog", "GtkWindow", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkRangeClearBackground <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_clear_background", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGrabDefault <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_grab_default", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCheckMenuItemSetShowToggle <-
function(menu.item = NULL, always, .flush = TRUE)
{
	 gtkCheckInherits(menu.item, "GtkCheckMenuItem")
	 always <- as.logical(always)

	 w <- .GtkCall("S_gtk_check_menu_item_set_show_toggle", menu.item, always, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSocketNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_socket_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkSocket", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkButtonBoxSetChildSizeDefault <-
function(min.width, min.height, .flush = TRUE)
{
	 min.width <- as.integer(min.width)
	 min.height <- as.integer(min.height)

	 w <- .GtkCall("S_gtk_button_box_set_child_size_default", min.width, min.height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkVScaleNew <-
function(adjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_vscale_new", adjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVScale", "GtkScale", "GtkRange", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkTooltipsNew <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_tooltips_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTooltips", "GtkData", "GtkObject")
	 return(w)

}
 

gtkAspectFrameNew <-
function(label, xalign, yalign, ratio, obey.child, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)
	 xalign <- as.numeric(xalign)
	 yalign <- as.numeric(yalign)
	 ratio <- as.numeric(ratio)
	 obey.child <- as.integer(obey.child)

	 w <- .GtkCall("S_gtk_aspect_frame_new", label, xalign, yalign, ratio, obey.child, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkAspectFrame", "GtkFrame", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCTreeNodeGetSelectable <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_node_get_selectable", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTreeSelectItem <-
function(tree = NULL, item, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 item <- as.integer(item)

	 w <- .GtkCall("S_gtk_tree_select_item", tree, item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeRemoveNode <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_remove_node", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetPixtext <-
function(clist = NULL, row, col, text, spacing, pixmap, mask, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 col <- as.integer(col)
	 text <- as.character(text)
	 spacing <- as.integer(spacing)
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap")

	 w <- .GtkCall("S_gtk_clist_set_pixtext", clist, row, col, text, spacing, pixmap, mask, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeClearItems <-
function(tree = NULL, start, end, .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 start <- as.integer(start)
	 end <- as.integer(end)

	 w <- .GtkCall("S_gtk_tree_clear_items", tree, start, end, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkButtonBoxSetLayout <-
function(widget = NULL, layout.style = GtkButtonBoxStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkButtonBox")
	 layout.style  <- mapGtkButtonBoxStyle(layout.style)

	 w <- .GtkCall("S_gtk_button_box_set_layout", widget, layout.style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPixmapSetBuildInsensitive <-
function(pixmap = NULL, build, .flush = TRUE)
{
	 gtkCheckInherits(pixmap, "GtkPixmap")
	 build <- as.integer(build)

	 w <- .GtkCall("S_gtk_pixmap_set_build_insensitive", pixmap, build, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuBarInsert <-
function(menu.bar = NULL, child = NULL, position, .flush = TRUE)
{
	 gtkCheckInherits(menu.bar, "GtkMenuBar")
	 gtkCheckInherits(child, "GtkWidget")
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_menu_bar_insert", menu.bar, child, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSetLocale <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_set_locale", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkVBoxNew <-
function(homogeneous = FALSE, spacing = 1, show = TRUE, .flush = TRUE)
{
	 homogeneous <- as.logical(homogeneous)
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_vbox_new", homogeneous, spacing, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkVBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkWidgetGetName <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_name", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkMiscSetPadding <-
function(misc = NULL, xpad, ypad, .flush = TRUE)
{
	 gtkCheckInherits(misc, "GtkMisc")
	 xpad <- as.integer(xpad)
	 ypad <- as.integer(ypad)

	 w <- .GtkCall("S_gtk_misc_set_padding", misc, xpad, ypad, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetQueueDrawArea <-
function(widget = NULL, x, y, width, height, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 x <- as.integer(x)
	 y <- as.integer(y)
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_widget_queue_draw_area", widget, x, y, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeSetSelectionMode <-
function(tree = NULL, mode = GtkSelectionMode[1], .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 mode  <- mapGtkSelectionMode(mode)

	 w <- .GtkCall("S_gtk_tree_set_selection_mode", tree, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListUnselectAll <-
function(list = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list, "GtkList")

	 w <- .GtkCall("S_gtk_list_unselect_all", list, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGetCompositeName <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_get_composite_name", widget, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkEditablePasteClipboard <-
function(editable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")

	 w <- .GtkCall("S_gtk_editable_paste_clipboard", editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxPackStart <-
function(box = NULL, child = NULL, expand = TRUE, fill = TRUE, padding = 0, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 gtkCheckInherits(child, "GtkWidget")
	 expand <- as.logical(expand)
	 fill <- as.logical(fill)
	 padding <- as.integer(padding)

	 w <- .GtkCall("S_gtk_box_pack_start", box, child, expand, fill, padding, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkScaleSetValuePos <-
function(scale = NULL, pos = GtkPositionType[1], .flush = TRUE)
{
	 gtkCheckInherits(scale, "GtkScale")
	 pos  <- mapGtkPositionType(pos)

	 w <- .GtkCall("S_gtk_scale_set_value_pos", scale, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkDrawingAreaSize <-
function(darea = NULL, width, height, .flush = TRUE)
{
	 gtkCheckInherits(darea, "GtkDrawingArea")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_drawing_area_size", darea, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetRowHeight <-
function(clist = NULL, height, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_clist_set_row_height", clist, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetQueueResize <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_queue_resize", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeExpandToDepth <-
function(ctree = NULL, node, depth, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 depth <- as.integer(depth)

	 w <- .GtkCall("S_gtk_ctree_expand_to_depth", ctree, node, depth, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTypeName <-
function(type, .flush = TRUE)
{
	 type <- as.integer(type)

	 w <- .GtkCall("S_gtk_type_name", type, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkAccelGroupActivate <-
function(group, key, modifiers, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 key <- as.integer(key)
	 modifiers  <- mapGdkModifierType(modifiers)

	 w <- .GtkCall("S_gtk_accel_group_activate", group, key, modifiers, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCTreeUnselectRecursive <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_unselect_recursive", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLayoutSetSize <-
function(layout = NULL, width, height, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")
	 width <- as.integer(width)
	 height <- as.integer(height)

	 w <- .GtkCall("S_gtk_layout_set_size", layout, width, height, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListItemSelect <-
function(list.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(list.item, "GtkListItem")

	 w <- .GtkCall("S_gtk_list_item_select", list.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetSetUsize <-
function(widget = NULL, height, width, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 height <- as.integer(height)
	 width <- as.integer(width)

	 w <- .GtkCall("S_gtk_widget_set_usize", widget, height, width, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonSetWrap <-
function(spin.button = NULL, wrap, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")
	 wrap <- as.logical(wrap)

	 w <- .GtkCall("S_gtk_spin_button_set_wrap", spin.button, wrap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListAppend <-
function(clist = NULL, text, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_clist_append", clist, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkNotebookSetShowBorder <-
function(notebook = NULL, show.border, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 show.border <- as.logical(show.border)

	 w <- .GtkCall("S_gtk_notebook_set_show_border", notebook, show.border, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkListItemNewWithLabel <-
function(label, show = TRUE, .flush = TRUE)
{
	 label <- as.character(label)

	 w <- .GtkCall("S_gtk_list_item_new_with_label", label, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkListItem", "GtkItem", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCListSetCellStyle <-
function(clist = NULL, row, column, style, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)
	 gtkCheckInherits(style, "GtkStyle")

	 w <- .GtkCall("S_gtk_clist_set_cell_style", clist, row, column, style, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkAccelGroupDetach <-
function(group, object = NULL, .flush = TRUE)
{
	 gtkCheckInherits(group, "GtkAccelGroup")
	 gtkCheckInherits(object, "GtkObject")

	 w <- .GtkCall("S_gtk_accel_group_detach", group, object, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableCopyClipboard <-
function(editable = NULL, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")

	 w <- .GtkCall("S_gtk_editable_copy_clipboard", editable, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkViewportNew <-
function(hadjustment = NULL, vadjustment = NULL, show = TRUE, .flush = TRUE)
{
	 gtkCheckInherits(hadjustment, "GtkAdjustment", nullOk = TRUE)
	 gtkCheckInherits(vadjustment, "GtkAdjustment", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_viewport_new", hadjustment, vadjustment, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkViewport", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkCListSort <-
function(clist = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")

	 w <- .GtkCall("S_gtk_clist_sort", clist, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEditableClaimSelection <-
function(editable = NULL, claim, time, .flush = TRUE)
{
	 gtkCheckInherits(editable, "GtkEditable")
	 claim <- as.logical(claim)
	 time <- as.integer(time)

	 w <- .GtkCall("S_gtk_editable_claim_selection", editable, claim, time, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerChildType <-
function(container = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")

	 w <- .GtkCall("S_gtk_container_child_type", container, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkItemFactoryParseRcString <-
function(rc.string, .flush = TRUE)
{
	 rc.string <- as.character(rc.string)

	 w <- .GtkCall("S_gtk_item_factory_parse_rc_string", rc.string, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetBackground <-
function(ctree = NULL, node, color, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 gtkCheckInherits(color, "GdkColor")

	 w <- .GtkCall("S_gtk_ctree_node_set_background", ctree, node, color, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHandleBoxSetSnapEdge <-
function(handle.box = NULL, position = GtkPositionType[1], .flush = TRUE)
{
	 gtkCheckInherits(handle.box, "GtkHandleBox")
	 position  <- mapGtkPositionType(position)

	 w <- .GtkCall("S_gtk_handle_box_set_snap_edge", handle.box, position, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetGrabFocus <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_widget_grab_focus", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkToolbarInsertItem <-
function(toolbar = NULL, text, tooltip, tooltip.private = '', icon = NULL, callback = NULL, user.data = NULL, position = -1, .flush = TRUE)
{
	 gtkCheckInherits(toolbar, "GtkToolbar")
	 text <- as.character(text)
	 tooltip <- as.character(tooltip)
	 tooltip.private <- as.character(tooltip.private)
	 gtkCheckInherits(icon, "GtkWidget", nullOk = TRUE)
	 gtkCheckInherits(callback, "GtkCallback", nullOk = TRUE)
	 gtkCheckInherits(user.data, "void", nullOk = TRUE)
	 position <- as.integer(position)

	 w <- .GtkCall("S_gtk_toolbar_insert_item", toolbar, text, tooltip, tooltip.private, icon, callback, user.data, position, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkAdjustmentClampPage <-
function(adjustment = NULL, lower, upper, .flush = TRUE)
{
	 gtkCheckInherits(adjustment, "GtkAdjustment")
	 lower <- as.numeric(lower)
	 upper <- as.numeric(upper)

	 w <- .GtkCall("S_gtk_adjustment_clamp_page", adjustment, lower, upper, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkWidgetEvent <-
function(widget = NULL, event, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")
	 gtkCheckInherits(event, "GdkEvent")

	 w <- .GtkCall("S_gtk_widget_event", widget, event, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressSetFormatString <-
function(progress = NULL, format, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 format <- as.character(format)

	 w <- .GtkCall("S_gtk_progress_set_format_string", progress, format, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeSetViewMode <-
function(tree = NULL, mode = GtkTreeViewMode[1], .flush = TRUE)
{
	 gtkCheckInherits(tree, "GtkTree")
	 mode  <- mapGtkTreeViewMode(mode)

	 w <- .GtkCall("S_gtk_tree_set_view_mode", tree, mode, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCheckMenuItemSetActive <-
function(check.menu.item = NULL, state, .flush = TRUE)
{
	 gtkCheckInherits(check.menu.item, "GtkCheckMenuItem")
	 state <- as.logical(state)

	 w <- .GtkCall("S_gtk_check_menu_item_set_active", check.menu.item, state, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkNotebookSetTabHborder <-
function(notebook = NULL, tab.hborder, .flush = TRUE)
{
	 gtkCheckInherits(notebook, "GtkNotebook")
	 tab.hborder <- as.integer(tab.hborder)

	 w <- .GtkCall("S_gtk_notebook_set_tab_hborder", notebook, tab.hborder, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerUnregisterToplevel <-
function(container = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")

	 w <- .GtkCall("S_gtk_container_unregister_toplevel", container, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEntryGetText <-
function(entry = NULL, .flush = TRUE)
{
	 gtkCheckInherits(entry, "GtkEntry")

	 w <- .GtkCall("S_gtk_entry_get_text", entry, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkAspectFrameSet <-
function(aspect.frame = NULL, xalign, yalign, ratio, obey.child, .flush = TRUE)
{
	 gtkCheckInherits(aspect.frame, "GtkAspectFrame")
	 xalign <- as.numeric(xalign)
	 yalign <- as.numeric(yalign)
	 ratio <- as.numeric(ratio)
	 obey.child <- as.integer(obey.child)

	 w <- .GtkCall("S_gtk_aspect_frame_set", aspect.frame, xalign, yalign, ratio, obey.child, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkMenuNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_menu_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkMenu", "GtkMenuShell", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkButtonSetRelief <-
function(button = NULL, newstyle = GtkReliefStyle[1], .flush = TRUE)
{
	 gtkCheckInherits(button, "GtkButton")
	 newstyle  <- mapGtkReliefStyle(newstyle)

	 w <- .GtkCall("S_gtk_button_set_relief", button, newstyle, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListMoveto <-
function(clist = NULL, row, column, row.align, column.align, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 column <- as.integer(column)
	 row.align <- as.numeric(row.align)
	 column.align <- as.numeric(column.align)

	 w <- .GtkCall("S_gtk_clist_moveto", clist, row, column, row.align, column.align, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkPreviewSetDither <-
function(preview = NULL, dither = GdkRgbDither[1], .flush = TRUE)
{
	 gtkCheckInherits(preview, "GtkPreview")
	 dither  <- mapGdkRgbDither(dither)

	 w <- .GtkCall("S_gtk_preview_set_dither", preview, dither, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTreeNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_tree_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkTree", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkLayoutSetHadjustment <-
function(layout = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_layout_set_hadjustment", layout, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkHBoxNew <-
function(homogeneous = FALSE, spacing = 1, show = TRUE, .flush = TRUE)
{
	 homogeneous <- as.logical(homogeneous)
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_hbox_new", homogeneous, spacing, PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHBox", "GtkBox", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkHPanedNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_hpaned_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkHPaned", "GtkPaned", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkDragSourceUnset <-
function(widget = NULL, .flush = TRUE)
{
	 gtkCheckInherits(widget, "GtkWidget")

	 w <- .GtkCall("S_gtk_drag_source_unset", widget, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCalendarUnmarkDay <-
function(calendar = NULL, day, .flush = TRUE)
{
	 gtkCheckInherits(calendar, "GtkCalendar")
	 day <- as.integer(day)

	 w <- .GtkCall("S_gtk_calendar_unmark_day", calendar, day, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkLabelSetLineWrap <-
function(label = NULL, wrap, .flush = TRUE)
{
	 gtkCheckInherits(label, "GtkLabel")
	 wrap <- as.logical(wrap)

	 w <- .GtkCall("S_gtk_label_set_line_wrap", label, wrap, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkRangeDrawSlider <-
function(range = NULL, .flush = TRUE)
{
	 gtkCheckInherits(range, "GtkRange")

	 w <- .GtkCall("S_gtk_range_draw_slider", range, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEventBoxNew <-
function(show = TRUE, .flush = TRUE)
{

	 w <- .GtkCall("S_gtk_event_box_new", PACKAGE='RGtk', .flush = .flush)
	 class(w) <- c("GtkEventBox", "GtkBin", "GtkContainer", "GtkWidget", "GtkObject")
	 if(show)
	   gtkWidgetShow(w)
	 return(w)

}
 

gtkMenuBarSetShadowType <-
function(menu.bar = NULL, type = GtkShadowType[1], .flush = TRUE)
{
	 gtkCheckInherits(menu.bar, "GtkMenuBar")
	 type  <- mapGtkShadowType(type)

	 w <- .GtkCall("S_gtk_menu_bar_set_shadow_type", menu.bar, type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkTipsQuerySetCaller <-
function(tips.query = NULL, caller = NULL, .flush = TRUE)
{
	 gtkCheckInherits(tips.query, "GtkTipsQuery")
	 gtkCheckInherits(caller, "GtkWidget")

	 w <- .GtkCall("S_gtk_tips_query_set_caller", tips.query, caller, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLayoutGetHadjustment <-
function(layout = NULL, .flush = TRUE)
{
	 gtkCheckInherits(layout, "GtkLayout")

	 w <- .GtkCall("S_gtk_layout_get_hadjustment", layout, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCTreeSortNode <-
function(ctree = NULL, node, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")

	 w <- .GtkCall("S_gtk_ctree_sort_node", ctree, node, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gdkAtomName <-
function(atom, .flush = TRUE)
{
	 gtkCheckInherits(atom, "GdkAtom")

	 w <- .GtkCall("S_gdk_atom_name", atom, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkProgressConfigure <-
function(progress = NULL, value, min, max, .flush = TRUE)
{
	 gtkCheckInherits(progress, "GtkProgress")
	 value <- as.numeric(value)
	 min <- as.numeric(min)
	 max <- as.numeric(max)

	 w <- .GtkCall("S_gtk_progress_configure", progress, value, min, max, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkLabelSetJustify <-
function(label = NULL, jtype = GtkJustification[1], .flush = TRUE)
{
	 gtkCheckInherits(label, "GtkLabel")
	 jtype  <- mapGtkJustification(jtype)

	 w <- .GtkCall("S_gtk_label_set_justify", label, jtype, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCheckMenuItemToggled <-
function(check.menu.item = NULL, .flush = TRUE)
{
	 gtkCheckInherits(check.menu.item, "GtkCheckMenuItem")

	 w <- .GtkCall("S_gtk_check_menu_item_toggled", check.menu.item, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkBoxReorderChild <-
function(box = NULL, child = NULL, pos, .flush = TRUE)
{
	 gtkCheckInherits(box, "GtkBox")
	 gtkCheckInherits(child, "GtkWidget")
	 pos <- as.integer(pos)

	 w <- .GtkCall("S_gtk_box_reorder_child", box, child, pos, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkStatusbarPush <-
function(statusbar = NULL, context.id, text, .flush = TRUE)
{
	 gtkCheckInherits(statusbar, "GtkStatusbar")
	 context.id <- as.integer(context.id)
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_statusbar_push", statusbar, context.id, text, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkTableSetRowSpacing <-
function(table = NULL, row, spacing, .flush = TRUE)
{
	 gtkCheckInherits(table, "GtkTable")
	 row <- as.integer(row)
	 spacing <- as.integer(spacing)

	 w <- .GtkCall("S_gtk_table_set_row_spacing", table, row, spacing, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetPixmap <-
function(clist = NULL, row, col, pixmap, mask = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row <- as.integer(row)
	 col <- as.integer(col)
	 gtkCheckInherits(pixmap, "GdkPixmap")
	 gtkCheckInherits(mask, "GdkBitmap", nullOk = TRUE)

	 w <- .GtkCall("S_gtk_clist_set_pixmap", clist, row, col, pixmap, mask, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCTreeNodeSetText <-
function(ctree = NULL, node, column, text, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)
	 text <- as.character(text)

	 w <- .GtkCall("S_gtk_ctree_node_set_text", ctree, node, column, text, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetVadjustment <-
function(clist = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_clist_set_vadjustment", clist, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkEventsPending <-
function(.flush = TRUE)
{

	 w <- .GtkCall("S_gtk_events_pending", PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkFrameSetLabelAlign <-
function(frame = NULL, xalign, yalign, .flush = TRUE)
{
	 gtkCheckInherits(frame, "GtkFrame")
	 xalign <- as.numeric(xalign)
	 yalign <- as.numeric(yalign)

	 w <- .GtkCall("S_gtk_frame_set_label_align", frame, xalign, yalign, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkContainerSetFocusVadjustment <-
function(container = NULL, adjustment = NULL, .flush = TRUE)
{
	 gtkCheckInherits(container, "GtkContainer")
	 gtkCheckInherits(adjustment, "GtkAdjustment")

	 w <- .GtkCall("S_gtk_container_set_focus_vadjustment", container, adjustment, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gTKOBJECTUNSETFLAGS <-
function(object = NULL, flags, .flush = TRUE)
{
	 gtkCheckInherits(object, "GtkObject")
	 flags  <- mapGtkWidgetFlags(flags)

	 w <- .GtkCall("S_GTK_OBJECT_UNSET_FLAGS", object, flags, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetUseDragIcons <-
function(clist = NULL, use.icons, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 use.icons <- as.logical(use.icons)

	 w <- .GtkCall("S_gtk_clist_set_use_drag_icons", clist, use.icons, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkFontSelectionDialogGetFontName <-
function(fsd = NULL, .flush = TRUE)
{
	 gtkCheckInherits(fsd, "GtkFontSelectionDialog")

	 w <- .GtkCall("S_gtk_font_selection_dialog_get_font_name", fsd, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCTreeNodeSetShift <-
function(ctree = NULL, node, column, vertical, horizontal, .flush = TRUE)
{
	 gtkCheckInherits(ctree, "GtkCTree")
	 gtkCheckInherits(node, "GtkCTreeNode")
	 column <- as.integer(column)
	 vertical <- as.integer(vertical)
	 horizontal <- as.integer(horizontal)

	 w <- .GtkCall("S_gtk_ctree_node_set_shift", ctree, node, column, vertical, horizontal, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkCListSetSortType <-
function(clist = NULL, sort.type = GtkSortType[1], .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 sort.type  <- mapGtkSortType(sort.type)

	 w <- .GtkCall("S_gtk_clist_set_sort_type", clist, sort.type, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

gtkSpinButtonGetAdjustment <-
function(spin.button = NULL, .flush = TRUE)
{
	 gtkCheckInherits(spin.button, "GtkSpinButton")

	 w <- .GtkCall("S_gtk_spin_button_get_adjustment", spin.button, PACKAGE='RGtk', .flush = .flush)
	 return(w)

}
 

gtkCListSwapRows <-
function(clist = NULL, row1, row2, .flush = TRUE)
{
	 gtkCheckInherits(clist, "GtkCList")
	 row1 <- as.integer(row1)
	 row2 <- as.integer(row2)

	 w <- .GtkCall("S_gtk_clist_swap_rows", clist, row1, row2, PACKAGE='RGtk', .flush = .flush)
	 invisible(return(w))

}
 

.GtkInitArgs <- c("R")
gtkInit <-
function(args=.GtkInitArgs)
{
 invisible(.C("R_gtkInit", length(args), x=args)$x)
}
"$.GtkObject" <- "$.GtkType" <- 
  #
  # might want to make the first letter of name lower case
  # so that, e.g.,  x$show() works rather than x$Show()
function(obj, name)
{
 .getAutoMethodByName(obj, name, c("Gtk", "gtk"))
}

"$.GdkEvent" <-
function(obj, name)
{
  .getAutoMethodByName(obj, name, c("Gdk", "gdk"))
}

.getAutoMethodByName <-
function(obj, name, prefix= c("Gtk", "gtk"))
{
 sym <- paste(gsub(prefix[1], prefix[2], class(obj)), name,sep="")
 which <- sapply(sym, exists)

 if(!any(which))
   stop(paste("No such method", name, "for classes", class(obj)))

 sym <- as.name(sym[which][1])

  # evaluate it to turn it into a function
  # and also get the correct environment
 eval(substitute( function(...) {
                     sym(obj, ...)  
                 }, list(obj=obj,sym=sym)))
}  

"[[.GtkObject" <-
  #
  # 
  #
function(obj, name)
{
  if(is.numeric(name)) {
    return(gtkChildren(obj)[[name]])
  }
  val <- try(.getAutoElementByName(obj, name, c("Gtk", "gtk"), error = FALSE))
  if(inherits(val, "try-error")) {
   val <- gtkObjectGetArgs(obj, name)
   if(length(val))
     val <- val[[1]]
  if(inherits(val, "GtkWidget"))
    class(val) <- gtkObjectGetClasses(val)
  }

  return(val)
}


"[[.GdkEvent" <-
function(obj, name)
{
 .getAutoElementByName(obj, name, c("Gdk", "gdk"))
}

.getAutoElementByName <-
function(obj, name, prefix = c("Gtk", "gtk"), error = TRUE)
{  
 sym <- paste(gsub(prefix[1], prefix[2], class(obj)), "Get", name,sep="")
 which <- sapply(sym, exists)

 if(!any(which)) {
   if(error)
     stop(paste("No such element/property", name,"for classes", class(obj)))
   else {
     v <- paste("No such element",name)
     class(v) <- "try-error"
     return(v)
   }
 }

 sym <- as.name(sym[which][1])

 v <- eval(substitute(sym(obj), list(sym=sym)))
 if(inherits(v, "GtkWidget"))
   class(v) <- gtkObjectGetClasses(v)

 v  
}


print.GtkType <-
function(x,...)
{
  print(names(x), ...)
}
gtkCheckInherits <-
#
# if critical is TRUE, an error is generated
# in the case that w does not inherit from the
# specified class.
# If it is FALSE, a warning is generated.
# If critical is a string (character vector of length 1)
# it is passed directly to stop() and used as the error message.
# This allows the caller to give more context-specific
# messages.
function(w, klass = "GtkWidget", nullOk = FALSE, critical = TRUE)
{
 if(is.null(w) && nullOk)
   return(TRUE)
 
 if(!inherits(w, klass)) {
   if(is.character(critical))
     stop(critical)
   else if(is.logical(critical) && critical)
     stop(paste("object of class", class(w), "isn't a",klass))
 }

 return(TRUE)
}


gdkFlush <-
function()
{
 .C("gdkFlush")
}


.GtkCall <-
function(name, ..., .flush = TRUE)  
{
   val <- .Call(name, ...)
   if(.flush)
     gdkFlush()

   val
}  


gtkObjectGetTypeName <-
function(w)
{
 gtkCheckInherits(w, "GtkObject")
 .Call("R_getObjectTypeName", w)
}  

gtkObjectGetClasses <-
function(w, check = TRUE)
{
 if(check)
     gtkCheckInherits(w, "GtkObject")
 .Call("R_getObjectTypeHierarchy", w)
}

gtkTypeGetClasses <-
function(type)
{
  if(is.character(type))
    type <- gtkGetType(type)

  gtkCheckInherits(type, "GtkType")
  .Call("R_getTypeHierarchy", type)
}  

gtkObjectGetType <-
function(w, check = TRUE)
{
 if(check)
    gtkCheckInherits(w, "GtkObject")
 .Call("R_getObjectType", w)
}

gtkGetType <-
  #
  # This only works after the class has been initialized
  # and that means an object has to be created or the class
  # loaded by some other means. In the future, we might try
  # some interesting generic mechanism to force this to happen
  # such as calling gtk_<name>_get_type()
function(name)
{
 .Call("R_getTypeFromName", as.character(name))
}  

# .Call("R_getSignalNames", gtkButton())

gtkObjectGetSignals <-
function(w)
{
  gtkCheckInherits(w, "GtkObject")
  els <- .Call("R_getSignalNames", w)
  names(els) <- sapply(els, function(x) names(x))

  els
}  

gtkTypeGetSignals <-
function(type)
{
  if(is.character(type))
    type <- gtkGetType(type)
  else if(inherits(type, "GtkObject")) {
    type <- gtkObjectGetType(type)
  }
  
  gtkCheckInherits(type, "GtkType")
  els <- .Call("R_getSignalNamesByType", type)

  names(els) <- sapply(els, function(x) names(x))

  els  
}  


gtkSignalGetInfo <-
function(sig)
{
 gtkCheckInherits(sig, "GtkSignalId")
 .Call("R_gtkGetSignalInfo", sig)
}  



if(FALSE) {
 bitAnd <- 
 function(value, els)
 {
  els <- as.integer(els)
  .C("Rgtk_bitAnd", as.integer(value), els, length(els), ans = logical(length(els)))$ans
 }
}
gtkToggleButton <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkToggleButtonNew ( show, .flush )
  else
     gtkToggleButtonNewWithLabel ( label, show, .flush )
}
 

gtkProgressBar <-
function( adjustment = NULL, show = TRUE, .flush = TRUE )
{
  if(missing( adjustment ))
     gtkProgressBarNew ( show, .flush )
  else
     gtkProgressBarNewWithAdjustment ( adjustment, show, .flush )
}
 

gtkCheckButton <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkCheckButtonNew ( show, .flush )
  else
     gtkCheckButtonNewWithLabel ( label, show, .flush )
}
 

gtkMenuItem <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkMenuItemNew ( show, .flush )
  else
     gtkMenuItemNewWithLabel ( label, show, .flush )
}
 

gtkButton <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkButtonNew ( show, .flush )
  else
     gtkButtonNewWithLabel ( label, show, .flush )
}
 

gtkCheckMenuItem <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkCheckMenuItemNew ( show, .flush )
  else
     gtkCheckMenuItemNewWithLabel ( label, show, .flush )
}
 

gtkRadioButton <-
function( group = NULL, label, show = TRUE, .flush = TRUE )
{
  if(missing( group ))
     gtkRadioButtonNewFromWidget ( group, show, .flush )
  else
     gtkRadioButtonNewWithLabelFromWidget ( group, label, show, .flush )
}
 

gtkCList <-
function( columns, titles, show = TRUE, .flush = TRUE )
{
  if(missing( columns ))
     gtkCListNew ( columns, show, .flush )
  else
     gtkCListNewWithTitles ( columns, titles, show, .flush )
}
 

gdkCursor <-
function( cursor.type = GdkCursorType[1], source, mask, fg, bg, x, y )
{
  if(missing( cursor.type ))
     gdkCursorNew ( cursor.type )
  else
     gdkCursorNewFromPixmap ( source, mask, fg, bg, x, y )
}
 

gtkEntry <-
function( max, show = TRUE, .flush = TRUE )
{
  if(missing( max ))
     gtkEntryNew ( show, .flush )
  else
     gtkEntryNewWithMaxLength ( max, show, .flush )
}
 

gtkTreeItem <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkTreeItemNew ( show, .flush )
  else
     gtkTreeItemNewWithLabel ( label, show, .flush )
}
 

gtkRadioButton <-
function( group = NULL, label, show = TRUE, .flush = TRUE )
{
  if(missing( group ))
     gtkRadioButtonNewFromWidget ( group, show, .flush )
  else
     gtkRadioButtonNewWithLabelFromWidget ( group, label, show, .flush )
}
 

gtkListItem <-
function( label, show = TRUE, .flush = TRUE )
{
  if(missing( label ))
     gtkListItemNew ( show, .flush )
  else
     gtkListItemNewWithLabel ( label, show, .flush )
}
 

gtkText <- gtkTextNew
gtkVScrollbar <- gtkVScrollbarNew
gtkAccelGroup <- gtkAccelGroupNew
gtkFixed <- gtkFixedNew
gtkList <- gtkListNew
gtkFrame <- gtkFrameNew
gtkNotebook <- gtkNotebookNew
gtkLayout <- gtkLayoutNew
gtkTable <- gtkTableNew
gtkOptionMenu <- gtkOptionMenuNew
gtkTipsQuery <- gtkTipsQueryNew
gtkVRuler <- gtkVRulerNew
gtkColorSelection <- gtkColorSelectionNew
gtkAccelLabel <- gtkAccelLabelNew
gtkScrolledWindow <- gtkScrolledWindowNew
gtkArrow <- gtkArrowNew
gtkCurve <- gtkCurveNew
gtkFileSelection <- gtkFileSelectionNew
gtkPlug <- gtkPlugNew
gtkCombo <- gtkComboNew
gtkHScrollbar <- gtkHScrollbarNew
gtkMenuBar <- gtkMenuBarNew
gtkToolbar <- gtkToolbarNew
gtkItemFactory <- gtkItemFactoryNew
gtkInputDialog <- gtkInputDialogNew
gtkVPaned <- gtkVPanedNew
gtkStatusbar <- gtkStatusbarNew
gtkAdjustment <- gtkAdjustmentNew
gtkFontSelection <- gtkFontSelectionNew
gtkPreview <- gtkPreviewNew
gtkPixmap <- gtkPixmapNew
gtkTearoffMenuItem <- gtkTearoffMenuItemNew
gtkCalendar <- gtkCalendarNew
gtkHButtonBox <- gtkHButtonBoxNew
gtkAlignment <- gtkAlignmentNew
gtkLabel <- gtkLabelNew
gtkHandleBox <- gtkHandleBoxNew
gtkDialog <- gtkDialogNew
gtkHSeparator <- gtkHSeparatorNew
gtkGammaCurve <- gtkGammaCurveNew
gtkPacker <- gtkPackerNew
gtkSpinButton <- gtkSpinButtonNew
gtkDrawingArea <- gtkDrawingAreaNew
gtkWindow <- gtkWindowNew
gtkHScale <- gtkHScaleNew
gtkVButtonBox <- gtkVButtonBoxNew
gtkColorSelectionDialog <- gtkColorSelectionDialogNew
gtkVSeparator <- gtkVSeparatorNew
gtkHRuler <- gtkHRulerNew
gtkFontSelectionDialog <- gtkFontSelectionDialogNew
gtkSocket <- gtkSocketNew
gtkVScale <- gtkVScaleNew
gtkTooltips <- gtkTooltipsNew
gtkAspectFrame <- gtkAspectFrameNew
gtkVBox <- gtkVBoxNew
gtkViewport <- gtkViewportNew
gtkMenu <- gtkMenuNew
gtkTree <- gtkTreeNew
gtkHBox <- gtkHBoxNew
gtkHPaned <- gtkHPanedNew
gtkEventBox <- gtkEventBoxNew





.GtkClasses  <- c( "GtkAccelLabel", "GtkAdjustment", "GtkAlignment", "GtkArrow", "GtkAspectFrame", "GtkBin", "GtkBox", "GtkButton", "GtkButtonBox", "GtkCalendar", "GtkCheckButton", "GtkCheckMenuItem", "GtkCList", "GtkColorSelection", "GtkColorSelectionDialog", "GtkCombo", "GtkContainer", "GtkCTree", "GtkCurve", "GtkData", "GtkDialog", "GtkDrawingArea", "GtkEditable", "GtkEntry", "GtkEventBox", "GtkFileSelection", "GtkFixed", "GtkFontSelection", "GtkFontSelectionDialog", "GtkFrame", "GtkGammaCurve", "GtkHandleBox", "GtkHBox", "GtkHButtonBox", "GtkHPaned", "GtkHRuler", "GtkHScale", "GtkHScrollbar", "GtkHSeparator", "GtkInputDialog", "GtkItem", "GtkItemFactory", "GtkLabel", "GtkLayout", "GtkList", "GtkListItem", "GtkMenu", "GtkMenuBar", "GtkMenuItem", "GtkMenuShell", "GtkMisc", "GtkNotebook", "GtkObject", "GtkOptionMenu", "GtkPacker", "GtkPaned", "GtkPixmap", "GtkPlug", "GtkPreview", "GtkProgress", "GtkProgressBar", "GtkRadioButton", "GtkRadioMenuItem", "GtkRange", "GtkRuler", "GtkScale", "GtkScrollbar", "GtkScrolledWindow", "GtkSeparator", "GtkSocket", "GtkSpinButton", "GtkStatusbar", "GtkTable", "GtkTearoffMenuItem", "GtkText", "GtkTipsQuery", "GtkToggleButton", "GtkToolbar", "GtkTooltips", "GtkTree", "GtkTreeItem", "GtkVBox", "GtkVButtonBox", "GtkViewport", "GtkVPaned", "GtkVRuler", "GtkVScale", "GtkVScrollbar", "GtkVSeparator", "GtkWidget", "GtkWindow" )

gtkTopWindow <-
function(title="My Window", show = TRUE)
{
 w <- .Call("R_gtk_window", as.character(title))
 class(w) <- "GtkWindow"

 if(show)
   gtkWidgetShow(w)
 w
}

gtkAdd <-
  #
  # Turn this around so that the parent is first to 
  # be consistent with gtkContainerAdd()
  # Also, make this ....
function(parent, ..., .flush = TRUE)
{
  widgets <- list(...)
  if(length(widgets) == 0)
    stop("No widgets to add to parent")

  if(!all(sapply(widgets, gtkCheckInherits))) {
    stop("Non widget objects passed to gtkAdd()")
  }

  .GtkCall("R_gtk_addWidget", parent, widgets, .flush = .flush)
}

gtkShow <-
function(..., all=TRUE, .flush = TRUE)
{
 .GtkCall("R_gtk_showWidget", list(...), as.logical(all), .flush = .flush)
}

gtkAddCallback <- gtkObjectAddCallback <-
function(w, signal, f, data = NULL, object = TRUE, after = TRUE)
{
  useData <- missing(data) == FALSE
  gtkCheckInherits(w, "GtkObject")

  if(is.null(f))
    stop("You've specified NULL as the action in setting a callback. Did you mean to use quote()")

  if(is.expression(f)) {
    f <- f[[1]]
  }
  
  if(!( is.expression(f) || is.function(f) || is.call(f))) {
    stop(paste("Callback action must be an expression, a call or a function, but instead is of type", typeof(f), ". Did you forget to use quote()"))
  }

  .Call("R_gtk_setCallback", w, f, as.character(signal), data, useData, as.logical(object), as.logical(after))
}

gtkObjectRemoveCallback <- gtkObjectDisconnectCallback <-
function(obj, id)
{
 gtkCheckInherits(obj, "GtkObject")    
 .Call("R_gtk_disconnectSignalHandler", obj, as.integer(id))
}

gtkObjectBlockCallback <-
function(obj, id)
{
  gtkCheckInherits(obj, "GtkObject")  
 .Call("R_gtk_blockSignalHandler", obj, as.integer(id), TRUE)
}

gtkObjectUnblockCallback <-
function(obj, id)
{
  gtkCheckInherits(obj, "GtkObject")
 .Call("R_gtk_blockSignalHandler", obj, as.integer(id), FALSE)
}  


gtkAddTimeout <-
function(interval, f, data = NULL, .flush = TRUE)
{
 useData <- !missing(data)

 if(!is.function(f))
   stop("Timeout handlers must be function objects")
 
 .GtkCall("R_gtkAddTimeout", as.integer(interval),  f, data, useData, .flush = .flush)
}  


gtkRemoveTimeout <-
function(id)
{
  gtkCheckInherits(id, "GtkTimeoutId")
  .Call("R_gtkRemoveTimeout", as.integer(id))
}  


gtkAddIdle <-
function(f, data = NULL, .flush = TRUE)
{
 useData <- !missing(data)

 if(!is.function(f)) {
  stop("Idle functions must be functions!")
 }

  .GtkCall("R_gtkAddIdle", f, data, useData, .flush = .flush)
}

gtkRemoveIdle <-
function(id)
{
  gtkCheckInherits(id, "GtkIdleId")
  .Call("R_gtkRemoveIdle", as.integer(id))
}  
.AllGtkClasses <- c(.GdkClasses, .GtkClasses, .GnomeUIClasses)
.gtkArgs <-
function()
{
 c("R")
}

.First.lib <-
function(libname, pkgname)
{
 library.dynam("RGtk", pkgname, libname)

 if(is.function(.gtkArgs))
  args <- .gtkArgs()
 else
  args <- as.character(.gtkArgs)

 # Should we defer this and leave it to the user.
 gtkInit(args)
}
