Pick3 {Rquake}

PICK Buttons for swig

Description

Picking functions for swig

Usage

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<[e-mail]>

See Also

swig, PickWin

Examples

if(interactive()){ 
######  interactive addition of button in swig
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, package='RSEIS')
JJ = RSEIS::swig(GH, sel=1:10, STDLAB=STDLAB)

}