如何在gmenu栏中为gactions添加工具提示？

Question

我想通过鼠标悬停在菜单栏中的特定条目上添加一个弹出工具提示（在光标的位置）。

我正在使用Windows，gwidgets与RGtk2和R版本3.0.3

我的代码如下所示：

PG_top  <- gwindow(...)     

action_list = list (  
  open = gaction(label = "Open...", tooltip = "Open a File", icon = "open", handler = openDialogHandler, parent = PG_top)
)

menu_bar_list <- list(File = list (
  Open = action_list$open
  )
)

menu_bar <- gmenu(menu_bar_list, cont=PG_top)

我没有收到任何错误消息或任何工具提示。这是一个工具包问题吗？我找到了一个名为＆＃34; addHandlerMouseMotion＆＃34;但我不知道这是否适用于我的问题以及该Handler内部的操作。如果我试试

tooltip<-(action_list[["open"]],"Open File")

或

tooltip<-(action_list$open,"Open File")

我收到错误消息：（...）中的错误：意外＆＃34;，＆＃34;

希望你能帮助我！