# 
#	(c) 1997, Michel Beaudouin-Lafon, mbl@lri.fr
#
#	debug-test.tcl	petit programme pour demontrer l'usage du debugger
#

source debug.tcl

# faire le menage
eval destroy [winfo children .]

# definir une procedure
proc foo { a1 a2 } {
	bar $a2 $a1
}

# definir une autre procedure
proc bar { b1 b2 } {
	puts bar
	array set t {x 1 y 2 z 3}
	
	# poser un breakpoint
	breakpoint
	puts "b1=$b1 b2=$b2"
	
	parray t
	# poser un autre breakpoint
	breakpoint
	puts done
}

# creer un widget
pack [button .foo -text "Foo" -command {foo 1 2}]