如何纺车动画添加到gWidgets GUI

Question

我刚开始做GUI在R和作为第一步，我冒险进入一些低级别的框架之前，gWidgets工作...

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

所以我的基本问题是如何将RGtk2窗口小部件时的部件不是“原生”的gWidgets支持添加到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小部件来做类似的事情，但不是这样。