inst/Examples/ch-RGtk2/ex-RGtk2-button-new-stock-hardway.R

In ProgGUIinR: support package for "Programming Graphical User Interfaces in R"

### R code from vignette source 'ex-RGtk2-button-new-stock-hardway.Rnw'

###################################################
### code chunk number 1: ButtonNewFromStockHardWay
###################################################
b <- gtkButton()
g <- gtkHBox()
pbuf <- b$renderIcon("gtk-ok", size=GtkIconSize["button"]) 
i <- gtkImageNewFromPixbuf(pbuf)
i['xalign'] <- 1; i['xpad'] <- 5        # right align with padding
g$packStart(i, expand=FALSE)
l <- gtkLabel(gettext("ok")); 
l['xalign'] <- 0 # left align
g$packStart(l, expand=TRUE, fill=TRUE)
b$add(g)
## show it
w <- gtkWindow(); w$add(b)