R/gseparator.R

In gWidgetsrJava: Toolkit implementation of gWidgets for rJava

##################################################
## add a separator to a container. Needs the container

setClass("gSeparatorrJava",
         contains="gComponentrJava",
         prototype=prototype(new("gComponentrJava"))
         )

## should this return object?
setMethod(".gseparator",
          signature(toolkit="guiWidgetsToolkitrJava"),
          function(toolkit,
                   horizontal = TRUE, container = NULL, ...) {

            force(toolkit)

            j = .jnew("javax/swing/JSeparator")
            
            if(horizontal) {
              separator = .jnew("javax/swing/JSeparator",
                .jfield(j,name="HORIZONTAL"))
            } else {
              separator = .jnew("javax/swing/JSeparator",
                .jfield(j,name="VERTICAL"))
            }

            obj = new("gSeparatorrJava", block=separator, widget=separator,
              toolkit=toolkit, ID=getNewID(), e = new.env())

            if (!is.null(container)) {
              if(is.logical(container) && container == TRUE)
                container = gwindow(visible=TRUE)
              add(container, obj, ...)
            }

            invisible(obj)
            
          })



.isgSeparator <- function(obj) {
  (is(obj,"guiComponent") && is(obj@widget,"gSeparatorrJava") ) ||
  is(obj,"gSeparatorrJava")
}