r - 如何在 gWidgets 中更改 gframe 的背景颜色？

Question

我正在gWidgetsR 中构建一个 GUI，但我需要将背景颜色gFrame从“灰色”更改为“黄色”。谢谢

Answer 1

它应该是这样的

library(RGtk2); 
getBlock(fr)$modifyBg(GtkStateType["normal"], "yellow")

但这只适用于最外面的框架。不幸的是，要做到这一点，您需要将容器打包到一个事件框中并为其着色。这是模式：

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

w <- gwindow("test")
g <- ggroup(cont=w)

e <- gtkEventBox()
getWidget(g)$packStart(e, expand=TRUE, fill=TRUE)
fr <- gframe("Label")                    # no container
e$add(getBlock(fr))
e$modifyBg(GtkStateType["normal"], "yellow")

gbutton("click me", cont=fr)
glabel("a label", cont=fr)

Answer 2

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

w <- gwindow("test")
g <- ggroup(cont=w)

e <- gtkEventBox()
getToolkitWidget(g)$packStart(e, expand=TRUE, fill=TRUE)
fr <- gframe("Label")                    # no container
e$add(widget@widget@block(fr))
e$modifyBg(GtkStateType["normal"], "yellow")

gbutton("click me", cont=fr)
glabel("a label", cont=fr)

出现下一个 Error: Error en checkPtrType(widget, "GtkWidget") : not found 'widget' obj