proc rotCmd {{dir {}} {t {}}} {

#$Header: /home/cvsroot/tcldb/ucodb/Tlib/rotCmd,v 1.1 1997/05/14 17:37:25 de Exp $

	global UserCmd lfp CmdRing CmdPtr LastPtr

	if {$dir == ""} {set dir next}
	if {$t == ""} {set t .cmdEdit.top.txt}

	set ptr $LastPtr
	if {$dir == "next"} {
		incr ptr 
	} else {
		incr ptr -1
	}

#	ugly
	if {$ptr < 0} {set ptr 9}
	if {$ptr > 9} {set ptr 0}

	if {[info exists CmdRing($ptr)]} {
		puts stderr "Display command $ptr"
		set cmd $CmdRing($ptr)
		$t delete 1.0 end
		$t insert 1.0 "$cmd"
		set LastPtr $ptr

	}

}

