# mark-test.tcl
#	(c) 1997 Michel Beaudouin-Lafon, mbl@lri.fr
#
# test de la machine a etats Mark de mark.tcl
# chaque geste reconnu est trace sur la sortie standard.

source smUtils.tcl
source mark.tcl

# --- test program

AddMachine Mark
EnableMachine Mark

proc AppProcessPosEvent {widget type x y} {
	# nothing
	puts "$type at $x $y"
}

proc AppProcessMarkEvent {widget type mark} {
	# nothing
	eval $widget create line $mark -tags mark -fill blue
	set flick [Mark::IsFlick $mark]
	if {$flick == "?"} {
		puts "unrecognized mark"
	} else {
		puts "flick $flick"
	}
}