RSEIS (version 3.5-2)

XTR: Buttons for swig

Description

defining functions for swig

Usage

XTR(nh, g)
NEXT(nh, g)
PREV(nh, g)
HALF(nh, g)
MARK(nh, g)
DOC(nh, g)
REFRESH(nh, g)
RESTORE(nh, g)
ZOOM.out(nh, g)
ZOOM.in(nh, g)
RIGHT(nh, g)
LEFT(nh, g)
SCALE(nh, g)
PSEL(nh, g)
FLIP(nh, g)
PTS(nh, g)
FILT(nh, g)
UNFILT(nh, g)
SPEC(nh, g)
WWIN(nh, g)
SGRAM(nh, g)
WLET(nh, g)
XTR(nh, g)
Pinfo(nh, g)
TSHIFT(nh, g)
RMS(nh, g)
LocStyle(nh, g)
CENTER(nh, g)
fspread(nh, g)
Xwin(nh, g)

Arguments

nh

waveform list for RSEIS

g

plotting parameter list for interactive program

Value

as it is returned to the main code swig. Choices for returning to swig are: break, replot, revert, replace, donothing, exit.

Details

Buttons can be defined on the fly.

See Also

swig

Examples

## Not run: 
# 
# MYFUNC<-function(nh, g)
#   {
#     print("pressed MYFUNC")
#     g$sel
#     d  <-  data.frame(list(stations=nh$STNS[g$sel],
#                    components=nh$COMPS[g$sel]))
#      print(d)        
#     g$action  <-  "replot"
#     invisible(list(global.vars=g))	
#   }
# 
# STDLAB <- c("DONE", "QUIT", "SELBUT" , "PSEL", "MYFUNC" )
# data(GH)
# JJ  <-  swig(GH, sel=1:10, STDLAB=STDLAB)
# 
# ## End(Not run)