R/gbutton.R

In jverzani/gWidgets2Qt: Port of the gWidget2 API to the qtbase package

##' @include GWidget.R
##' @include icons.R
NULL


##' Toolkit  constructor
##'
##' @inheritParams gWidgets2::gbutton
##' @export
##' @rdname gWidgets2Qt-undocumented
##' @seealso The documentation for this is found at \code{\link{gbutton}}.
##' @method .gbutton guiWidgetsToolkitQt
##' @S3method .gbutton guiWidgetsToolkitQt
.gbutton.guiWidgetsToolkitQt <- function(toolkit, text,  handler, action, container, ...) {
  if(is(action, "GAction"))
    GButtonAction$new(toolkit, action, container, ...)
  else
    GButtonBase$new(toolkit, text, handler, action, container, ...)
}

## Button reference class
## See set_menu method to turn into popup menu
GButton <- setRefClass("GButton",
                            contains="GWidget",
                            fields=list(
                              other = "ANY"
                              ),
                            methods=list(
                              set_value=function(value, drop=TRUE, ...) {
                                if(missing(value))
                                  return()
                                widget$setText(value)

                                ## XXX Fill in when icons.R is ready
                                icon <- getStockIconByName(tolower(value))
                                icon <- as_qicon(icon)
                                if(!is.null(icon))
                                  widget$setIcon(icon)
                                ## widget$setIcon(Qt$QIcon())                                
                                ## if(!is.null(icon)) {
                                ##   if(is(icon, "QIcon"))
                                ##     widget$setIcon(icon)
                                ##   else if(is(icon, "QtEnum"))
                                ##     widget$setIcon(Qt$QApplication$style()$standardIcon(icon))
                                ## }
                              },
                              get_value=function(index=TRUE, drop=TRUE, ...) {
                                widget$text
                              },
                              set_menu=function(menu, ...) {
                                "Set a menu popuup for the button. Qt specific"
                                if(is.list(menu))
                                  menu <- gmenu(menu, popup=TRUE)
                                if(!is(menu, "GMenuPopup")) {
                                  message("set_menu called with gmenu(..., popup=TRUE) object")
                                  return()
                                }
                                widget$setMenu(menu$widget)
                              }
                              ))

GButtonBase <- setRefClass("GButtonBase",
                       contains="GButton",
                       methods=list(
                         
                         initialize=function(toolkit, text, handler, action, container, ..., fill=NULL) {
                           widget <<- Qt$QPushButton()
                           initFields(block=widget,
                                      change_signal="clicked"
                                      )
                           widget$setAutoDefault(TRUE)
                           
                           ## fill hack
                           if(is(container, "GBoxContainer") && (missing(fill) || is.null(fill)))
                             fill <- "x"
                           
                           add_to_parent(container, .self, ..., fill=fill)
                           
                           
                           if(!missing(text))
                                  set_value(text)
                           
                           handler_id <<- add_handler_changed(handler, action)
                           
                           callSuper(toolkit, ...)
                         }
                         ))
                         
GButtonAction <- setRefClass("GButtonAction",
                             contains="GButton",
                             methods=list(
                               initialize=function(toolkit,  action, container, ...) {
                                 widget <<- Qt$QPushButton()
                                 initFields(block=widget)
                                 widget$setAutoDefault(TRUE)
                                 
                                 add_to_parent(container, .self)
                           
                                 a <- getWidget(action)
                                 widget$addAction(a)

                                 ## need to set up connection between b and action
                                 ## leave icon coming from text, could do otherwise
                                 set_value(a$text)

                                 qconnect(widget,"clicked", function() a$trigger())
                                 qconnect(a, "changed", function() {
                                   set_value(a$text)
                                   set_enabled(a$enabled)
                                 })

                                 callSuper(...)
                               }
                               ))