# $Header: /home/cvsroot/tcldb/wisql/Tlib/insSql,v 1.2 1997/05/27 06:09:41 de Exp $
# tcl procs saved on Tue Sep 05 09:33:01 PDT 1995

proc insSql {} {

  global cmdRing
  global cmdIdx
  global cmdLast
  global CmdText

  set currentSql [$CmdText get 1.0 end]

  # don't save null buffers
  if {[string length [string trim $currentSql]] == 0} {
    return
  }

  set cmdRing($cmdLast) $currentSql

  set cmdIdx $cmdLast

  incr cmdLast
  if {$cmdLast > 9} {
    set cmdLast 0
  }

}

