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

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits FFT GPH GPHUTILS GUI PLT UTILS UDF UDFDB UDFUTILS GUIUTILS

lappend auto_path [file join $env(TCLTOOLS_HOME) TclAnalysis]
package require UDFAnalysis

# READ in any user defined configuration parameters

TUreadUDFrc UDFAnalysis MoPs
if [info exists MoPs(VIDFPr)] {
   set apANS(VIDFPr) $MoPs(VIDFPr)
} else { set apANS(VIDFPr) NONE }

APallInits EARLY
APplugIns

APallInits PREMENU
APreadPrefs

UDFInits $apANS(VIDFPr)

APmainGUI
if { $argc > 0 } {
   .apMENU.im configure -fg #000000
   .apMENU.sm configure -fg #000000
   set apANS(miFile) [lindex $argv 0]
   set apANS(moFile) [lindex $argv 0]
   APreadMenu
}
