Изменение указателя мыши на виджет в 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. Если это не работает для вас, вы можете указать, какую ОС вы пытаетесь?