1

gWidgets 中的font方法似乎不适用于gcheckbox（使用 RGtk2 工具包）。在以下代码中，样式正确应用于glabel对象，但对于gcheckbox.

library(gWidgets)
w <- gwindow("test", height=50)
g <- ggroup(container=w)
cb1 <- gcheckbox(text="one", container=g)
cb2 <- gcheckbox(text="two", container=g)
label <- glabel("text", container=g)
font(cb2) <- list(size=20)
font(label) <- list(size=20)

有没有办法使这项工作？

4

1 回答 1

0

API 中没有用于设置此字体的任何内容，但您可以将其破解：

## setfont properties
setfont_hack <- function(cb, spec) {
  require(RGtk2)
  widget <- getToolkitWidget(cb)$getChildren()[[1]]
  font_descr <- pangoFontDescriptionNew()
  if(!is.null(spec$weight))
    font_desc$setWeight(PangoWeight[spec$weight])
  if(!is.null(spec$style))
    font_desc$setStyle(PangoStyle[spec$style])
  if(!is.null(spec$scale))
    font_desc$setSize(spec$scale * PANGO_SCALE)
  if(!is.null(spec$family))
    font_desc$setFamily(spec$family)
  widget$modifyFont(font_desc)

  if(!is.null(spec$color))
    widget$modifyFg(GtkStateType[1], spec$color)
}

cb <- gcheckbox("label", cont=gwindow())
setfont_hack(cb, list(weight="bold", color="blue"))

实际上，在复选框的标签部分调用 font<- 就足够了（只是 getToolkitWidget(cb)$getChildren()[[1]]），但是没有正确设置继承。（S3 类没有正确提升到 S4。）

在gWidgets2RGtk2这并没有好多少，但你可以这样做：

require(RGtk2)
label <- getToolkitWidget(cb)$getChildren()[[1]]
cb$set_rgtk2_font(label, list(weight="bold"))
于 2013-02-19T02:19:19.497 回答