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

Question

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

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

我已经阅读了其他相关的帖子，但 setCursor 不适用于小部件。

谢谢

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。如果它不适合你，你能指出你正在尝试哪个操作系统吗？