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 が表示されます