Displaying 2 results from an estimated 2 matches for "gettoolkitwidget".
2009 May 27
0
invisible columns
...s
> follows:
>
> library(gWidgets)
> library(RGtk2) ## load in RGtk2 methods
> options(guiToolkit="RGtk2")
>
> t <- gtable(mtcars[1:5, 1:4], cont = gwindow())
>
> removeColumn <- function(t, col.num) {
> name <- names(t)[col.num]
> tbl <- getToolkitWidget(t)
> ## remove a column, but store old one first to add back
> col <- tbl$getColumn(col.num - 1) # 0- based
> tbl$removeColumn(col)
> return(list(name=name, col=col))
> }
>
> addColumn <- function(t, col, col.num) {
> tbl <- getToolkitWidget(t)
> ## ad...
2012 Nov 30
1
How to add widgets of gWidgets to widgets of rgtk2 ???
I have a layout in gwidgets. To this, I wanted to add a Textbox(gtkEntry)
created from rgtk2...
The code is as follows:
MainLayOut <- glayout(homogeneous = FALSE, spacing = 10, container =
SubGroup)
MainLayOut[1, 1, anchor=left] <- "Number of Total Patients: "
font(MainLayOut[1, 1, anchor=left]) <- c(weight="bold")
patients <- gtkEntry()