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")

しかし、これは機能しません