r语言 - 如何将纺车动画添加到 gWidgets GUI

Question

我刚刚开始在R中制作GUI，作为第一步，我在冒险进入一些较低级别的框架之前使用gWidgets...

我想添加一个纺车动画来显示进程正在运行。虽然gWidgets似乎不支持这一点，但RGtk2支持。

所以我的基本问题是，当 gWidgets 不支持 gWidgets 时，如何将 RGtk2 小部件添加到 gWidgets GUI 中。另外，添加后如何操作小部件...

提前致谢

托马斯

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 小部件可以做类似的事情，但不是这个。