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

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

lappend auto_path [file join $env(TCLTOOLS_HOME) TclMOMENTS]
package require MOments
package require MOments_C

#source Sim.tcl
#source InT.tcl

MOallInits PREMENU
if { $argc == 0 } {
  MOguiMain
} else {
  set mANS(MenuRead) [lindex $argv 0]
  set mANS(MenuSave) [lindex $argv 0]
  MOguiMain
  MOmenuRead
}
