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

proc prevSql dir {

  global cmdRing
  global cmdIdx
  global cmdLast
  global CmdText

   set debug "noOp"


  set i 0
  set result_lines ""

  while {$i < 10 && [string length $result_lines] == 0} {
    incr cmdIdx $dir

    if {$cmdIdx < 0} {
      set cmdIdx 9
    }
    if {$cmdIdx > 9} {
      set cmdIdx 0
    }
    set result_lines $cmdRing($cmdIdx)
    incr i
  }

  if {[string length $result_lines] > 0} {
    $CmdText delete 1.0 end
    $CmdText insert 1.0 "$result_lines"
  }

}

