# $Header: /home/cvsroot/tcldb/ucodb/Tlib/dumpLB,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:19:07 PDT 1995

proc dumpLB {lbwidget txwidget} {

#	Given the names of a list box and a text widget, dump the
# 	contents of the listbox into the text widget.
#	(How do we know whether to clear or not?  Well, let's just
#	 always clear for now.)


	$txwidget delete 1.0 end

	loop i 0 [$lbwidget size] {

		$txwidget insert end "[$lbwidget get $i]\n"

	}

	update

}

