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

proc doNew {} {
  global currentFile
  global cmdIdx
  global cmdLast
  set cmdIdx $cmdLast
  global MsgW


  clearoutput 1
  clearsql

  setMsg $MsgW ""
  focus .m.s.sql

  set currentFile ""
}

