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

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GUI UTILS UDF UDFDB GUIUTILS GPH PLT
lappend auto_path [file join $env(UDFTOOL_HOME) ArchTool]
package require ArTool
lappend auto_path [file join $env(UDFTOOL_HOME) Archive]
package require Server

# SET it so that output errors go to stderr

set sCFG(efd) stderr

GUIprefsRead
ATvarInit ALL
ATfrontGUI
