<![CDATA[
# generalmente quando si verifica un errore, lo script si interrompe
# con questo comando l'errore viene prevenuto
# quindi tale istuzione permette di segnalare l'errore e di proseguire lo scipt
frame .f
text .f.text
pack .f.text
pack .f
set controlla [catch {set f [open "file_inesistente" "r"]}]
if {$controlla == 1} {
.f.text insert end "errore : il file non esiste"
}
]]>
catch.tcl