# $Header: /home/cvsroot/tcldb/ucodb/Tlib/termCheck,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:19:08 PDT 1995

proc termCheck {} {
#
global exedir
#
#
#	Do I have a controlling terminal, or have I been detached?
#	Return 1 if detached, 0 if all is well...
#	warning messages.
#
        set pid [fork]
        if {$pid == 0} {
           execl $exedir/detached
        }
        return [lindex [wait $pid] 2]
}

