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

Question

我想將鼠標光標更改爲一隻手，用於單擊圖像。

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

我已閱讀其他帖子相關，但setCursor不能在小工具上工作。

謝謝

Answer 1

看這裏（how can i change the shape mouse cursor in 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下有效。如果它不適合你，你能指出你正在嘗試哪個操作系統嗎？