PICK Buttons for swig

Share:

Description

Picking functions for swig

Usage

1
Pick3(nh, g)

Arguments

nh

waveform list for RSEIS

g

plotting parameter list for interactive program

Details

Buttons can be defined on the fly.

Pick3

Multiple picks on a panel

Value

The return value depends on the nature of the function as it is returned to the main code swig. Choices for returning to swig are: break, replot, revert, replace, donothing, exit.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

swig, PickWin

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
## Not run: 
library(RSEIS)
MYFUNC<-function(nh, g)
  {
    print("pressed MYFUNC")
    d = data.frame(list(stations=nh$STNS, components=nh$COMPS))
print(d)        
    g$action = "replot"
    invisible(list(global.vars=g))	
  }

STDLAB=c("DONE", "QUIT", "SELBUT" , "MYFUNC" )
data(GH)
JJ = swig(GH, sel=1:10, STDLAB=STDLAB)


## End(Not run)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.