# $Header: /home/cvsroot/tcldb/wisql/Tlib/tryOpen,v 1.2 1998/02/16 04:41:04 de Exp $
# tcl procs saved on Tue Sep 05 09:33:18 PDT 1995

proc tryOpen {win filename} {

  global currentFile
  global cmdIdx
  global cmdLast
  global MsgW


  set cmdIdx $cmdLast

  if [file isfile $filename] {
    clearsql
    clearoutput 1
    set currentFile [file tail $filename]
    .m.s.l   configure -text "SQL (${currentFile})"
    set result_lines [exec cat -s $filename]
    .m.s.sql insert 1.0 "$result_lines"
    setMsg $MsgW "$filename loaded"
    destroy $win
  } else {
    setMsg $MsgW "$filename not found"
  }
  focus .m.s.sql

}

