configurador.xotcl (3)

• config proc save {filename} { set f [open $filename w] puts $f [my state] close $f } config proc load {filename} { set f [open $filename r] my state [read $f] close $f }