#!/bin/sh
# the next line restarts using wish \
exec wish $0 $@

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GPH GUI GUIUTILS PLT UTILS UDF UDFDB FFT
lappend auto_path [file join $env(TCLTOOLS_HOME) TclGMEplots]
package require GMEPlot

if { $argv > 0 } { 
   set gmANS(OptFile) [lindex $argv 0] 
   set gmANS(saveM) [lindex $argv 0] 
   RetrieveOpts
}

Inits
UserInterface
