在gWidgetsRGtk2中更改小部件的鼠标光标

Question

我想将鼠标光标更改为手，以单击图像。

hlp<-gimage("help", dirname="stock", size="dialog")
addHandlerClicked(hlp, handler=function(h,...) {
   browseURL("http://....")})

我读过其他相关文章，但setCursor在Widget上不起作用。

谢谢

Answer 1

在这里查看（ 如何在gWidgets RGtk2中更改形状的鼠标光标？ ），您可以看到RGtk2的需求。 尝试这个：

library(RGtk2)
w <- gwindow()
g <- ggroup(cont=w)
gbutton("button", cont=g)
img <- gimage("/Users/verzani/bubble-gum-art.jpg", cont=g)
old_cursor <- getToolkitWidget(img)$getWindow()$getCursor()
cross <- gdkCursorNew("GDK_TCROSS")

addHandler(img, "enter-notify-event", handler=function(h,...) {
           getToolkitWidget(img)$getWindow()$setCursor(cross)
           TRUE
           })


addHandler(img, "leave-notify-event", handler=function(h,...) {
           getToolkitWidget(img)$getWindow()$setCursor(old_cursor)
           TRUE
           })

在Mac OS X上可以使用。如果对您不起作用，您可以指出要使用的操作系统吗？