#specmain.tcl
# Copyright (c) 2001-2004 Digi International Inc., All Rights Reserved
# 
# This software contains proprietary and confidential information of Digi
# International Inc.  By accepting transfer of this copy, Recipient agrees
# to retain this software in confidence, to prevent disclosure to others,
# and to make no use of this software other than that for which it was
# delivered.  This is an unpublished copyrighted work of Digi International
# Inc.  Except as permitted by federal law, 17 USC 117, copying is strictly
# prohibited.
# 
# Restricted Rights Legend
#
# Use, duplication, or disclosure by the Government is subject to
# restrictions set forth in sub-paragraph (c)(1)(ii) of The Rights in
# Technical Data and Computer Software clause at DFARS 252.227-7031 or
# subparagraphs (c)(1) and (2) of the Commercial Computer Software -
# Restricted Rights at 48 CFR 52.227-19, as applicable.
#
# Digi International Inc. 11001 Bren Road East, Minnetonka, MN 55343
#
# ***************************************************************************

# This  file usually just calls main.tcl.  Might be a good spot for a splash screen.

set os [lindex $::argv 0]
## Find the installation dir by looking relative to executable
set dgRoot [file dirname [file dirname [file dirname [file dirname [info nameofexecutable]]]]]
set tclRoot [file join $dgRoot tcl-tk]

set auto_path {}
lappend auto_path [file join $tclRoot $os lib]
lappend auto_path [file join $tclRoot $os lib tcl8.3]
lappend auto_path [file join $tclRoot $os bin]
lappend auto_path [file join $tclRoot lib]
lappend auto_path [file join $tclRoot lib tcl8.3]
lappend auto_path [file join $tclRoot lib tk8.3]
lappend auto_path [file join $tclRoot lib widget]
lappend auto_path [file join $tclRoot lib tools]
lappend auto_path [file join $tclRoot lib tcllib0.8]                     

source frontend/common/main.tcl