#!/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
lappend auto_path [file join $env(TCLTOOLS_HOME) TclGEOplots]
package require GEOplot

if { $argv > 0 } {
   set pgmOPTS(OptFile) [lindex $argv 0]
   set pgmOPTS(saveM) [lindex $argv 0]
   ReadOpts
}

Inits
UserInterface
