Posted to tcl by partymola at Thu Mar 29 14:31:58 GMT 2007view raw

  1. % set NAME "John Doe"
  2. John Doe
  3. % proc test {} {
  4. set latribs "name surname"
  5. global [string toupper $latribs]
  6. set NAME "Paul Allen"
  7. }
  8. % test
  9. Paul Allen
  10. % puts $NAME
  11. John Doe