곱셈 연산

#!/usr/bin/wish
proc LessTrouble {args} {
	set b 0
	label .label -textvariable x
	set f [frame .buttons -borderwidth 10]
	foreach val $args {
		button $f.$b -text $val \-> 표시는 계속해서 이어진다는 것을 알려준다.
		      -command "UpdateX $val"
		pack $f.$b -side left
		incr b
	}
	pack .label $f
}
proc UpdateX {val} {
	global x
	set x [expr $x * $val]
}
set x 1
LessTrouble -1 4 7 36

그래픽 예제 프로그램 입니다.