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

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GUI

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

# GET the time out value if set otherwise devault to 15 seconds

AUreadUDFrc udfLibrarian udfRc
if [info exists udfRc(TmOut)] { 
    set auANS(TmOut) $udfRc(TmOut) 
} else { set auANS(TmOut) 15000 }

AUinits
AUsysDeps
AUinstalledPkgs
AUguiFrontEnd
