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

# SET the paths to the package libraries which are used
source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits UTILS UDF UDFDB GUI GUIUTILS

lappend auto_path [file join $env(UDFTOOL_HOME) CONtrol]
package require GMenu

lappend auto_path [file join $env(UDFTOOL_HOME) Client]
package require Client
package require http

set MName ""
if { $argc == 1 } { set MName [lindex $argv 0] }

set MTypes [list  UDFplot  ADump  UDFToCDF   Any]
set MExts  [list  uplt     admp   u2c        "" ]

GUIprefsRead
TUreadUDFrc CONTROL usrRc

set SrchName [list Current Default "User Set"]
set SrchPath [list [pwd] [file join $env(UDFTOOL_HOME) MenuFiles] ""]
set Prefs(SrchDir) ""
 
lappend SrchName [glob ~/]
lappend SrchPath [file join $env(UDFTOOL_HOME) GMenu Templates]
                                                                                
GM_StartUp
