# $Header: /home/cvsroot/tcldb/wisql/Tlib/clearsql,v 1.2 1998/02/16 04:40:50 de Exp $
# tcl procs saved on Tue Sep 05 09:32:31 PDT 1995

proc clearsql {} {
  global currentFile
  global cmdIdx
  global cmdLast
  global MsgW

  set cmdIdx $cmdLast

  .m.s.sql delete 1.0 end
  .m.s.l   configure -text "SQL (noname)"
  set currentFile ""
  setMsg $MsgW ""
  focus .m.s.sql
}

