如何向gWidgets图形用户界面添加旋转轮子动画

Question

我刚刚开始在R中制作图形用户界面，作为第一步，在冒险进入一些低级框架之前，我正在使用gWidgets……

我想添加一个旋转轮子动画，以显示进程正在运行。虽然gWidgets似乎不支持这一点，但RGtk2支持。

因此，我的基本问题是，当RGtk2不是“本地”支持的时候，如何向gWidgets图形用户界面添加一个gWidgets小部件。另外，一旦添加了小部件，您将如何操作……

提前感谢

托马斯

Answer 1

下面是如何在gWidgets或gWidgets2中(在github上)实现的：

library(gWidgets) ## or gWidgets2
options(guiToolkit="RGtk2")
library(RGtk2)    ## needed

w <- gwindow()
g <- ggroup(cont=w)
g1 <- ggroup(cont=g) ## holds spinner

b1 <- gbutton("stop spinner", cont=g, handler=function(h,...) {
  spin$stop()
})
b2 <- gbutton("remove spinner", cont=g, handler=function(...) {
  delete(g, g1)
})


spin <- gtkSpinner()
spin$start()

## pack into g1 box container:
## in gWidgets2 can do this: add(g1, spin)
## for gWidgets it can be hacked:
g1@widget@widget$packStart(spin)

在gWidgets2中，有一个gprogressbar小部件可以做类似的事情，但不是这样。