R/AllTkProgressMonitorGenerics.R

In SuperCurveGUI: 'SuperCurve' GUI Package

###
### $Id: AllTkProgressMonitorGenerics.R 825 2014-06-25 22:06:03Z proebuck $
###


##
## Accessors
##
if (!isGeneric("progressContinue")) {
    setGeneric("progressContinue",
               function(object, ...) standardGeneric("progressContinue"))
}

##
## Mutators
##
if (!isGeneric("progressAbort<-")) {
    setGeneric("progressAbort<-",
               function(object, ..., value) standardGeneric("progressAbort<-"))
}