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

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

lappend auto_path [file join $env(UDFTOOL_HOME) UDFToIDL MENU]
package require UDFUnits

UDFInits
uUInits
set MaxInCol 20

if {$argc > 0 } {
   set uUANS(SaveName) [lindex $argv 0]
    uUReadSave
} else {
   set uUANS(SaveName) UDFUNITS.save
}

uUStart
