How i can change the background color of gframe in gWidgets?

Question

I am building a GUI in gWidgets R, but I need to change background color of a gFrame from "gray" to "yellow". Thanks

Answer 1

It should be something like this

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

but that only does the outer most frame. Unfortunately, to do this you need to pack the container into an event box and color that. Here is the pattern:

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)

appear the next Error:Error en checkPtrType(widget, "GtkWidget") : not found 'widget' obj