inst/Examples/ch-RGtk2/ex-RGtk2-simple-textview.R

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

### R code from vignette source 'ex-RGtk2-simple-textview.Rnw'

###################################################
### code chunk number 1: textViewBasics
###################################################
##   We illustrate the basics of using a text view, including setting some
## of the view's properties.

tv <- gtkTextView()
sw <- gtkScrolledWindow()
sw$setPolicy("automatic", "automatic")
sw$add(tv)

w <- gtkWindow(); w$add(sw)

tv['editable'] <- TRUE                  
tv['cursor-visible'] <- TRUE            
tv['wrap-mode'] <- "word"             # GtkWrapMode value
tv['justification'] <- "left"         # GtkJustification value
tv['left-margin'] <- 20               # 0 is default

tb <- tv$getBuffer()                    
tb$setText("the quick brown fox jumped over the lazy dog")

font.str <- "Serif, monospace bold italic 8"
font <- pangoFontDescriptionFromString(font.str)
tv$modifyFont(font)