Posted to tcl by dkf at Tue Nov 08 08:54:38 GMT 2022view raw

  1. test safe-1.1 {Safe Tk loading into an interpreter} -setup {
  2. catch {safe::interpDelete a}
  3. } -body {
  4. safe::loadTk [safe::interpCreate a]
  5. safe::interpDelete a
  6. set x {}
  7. return $x
  8. } -result {}
  9.