proc megaaa {} {
.l configure -text {目があぁぁぁ！}
}

pack [label .l -text {Tclは滅びん。何度でも蘇るさ。}]
pack [button .b -text {バルス} -command megaaa}