R/widget-method.R

In tengfei/visnab: VisNAB: An Interactive Toolkit for Visualizing and Exploring Genomic Data.

## setGeneric("widget", function(obj, ...) standardGeneric("widget"))

## for parameters
## setMethod("widget", "Parameters", function(obj){
##   ParametersControlPanel(obj)
## })

## graphic parameters kind of special..
setMethod("widget", "Parameters", function(obj){
  obj$widget()
})

## return a QMenu
setMethod("widget", "Group", function(obj){
  obj$widget()
})

setMethod("widget", "QtVisnabView", function(obj, gr, title, show = TRUE,...){
  obj$widget(show = show, gr = gr, title = title)
})