Posted to tcl by dgp at Tue Mar 08 18:29:58 GMT 2016view raw

  1. % info patchlevel
  2. 8.6.5
  3. % interp create foo
  4. foo
  5. % interp create bar
  6. bar
  7. % foo alias suicide interp delete foo
  8. suicide
  9. % bar alias suicide interp delete bar
  10. suicide
  11. % foo eval {package require Tk 8.5.19-8.5.19}
  12. 8.5.19
  13. % bar eval {package require Tk 8.6.5-8.6.5}
  14. 8.6.5
  15. % foo eval {pack [button .b -command suicide]}
  16. % bar eval {pack [button .b -command suicide]}
  17. % foo eval {pack [label .l -text [package present Tk]]}
  18. % bar eval {pack [label .l -text [package present Tk]]}
  19.