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

# MAKE sure that all of the sources are identified to the program
 
source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GPH GUI PLT UTILS UDF UDFDB GUIUTILS
 
lappend auto_path [file join $env(TCLTOOLS_HOME) TclEUVSim]
package require EUVSim
package require EUVSim_C

PreMenuSetup
if { $argc == 0 } {
   UserInterface
} else {
   set euvANS(noGUI) 1
   GUIprefsRead
   set euvANS(miFile) [lindex $argv 0]
   UserInterface
   ReadMenu
}

if [string match AUTO $euvANS(pState)] { exit }
