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

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

lappend auto_path [file join $env(TCLTOOLS_HOME) TclPTPlots]
package require ptPlots

# DO any pre menu initializations

PTallInits PREMENU
PTplugIns

# IF no command line menu just put up a blank menu otherwise set it as the 
#   read and save option, bring up the main menu, and read in the menu
#   options

if { $argc == 0 } { 
   PTguiMain
} else {
   set ptANS(MenuRead) [lindex $argv 0]
   set ptANS(MenuSave) [lindex $argv 0]
   PTguiMain
   PTmenuRead
}
