如何在gWidgets RGtk2中更改形状鼠标光标？

Question

在gWidgets的ggraphics的绘图区域中，将鼠标光标更改为＆＃34; GDK_TCROSS＆＃34;但是我想要gwindow的相同鼠标光标＆＃34; GDK_LEFT_PTR＆＃34;：

 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)