The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

DOCUMENTATION

SYNOPSIS

 PROGRAM NAME: iVA 
 AUTHOR: Juan Lorenzo
 DATE:  April 2 2009 
        October 2014
        July    2015 updated to oop
        August  2015 introduced Tk widgets
        August  16 made all event-driven
                Aug 18  2016 made configuration files simple

 DESCRIPTION: Interactively test NMO in data
 Verstion 2.0 MainWIndow in subroutine 
              leads to multiple segementation faults
              when MainWindow is destroyed > 1
 Version: 2.1 is fully event driven

USE

NOTES

Examples

SEISMIC UNIX NOTES =head4 CHANGES and their DATES

STEPS

 1.  use the local library of the user
 1.1 bring is user variables from a local file
 2.  create instances of the needed subroutines

Import

 packages

instantiate methods

Declare variables

   in local memory space

Check

  for old data

Create Main Window

 and start event-driven loop
 Interaction with user
 initialize values
 If picks are new, show
 message to user on how to pick data
  -Based on semblance,
      decide whether to PICK or move on to NEXT CDP
   -radio_buttons stop flow
   Must be AFTR semblance

 set the prompt value according
 to which button is pressed
 then exit the MainLoop
 destroy the main window after the prompt
 is properly set
 A callback to:
 send cdp number to $iVA
 delete output of previous semblance
 plus more callbacks following...
      -PRESS the CALC button
      -Increment number of tries to make
         semblance display interact and show old picks
         (number_of_tries >1)
                -radio_buttons stop flow
           Must be AFTR semblance
           B4  iWrite_All_iva_out
  In this case the $variable is empty
  1. increment cdp
     Exit if beyond last cdp 
  2. reset prompt
  3. Otherwise display the first sembance
  4 ... see following callbacks
  saying goodbye 
  clear old images
  kill window
  stop script
 return which prompt has been set