r - 如何更改 gWidgets RGtk2 中的形状鼠标光标？

Question

在 gWidgets 的 ggraphics 绘图区域中，将鼠标光标更改为“GDK_TCROSS”，但我想要 gwindow“GDK_LEFT_PTR”的相同鼠标光标：

 library(gWidgets)
 library(gWidgetsRGtk2)
 library(RGtk2)
 options(guiToolkit = "RGtk2")
 w=gwindow("")
 g=ggraphics(cont=w,no_popup=T,do.rubber.banding = F)
 plot(x,y)
 c=gdkCursorNew("GDK_TOP_LEFT_ARROW")
 getToolkitWidget(g)$ModifyCursor(c)

  or

 gtkWidgetModifyCursor(getToolkitWidget(g),"GDK_TCROSS","GDK_LEFT_PTR")

但这不起作用

Answer 1

gtkWidgetModifyCursor修改光标的颜色。您需要通过 设置光标gdkWindowSetCursor。为此，您需要获取与小部件关联的窗口：

getToolkitWidget(g)$getWindow()$setCursor(c)