#!/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) dBTools]
package require dBTools
lappend auto_path [file join $env(UDFTOOL_HOME) Client]
package require Client
package require http

UDFInits
dBaskGUI
