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

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



  if {[string length $currentFile] == 0} {
    fileBox .save * "" "" doSaveAs
  } else {
    set f [open $currentFile w]
    puts $f [.m.s.sql get 1.0 end]
    close $f
    setMsg $MsgW "saved to $currentFile"
  }

}

