gdkCursorNewFromPixmap示例错误

gdkCursorNewFromPixmap

中的示例代码导致Ubuntu上的r2.14.1和

RGtk2

2.20.25出现错误

代码：

---

它归结为

GdkPixmap

不等于

GdkBitmap

，使用

gtk\u pixmap\u new

而不是

gtk\u bitmap\u从数据创建（顺便说一句，这是不推荐的）（使它们适应命名约定）
谢谢您的回复！我更改了代码：source将该注释作为您问题的更新，我将根据您的问题更新我的答案。如果您没有，您将在您自己的问题中添加注释。编辑实际问题，使代码高亮显示有效。哎呀！好的，我更改了问题中的代码。谢谢你的提示！我更改了代码：source
library(RGtk2)

# This data is in X bitmap format, and can be created with the 'bitmap' utility in X11
cursor1_width <- 16
cursor1_height <- 16
cursor1_bits <- c(
  0x80, 0x01, 0x40, 0x02, 0x20, 0x04, 0x10, 0x08, 0x08, 0x10, 0x04, 0x20,
  0x82, 0x41, 0x41, 0x82, 0x41, 0x82, 0x82, 0x41, 0x04, 0x20, 0x08, 0x10,
  0x10, 0x08, 0x20, 0x04, 0x40, 0x02, 0x80, 0x01)
cursor1mask_bits <- c(
  0x80, 0x01, 0xc0, 0x03, 0x60, 0x06, 0x30, 0x0c, 0x18, 0x18, 0x8c, 0x31,
  0xc6, 0x63, 0x63, 0xc6, 0x63, 0xc6, 0xc6, 0x63, 0x8c, 0x31, 0x18, 0x18,
  0x30, 0x0c, 0x60, 0x06, 0xc0, 0x03, 0x80, 0x01)
 fg <- c(65535, 0, 0) # Red.
 bg <- c(0, 0, 65535) # Blue.
 source <- gdkPixmapNew(NULL, cursor1_width, cursor1_height, 8) 
 mask <- gdkPixmapNew(NULL, cursor1_width, cursor1_height, 8) 
 cursor <- gdkCursorNewFromPixmap(source, mask, fg, bg,0,0 )

Error in checkPtrType(source, "GdkPixmap") : 
  object of class GdkBitmap, RGtkObject isn't a GdkPixmap
Calls: gdkCursorNewFromPixmap -> checkPtrType