<![CDATA[
# attenzione : se non si antepone } ad else nella stessa riga, da errore !
frame .f
text .f.text
pack .f.text
pack .f
set a 10
set b 20
if {$a > $b} {
.f.text insert end "$a e' maggiore di $b"
} else {
.f.text insert end "$a e' minore di $b"
}
]]>
if_else.tcl