R/gsvg.R

In gWidgets: gWidgets API for building toolkit-independent, interactive GUIs

##' @include guiComponents.R

##' Class for widget to display SVG data
setClass("gSvg",
         contains="guiComponent",
         prototype=prototype(new("guiComponent"))
         )

##' construtor for widget to display svg data
##'
##' Reimplemented methods:
##' \enumerate{
##' \item \code{svalue} returns file name
##' \item \code{svalue<-} set image from file
##' }
##' @exports
##' @param filename name of file to write to
##' @param width width in pixels
##' @param height height in pixels
##' @param handler (if implemented) add handler to be called on mouse click
##' @param action passed to handler
##' @param container parent container
##' @param ... passed to \code{add} method of container
##' @param toolkit toolkit
##' @note A native svg driver is available for Qt, but not tcltk, Gtk.
gsvg <- function(
                 filename="", width=480, height=480,
                 handler=NULL, action=NULL,
                 container = NULL, ... ,
                 toolkit=guiToolkit()){
  widget <- .gsvg (toolkit,
                   filename=filename, width=width, height=height,
                   handler=handler, action=action, container=container ,...
                   )
  obj <- new( 'gSvg',widget=widget,toolkit=toolkit) 
  return(obj)
}

##' generic for toolkit dispatch
##' @alias gsvg
setGeneric( '.gsvg' ,
           function(toolkit,
                    filename = "", width=480,  height=480,
                    handler=NULL, action=NULL,
                    container = NULL, ... )
           standardGeneric( '.gsvg' ))


##' gsvg constructor for ANY class (default to label)
setMethod(".gsvg",
          signature(toolkit="ANY"),
          function(toolkit,
                   filename = "", width=480, height=480,
                   handler=NULL, action=NULL,
                   container = NULL,
                   ...) {
            cat(gettext("gsvg widget not imlemented"))
            return(glabel(container=container, ...))
          })