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

proc isXess {} {

  global xess_connection

  set xess_connection 0
  set isxess [info commands xess]

  if {$isxess != ""} {

        set xess_running [xess scan]
        if {$xess_running != ""} {
                set err [catch {xess connect xs}]
                if {$err} {
			.msg configure -text "Problem connecting to Xess"
                } else {
                        .msg configure -text "Xess connection enabled!"
                        set xess_connection 1
                }
        } else {
		.msg configure -text "Xess spreadsheet not running"
        }

  } else {
	.msg configure -text "This Tk does not have the Xess extension."
  }

}

