vTcl – um exercício 4

• usando um text widget no lugar do listbox

• proc escolher_arquivo2 {} {

  • set fname [tk_getOpenFile]
  • set f [open $fname r]
  • set txt [read $f]
  • close $f
  • Text1 delete 1.0 end
  • Text1 insert 1.0 $txt

• }